Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Revert some bad stuff from 9fa6335

  • Loading branch information...
commit 8b3fc1be8b3d3f87c44403f7a76a9bee5800f666 1 parent 8f19d24
Gregory Collins gregorycollins authored

Showing 1 changed file with 0 additions and 6 deletions. Show diff stats Hide diff stats

  1. +0 6 src/Main.hs
6 src/Main.hs
@@ -29,9 +29,6 @@ import Snap.Util.GZip
29 29 import Text.Templating.Heist
30 30 import qualified Text.XHtmlCombinators.Escape as XH
31 31
32   -import BlazeIndex
33   -import Text.Blaze.Renderer.Pretty (renderHtml)
34   -
35 32 data App = App
36 33 { _heist :: Snaplet (Heist App)
37 34 , _blog :: Snaplet StaticPages
@@ -55,9 +52,6 @@ appInit :: SnapletInit App App
55 52 appInit = makeSnaplet "snap-website" description Nothing $ do
56 53 hs <- nestSnaplet "" heist $ heistInit "templates"
57 54 bs <- nestSnaplet "blog" blog $ staticPagesInit "blogdata"
58   - addRoutes [ ("ping", writeBS "PONG")
59   - , ("bindex", writeText $ T.pack $ renderHtml blazeIndexPage)
60   - ]
61 55 addSplices [ ("snap-version", serverVersion)
62 56 , ("feed-autodiscovery-link", liftHeist $ textSplice "")
63 57 ]

0 comments on commit 8b3fc1b

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