@@ -13,7 +13,7 @@ import Control.Monad.IO.Class (liftIO)
1313import Data.Conduit (($=))
1414import qualified Data.Conduit as C
1515import qualified Data.Conduit.List as CL
16−import Network.HTTP.Types (statusOK)
16+import Network.HTTP.Types (status200)
1717import Network.Wai (Application, Response(..))
1818
1919import Network.Wai.EventSource.EventStream
@@ -42,7 +42,7 @@ eventSourceAppIO :: IO ServerEvent -> Application
4242eventSourceAppIO act _ = return $ response ioToSource act
4343
4444response :: (a -> C.Source IO (C.Flush Builder)) -> a -> Response
45−response f a = ResponseSource statusOK [("Content-Type", "text/event-stream")] $ f a
45+response f a = ResponseSource status200 [("Content-Type", "text/event-stream")] $ f a
4646
4747chanToSource :: Chan ServerEvent -> C.Source IO (C.Flush Builder)
4848chanToSource chan =