This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap-benchmarks".
The branch, master has been updated
via c58eacdf3b82f8e8851d8739af20c5e21f51529b (commit)
from a4e3c275fa90a651276e249c814bb6e17775a527 (commit)
Summary of changes:
happstack/Main.hs | 9 ++++++---
1 files changed, 6 insertions(+), 3 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit c58eacdf3b82f8e8851d8739af20c5e21f51529b
Author: Mighty Byte <[email protected]>
Date: Fri Nov 5 14:34:01 2010 -0400
Applied patch from Jeremy for the happstack code.
diff --git a/happstack/Main.hs b/happstack/Main.hs
index fb4a94b..625fbaf 100644
--- a/happstack/Main.hs
+++ b/happstack/Main.hs
@@ -1,16 +1,19 @@
+{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}
module Main where
import Control.Monad
import Happstack.Server
import System.Environment
+handlers :: ServerPart Response
handlers = msum
- [dir "pong" $ anyRequest $ ok $ toResponse "PONG"
- ,fileServe ["FiringGeometry.png"] "."
+ [ dir "pong" $ ok (toResponseBS "text/plain" "pong")
+ , serveFile (asContentType "image/png") "FiringGeometry.png"
]
+main :: IO ()
main = do
args <- getArgs
let p = if length args == 0 then 8000 else read $ head args
- simpleHTTP (nullConf {port = p}) handlers
+ simpleHTTP (nullConf {port = p, logAccess = Nothing}) handlers
-----------------------------------------------------------------------
hooks/post-receive
--
snap-benchmarks
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
