Browse files

Revert some bad stuff from 9fa6335

  • Loading branch information...
1 parent 8f19d24 commit 8b3fc1be8b3d3f87c44403f7a76a9bee5800f666 @gregorycollins gregorycollins committed Mar 16, 2012
Showing with 0 additions and 6 deletions.
  1. +0 −6 src/Main.hs
View
6 src/Main.hs
@@ -29,9 +29,6 @@ import Snap.Util.GZip
import Text.Templating.Heist
import qualified Text.XHtmlCombinators.Escape as XH
-import BlazeIndex
-import Text.Blaze.Renderer.Pretty (renderHtml)
-
data App = App
{ _heist :: Snaplet (Heist App)
, _blog :: Snaplet StaticPages
@@ -55,9 +52,6 @@ appInit :: SnapletInit App App
appInit = makeSnaplet "snap-website" description Nothing $ do
hs <- nestSnaplet "" heist $ heistInit "templates"
bs <- nestSnaplet "blog" blog $ staticPagesInit "blogdata"
- addRoutes [ ("ping", writeBS "PONG")
- , ("bindex", writeText $ T.pack $ renderHtml blazeIndexPage)
- ]
addSplices [ ("snap-version", serverVersion)
, ("feed-autodiscovery-link", liftHeist $ textSplice "")
]

0 comments on commit 8b3fc1b

Please sign in to comment.