Remove trailing whitespace.

ozataman · Dec 12, 2010 · 99b3311 · 99b3311
1 parent fd9227c
commit 99b3311
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/src/Snap/Internal/Debug.hs b/src/Snap/Internal/Debug.hs
@@ -38,7 +38,7 @@ debug, debugErrno :: forall m . (MonadIO m => String -> m ())
 {-# NOINLINE debug #-}
 debug = let !x = unsafePerformIO $! do
             !e <- try $ getEnv "DEBUG"
-            
+
             !f <- either (\(_::SomeException) -> return debugIgnore)
                          (\y -> if y == "1" || y == "on"
                                   then return debugOn
@@ -53,7 +53,7 @@ debug = let !x = unsafePerformIO $! do
 {-# NOINLINE debugErrno #-}
 debugErrno = let !x = unsafePerformIO $ do
                  e <- try $ getEnv "DEBUG"
-                 
+
                  !f <- either (\(_::SomeException) -> return debugErrnoIgnore)
                               (\y -> if y == "1" || y == "on"
                                        then return debugErrnoOn

diff --git a/src/Snap/Internal/Http/Types.hs b/src/Snap/Internal/Http/Types.hs
@@ -652,7 +652,7 @@ pUrlEscaped = do
         when (S.length hx /= 2 ||
                (not $ S.all (isHexDigit . w2c) hx)) $
              fail "bad hex in url"
-          
+
         let code = (Cvt.hex hx) :: Word8
         nextChunk $ DL.snoc l (S.singleton code)
 

diff --git a/src/Snap/Util/FileServe.hs b/src/Snap/Util/FileServe.hs
@@ -415,15 +415,15 @@ checkRangeReq req fp sz = do
                let crng = S.concat $
                           L.toChunks $
                           L.concat ["bytes */", show sz]
-               
+
                modifyResponse $ setResponseCode 416
                               . setHeader "Content-Range" crng
                               . setContentLength 0
                               . deleteHeader "Content-Type"
                               . deleteHeader "Content-Encoding"
                               . deleteHeader "Transfer-Encoding"
                               . setResponseBody (enumBS "")
-               
+
                return True
 
 

diff --git a/src/Snap/Util/GZip.hs b/src/Snap/Util/GZip.hs
@@ -218,7 +218,7 @@ compressEnumerator compFunc enum origStep = do
     --------------------------------------------------------------------------
     f _ _ _ (Error e) = Error e
     f _ _ _ (Yield x _) = Yield x EOF
-    f readEnd writeEnd tid st@(Continue k) = Continue $ \ch -> 
+    f readEnd writeEnd tid st@(Continue k) = Continue $ \ch ->
         case ch of
           EOF -> do
             lift $ writeChan readEnd Nothing