
  0 | module Node.HTTP.Server
  1 | 
  2 | import Node
  3 | import Node.Event.Internal
  4 | import Node.HTTP.IncomingMessage
  5 | import Node.HTTP.ServerResponse
  6 | import Node.HTTP.Module
  7 | import public Node.Net.Server
  8 | 
  9 | %hide Node.Net.Server.Server
 10 | 
 11 | export
 12 | data Server : Type where [external]
 13 | 
 14 | export
 15 | implementation ServerClass Server where
 16 | 
 17 | %foreign nodeOn2 "request"
 18 | ffi_onRequest : a -> (b -> c -> PrimIO ()) -> PrimIO ()
 19 | 
 20 | export
 21 | (.onRequest) : HasIO io => Server -> (IncomingMessage -> ServerResponse -> IO()) -> io ()
 22 | (.onRequest) = on2 ffi_onRequest
 23 | 
 24 |