Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added some more production users to the list

  • Loading branch information...
commit 9fa63357a0aeb2f660f52c325184b208ed6989cb 1 parent 36d0e27
@mightybyte mightybyte authored
Showing with 20 additions and 5 deletions.
  1. +5 −4 snap-website.cabal
  2. +6 −0 src/Main.hs
  3. +9 −1 templates/faq.md
View
9 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
View
6 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 "")
]
View
10 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.
Please sign in to comment.
Something went wrong with that request. Please try again.