Permalink
Browse files

Completed migration to 0.10

  • Loading branch information...
1 parent 6365d5f commit 851fdeb50f9bc788c246a4ade62f1de93abe850c Alfredo committed Sep 27, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/Snap/StaticPages.hs
View
@@ -55,10 +55,11 @@ desc = "Simple blog backed by flat files"
-}
staticPagesInit :: HasHeist b
- => FilePath
+ => Snaplet (Heist b)
+ -> FilePath
-- ^ path to staticPages directory
-> SnapletInit b StaticPages
-staticPagesInit p = makeSnaplet "static-pages" desc Nothing $ do
+staticPagesInit s p = makeSnaplet "static-pages" desc Nothing $ do
let pth = staticPagesTemplateDir p
-- make sure directories exist
liftIO $ mapM_ failIfNotDir [p, contentDir, pth]
@@ -68,7 +69,7 @@ staticPagesInit p = makeSnaplet "static-pages" desc Nothing $ do
cmap <- liftIO $ buildContentMap baseURL contentDir
- addTemplatesAt "" pth
+ addTemplatesAt s "" pth
addRoutes [ ("", serveStaticPages) ]
return StaticPages {

0 comments on commit 851fdeb

Please sign in to comment.