Browse files

fix typo

  • Loading branch information...
1 parent ee6fcb1 commit edf5694d8ad293140e2a8894ffb7d809ee78215e Juha Paananen committed Dec 13, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Util/Rest.hs
View
2 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

0 comments on commit edf5694

Please sign in to comment.