Commit 6b897d5c authored by Oscar Leijendekker's avatar Oscar Leijendekker

Work on ch.6: renaming

parent 5e7a8a1b
Pipeline #94314355 passed with stage
in 4 minutes and 32 seconds
module Main where
import Lib (someFunc)
import ServerMain (startServer)
main :: IO ()
main = someFunc
main = startServer
{-# LANGUAGE OverloadedStrings #-}
module Lib
( someFunc
module ServerMain
( startServer
) where
import Network.Wai.Handler.Warp (run)
......@@ -16,8 +16,8 @@ import qualified Hasql.Encoders
import qualified Hasql.Decoders
import qualified Data.Text
someFunc :: IO ()
someFunc = do
startServer :: IO ()
startServer = do
run 8080 requestHandler
requestHandler :: Request -> (Response -> IO ResponseReceived) -> IO ResponseReceived
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment