Skip to content
Browse files

minor whitespace cleanup

  • Loading branch information...
1 parent 2c50d52 commit 7ae69fc808a270bd027f5367c33c856d2fc46958 Carl Howells committed Jun 17, 2010
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/Snap/Internal/Types.hs
View
8 src/Snap/Internal/Types.hs
@@ -202,7 +202,7 @@ getRequestBody = liftM fromWrap $ runRequestBody stream2stream
-- returns it. You would want to use this if you needed to send the
-- HTTP request body (transformed or otherwise) through to the output
-- in O(1) space. (Examples: transcoding, \"echo\", etc)
---
+--
-- Normally Snap is careful to ensure that the request body is fully
-- consumed after your web handler runs; this function is marked
-- \"unsafe\" because it breaks this guarantee and leaves the
@@ -362,7 +362,7 @@ modifyRequest f = smodify $ \ss -> ss { _snapRequest = f $ _snapRequest ss }
------------------------------------------------------------------------------
-- | Modifes the 'Response' object stored in a 'Snap' monad.
-modifyResponse :: (Response -> Response) -> Snap ()
+modifyResponse :: (Response -> Response) -> Snap ()
modifyResponse f = smodify $ \ss -> ss { _snapResponse = f $ _snapResponse ss }
{-# INLINE modifyResponse #-}
@@ -487,7 +487,7 @@ runSnap (Snap m) logerr req = do
r
-- is this a case of early termination?
- let resp = case e of
+ let resp = case e of
Left x -> x
Right _ -> _snapResponse ss'
@@ -518,7 +518,7 @@ evalSnap (Snap m) logerr req = do
r
-- is this a case of early termination?
- case e of
+ case e of
Left _ -> liftIO $ throwIO $ ErrorCall "no value"
Right x -> return x
where

0 comments on commit 7ae69fc

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