qfpl/applied-fp-course
1
1
Fork 0
mirror of https://github.com/qfpl/applied-fp-course.git synced 2024-11-22 11:23:01 +03:00
Code Issues Projects Releases Wiki Activity

Uncomplete Level01 core

Browse Source
This commit is contained in:
Jack Kelly 2020-02-05 07:59:27 +10:00
parent 8f003686c0
commit cb721bd08f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Level01/Core.hs
View File

@ -33,7 +33,7 @@ app
-> (Response -> IO ResponseReceived)
-> IO ResponseReceived
app _ cb =
cb $ responseLBS status200 [] "Hello, World!"
error "Application not implemented"
-- We keep this main function here as it is useful to build your application as
-- a library. The reasoning behind this is that when you come to do your
@ -41,4 +41,4 @@ app _ cb =
-- needing to worry about any initialisation code you've buried in your
-- executable Main.hs.
runApp :: IO ()
runApp = run 8000 app
runApp = run undefined undefined