Browse files

Make snap-heist.hs work with snap >= 0.9

  • Loading branch information...
1 parent 11529fc commit 0d7ed887ae9c80406697068b9530b7bec00b6760 @jaspervdj committed Aug 15, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 examples/snap-heist.hs
View
2 examples/snap-heist.hs
@@ -96,7 +96,7 @@ app = makeSnaplet "app" "digestive-functors example application" Nothing $ do
main :: IO ()
main = do
- (msgs, site, cleanup) <- runSnaplet app
+ (msgs, site, cleanup) <- runSnaplet Nothing app
hPutStrLn stderr $ T.unpack msgs
_ <- try $ httpServe defaultConfig site :: IO (Either SomeException ())
cleanup

0 comments on commit 0d7ed88

Please sign in to comment.