From edf5694d8ad293140e2a8894ffb7d809ee78215e Mon Sep 17 00:00:00 2001
From: Juha Paananen <juha.paananen@reaktor.fi>
Date: Tue, 13 Dec 2011 14:21:48 +0200
Subject: [PATCH] fix typo

---
 src/Util/Rest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Util/Rest.hs b/src/Util/Rest.hs
index 29ad0f9..e04603a 100644
--- 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