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-core".

The branch, master has been updated
       via  a5f0b60ddfc27f0531e2a432e6e03878206b3fab (commit)
      from  f3ab4e6c0c089fda75b1f3f00a0553df5c16ab4b (commit)


Summary of changes:
 src/Snap/Internal/Http/Types.hs |   12 ++++++------
 1 files changed, 6 insertions(+), 6 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 a5f0b60ddfc27f0531e2a432e6e03878206b3fab
Author: Mighty Byte <[email protected]>
Date:   Tue Jul 20 18:38:58 2010 -0400

    Cleaned up a little spacing.

diff --git a/src/Snap/Internal/Http/Types.hs b/src/Snap/Internal/Http/Types.hs
index ca626e0..a9ff959 100644
--- a/src/Snap/Internal/Http/Types.hs
+++ b/src/Snap/Internal/Http/Types.hs
@@ -305,8 +305,8 @@ instance Show Request where
       version       = concat [ "version: "
                              , show $ rqVersion r
                              ]
-      cookies' = "      " ++ (concat $ intersperse "\n " $
-                              map show $ rqCookies r)
+      cookies'      = "      " ++ (concat $ intersperse "\n " $
+                                   map show $ rqCookies r)
       cookies       = concat [ "cookies:\n"
                              , "      
========================================\n"
                              , cookies'
@@ -316,10 +316,10 @@ instance Show Request where
       contextpath   = concat [ "contextpath: ", toStr $ rqContextPath r ]
       snapletpath   = concat [ "snapletpath: ", toStr $ rqSnapletPath r ]
       uri           = concat [ "URI: ", toStr $ rqURI r ]
-      params' = "      " ++
-          (concat $ intersperse "\n " $
-           map (\ (a,b) -> B.unpack a ++ ": " ++ show b) $
-           Map.toAscList $ rqParams r)
+      params'       = "      " ++
+                      (concat $ intersperse "\n " $
+                       map (\ (a,b) -> B.unpack a ++ ": " ++ show b) $
+                       Map.toAscList $ rqParams r)
       params        = concat [ "params:\n"
                              , "      
========================================\n"
                              , params'
-----------------------------------------------------------------------


hooks/post-receive
-- 
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap

Reply via email to