Permalink
Browse files

Configure snap to not be verbose.

  • Loading branch information...
Anthony Cowley
Anthony Cowley committed Jul 31, 2011
1 parent e86c5b3 commit c5ac4b253fda6430df2d3fcd8f259bb0e2c7f1f4
Showing with 2 additions and 1 deletion.
  1. +2 −1 Ros/SlaveAPI.hs
View
@@ -10,7 +10,7 @@ import qualified Data.ByteString.UTF8 ()
import qualified Data.ByteString.Lazy.UTF8 as BLU
import Snap.Http.Server (simpleHttpServe)
import Snap.Http.Server.Config (defaultConfig, setPort, Config,
- setAccessLog, setErrorLog)
+ setVerbose, setAccessLog, setErrorLog)
import Snap.Types (Snap, getRequestBody, writeLBS,
getResponse, putResponse, setContentLength)
import Network.Socket hiding (Stream)
@@ -164,6 +164,7 @@ simpleServe port handler = simpleHttpServe conf handler
where conf :: Config Snap ()
conf = setAccessLog Nothing .
setErrorLog Nothing .
+ setVerbose False .
setPort port $
defaultConfig

0 comments on commit c5ac4b2

Please sign in to comment.