18 lines
373 B
Haskell
18 lines
373 B
Haskell
|
module HTTPure.Status
|
||
|
|
( Status
|
||
|
|
, write
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Prelude (Unit)
|
||
|
|
|
||
|
|
import Node.HTTP as HTTP
|
||
|
|
|
||
|
|
import HTTPure.HTTPureM as HTTPureM
|
||
|
|
|
||
|
|
-- | The Status type enumerates all valid HTTP response status codes.
|
||
|
|
type Status = Int
|
||
|
|
|
||
|
|
-- | Write a status to a given HTTP Response.
|
||
|
|
write :: forall e. HTTP.Response -> Status -> HTTPureM.HTTPureM e Unit
|
||
|
|
write = HTTP.setStatusCode
|