Uncomplete Level01 core

FaneBastinBellroy · Feb 4, 2020 · cb721bd · cb721bd
1 parent 8f00368
commit cb721bd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Level01/Core.hs b/src/Level01/Core.hs
@@ -33,12 +33,12 @@ 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
 -- testing, you'll be able to import the entire application as a library without
 -- 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