fix typo

raimohanska · Dec 13, 2011 · edf5694 · edf5694
1 parent ee6fcb1
commit edf5694
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Util/Rest.hs b/src/Util/Rest.hs
@@ -19,5 +19,5 @@ jsonGet :: Data a => (String -> Snap (Maybe a)) -> Snap ()
 jsonGet lookup = restfulGet $ \id -> do
     maybeFound <- lookup id
     case maybeFound of
-      nothing -> notFound
+      Nothing -> notFound
       Just(val) -> writeLBS $ JSON.encode $ val