Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Completed migration to 0.10

  • Loading branch information...
commit 851fdeb50f9bc788c246a4ade62f1de93abe850c 1 parent 6365d5f
authored September 27, 2012

Showing 1 changed file with 4 additions and 3 deletions. Show diff stats Hide diff stats

  1. 7  src/Snap/StaticPages.hs
7  src/Snap/StaticPages.hs
@@ -55,10 +55,11 @@ desc = "Simple blog backed by flat files"
55 55
 
56 56
 -}
57 57
 staticPagesInit :: HasHeist b
58  
-                => FilePath
  58
+                => Snaplet (Heist b)
  59
+                -> FilePath
59 60
                 -- ^ path to staticPages directory
60 61
                 -> SnapletInit b StaticPages
61  
-staticPagesInit p = makeSnaplet "static-pages" desc Nothing $ do
  62
+staticPagesInit s p = makeSnaplet "static-pages" desc Nothing $ do
62 63
     let pth = staticPagesTemplateDir p
63 64
     -- make sure directories exist
64 65
     liftIO $ mapM_ failIfNotDir [p, contentDir, pth]
@@ -68,7 +69,7 @@ staticPagesInit p = makeSnaplet "static-pages" desc Nothing $ do
68 69
 
69 70
     cmap <- liftIO $ buildContentMap baseURL contentDir
70 71
     
71  
-    addTemplatesAt "" pth
  72
+    addTemplatesAt s "" pth
72 73
     addRoutes [ ("", serveStaticPages) ]
73 74
 
74 75
     return StaticPages {

0 notes on commit 851fdeb

Please sign in to comment.
Something went wrong with that request. Please try again.