Commit 3806882e authored by Oscar Leijendekker's avatar Oscar Leijendekker

Further work on ch.7

parent 81daf662
Pipeline #100911214 passed with stage
in 4 minutes and 24 seconds
......@@ -15,6 +15,7 @@ import qualified Data.ByteString.Lazy.UTF8 as UTF8 (fromString)
startServer :: IO ()
startServer = do
TaskDB.pushTaskToDB "implement new feature request for client"
Warp.run 8080 requestHandler
requestHandler :: Request -> (Response -> IO ResponseReceived) -> IO ResponseReceived
......
......@@ -3,7 +3,7 @@
module TaskDB
( TaskStatus(Done, NotDone)
, Task
, fetchFromDB
, fetchFromDB, pushTaskToDB
) where
import HTML (HTML, toHTML)
......
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