diff options
Diffstat (limited to 'src/Network')
| -rw-r--r-- | src/Network/Hakyll/SimpleServer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Hakyll/SimpleServer.hs b/src/Network/Hakyll/SimpleServer.hs index 91bac99..5d5d0c2 100644 --- a/src/Network/Hakyll/SimpleServer.hs +++ b/src/Network/Hakyll/SimpleServer.hs @@ -73,7 +73,7 @@ createGetResponse request = do else B.unpack (requestURI request) exists <- doesFileExist fileName if exists then catch (create200 fileName) create500 - else return $ errorResponse 400 (B.pack "Not Found") + else return $ errorResponse 404 (B.pack "Not Found") where create200 fileName = do body <- B.readFile fileName let headers = [ (B.pack "Content-Length", B.pack $ show $ B.length body) |