diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-20 11:36:17 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-20 11:36:17 +0000 |
| commit | 2174690c5e60667955bbf9fd6f0a8d3beb1734a9 (patch) | |
| tree | 9b4f623f5544d1fa586f062bc02e4f758d4f5d2c /src/server | |
| parent | a26290659d2d7799f920d0aae64383e17004abdb (diff) | |
Added Read and Show instances for Type. This required moving some code around.
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/MainFastCGI.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs index 38748fcc4..69f5fb419 100644 --- a/src/server/MainFastCGI.hs +++ b/src/server/MainFastCGI.hs @@ -54,6 +54,7 @@ pgfMain pgf command = getCat = do mcat <- getInput "cat" case mcat of + Nothing -> return Nothing Just "" -> return Nothing Just cat | cat `notElem` PGF.categories pgf -> throwCGIError 400 "Unknown category" ["Unknown category: " ++ cat] |