Added some more production users to the list

snap-website.cabal

@@ -17,12 +17,13 @@ Executable snap-website
 
   Build-depends:
     base >= 4 && < 5,
+    blaze-html,
     bytestring,
     containers,
     data-lens-template >= 2.1 && < 2.2,
     directory,
     filepath,
-    heist >= 0.7 && < 0.8,
+    heist >= 0.7 && < 0.9,
     MonadCatchIO-transformers >= 0.2 && < 0.3,
     mtl >= 2 && <3,
     process,
@@ -35,16 +36,16 @@ Executable snap-website
     transformers,
     utf8-string,
     xhtml-combinators >= 0.2.2 && < 0.3,
-    xmlhtml ==0.1.*
+    xmlhtml >= 0.1 && < 0.3
 
   ghc-prof-options: -prof -auto-all
 
   if impl(ghc >= 6.12.0)
     ghc-options: -O2 -Wall -fwarn-tabs -funbox-strict-fields
-                 -threaded -fno-warn-unused-do-bind
+                 -threaded -fno-warn-unused-do-bind -rtsopts
   else
     ghc-options: -O2 -Wall -fwarn-tabs -funbox-strict-fields
-                 -threaded
+                 -threaded -rtsopts
 
   Extensions: OverloadedStrings
 

src/Main.hs

@@ -29,6 +29,9 @@ 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
@@ -52,6 +55,9 @@ 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 "")
                ]

templates/faq.md

@@ -34,7 +34,15 @@ Found a bug in Snap? Please create a ticket on our
 Yes!  Here is a list of sites that we know of that use Snap.  Let us know if
 you know of others:
 
-  -  [housetab.org](http://housetab.org) - a webapp for sharing expenses (source code [here](http://darcsden.com/position/housetab/))
+  -  [Janrain](http://www.janrain.com/) uses Snap to serve their user
+     management platform which is used by a number of popular
+     [websites](http://www.janrain.com/customers).
+
+  -  [Silk](http://www.silkapp.com/) uses Snap for some of their back end
+     services.
+
+  -  [housetab.org](http://housetab.org) - a webapp for sharing expenses
+     (source code [here](http://darcsden.com/position/housetab/))
 
   -  [JCU](https://github.com/norm2782/JCU) a web-based Prolog environment.