From 2174690c5e60667955bbf9fd6f0a8d3beb1734a9 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 20 Oct 2008 11:36:17 +0000
Subject: Added Read and Show instances for Type. This required moving some
 code around.

---
 src/server/MainFastCGI.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/server/MainFastCGI.hs')

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]
-- 
cgit v1.2.3