From cb721bd08f4d1906d4b0f3164facfa1faf71cfe2 Mon Sep 17 00:00:00 2001 From: Jack Kelly Date: Wed, 5 Feb 2020 07:59:27 +1000 Subject: [PATCH] Uncomplete Level01 core --- src/Level01/Core.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Level01/Core.hs b/src/Level01/Core.hs index 251c82cc..3b3f6591 100644 --- a/src/Level01/Core.hs +++ b/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