purescript-hyper example with do notation

Main.purs

module Main where

import Control.IxMonad (ibind, (:>>=))
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE)
import Data.MediaType.Common (textPlain)
import Hyper.Node.Server (defaultOptionsWithLogging, runServer)
import Hyper.Response (closeHeaders, contentType, end, send, toResponse, writeStatus)
import Hyper.Status (statusOK)
import Node.HTTP (HTTP)
import Prelude (Unit)

main :: forall e. Eff (console :: CONSOLE, http :: HTTP | e) Unit
main = runServer defaultOptionsWithLogging {} do 
    writeStatus statusOK
    contentType textPlain
    closeHeaders
    toResponse "Hello, Hyper!" :>>= send
    end

bind = ibind
discard = ibind