diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-27 17:14:16 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-27 17:14:16 +0100 |
| commit | 8590e0de81fdfb142abf71aecf1428cd5ba85f62 (patch) | |
| tree | b3ab585f184c6a40c02a45290afa484db19f48fd /src/Network | |
| parent | ca2e161dd9ef48e4d8db86bff87122d68bc7cb7f (diff) | |
| download | hakyll-8590e0de81fdfb142abf71aecf1428cd5ba85f62.tar.gz | |
Not Found is 404, not 400.
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) |