Uncomplete Level01 core

src/Level01/Core.hs

@@ -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