1. Luke Plant
  2. haskellblog

Commits

Luke Plant  committed f4a4229

reformatted

  • Participants
  • Parent commits 1f1a44d
  • Branches default

Comments (0)

Files changed (1)

File src/Blog/Views.hs

View file
   (posts,more) <- getRecentPosts cn curpage
   cats <- getCategoriesBulk cn posts
   t <- get_template "index"
-  return $ Just $ standardResponseBS $ (renderf t
-             ("posts", map postTemplateInfo posts)
-             ("categories", map (map categoryTemplateInfo) cats)
-             ("paginglinks", pagingLinks indexUrl curpage more)
-                                       )
+  return $ Just $ standardResponseBS $
+             (renderf t
+              ("posts", map postTemplateInfo posts)
+              ("categories", map (map categoryTemplateInfo) cats)
+              ("paginglinks", pagingLinks indexUrl curpage more)
+             )
 -- | View to help with debugging
 debug :: String -> View
 debug path req = return $ Just $ buildResponse [