[commit: packages/Cabal] ghc-head: Fix the punctuation. (797efd6)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/Cabal

On branch  : ghc-head
Link       : http://git.haskell.org/?p=packages/Cabal.git;a=commit;h=797efd6c38ec51834d85af1e53d1d7468061e16b

>---------------------------------------------------------------

commit 797efd6c38ec51834d85af1e53d1d7468061e16b
Author: Thomas Dziedzic <gostrc at gmail.com>
Date:   Wed May 22 12:51:16 2013 +0000

    Fix the punctuation.


>---------------------------------------------------------------

797efd6c38ec51834d85af1e53d1d7468061e16b
 cabal-install/Distribution/Client/HttpUtils.hs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cabal-install/Distribution/Client/HttpUtils.hs b/cabal-install/Distribution/Client/HttpUtils.hs
index d9acffd..142429e 100644
--- a/cabal-install/Distribution/Client/HttpUtils.hs
+++ b/cabal-install/Distribution/Client/HttpUtils.hs
@@ -58,7 +58,7 @@ proxy _verbosity = do
     _ -> p
 
 mkRequest :: URI
-          -> Maybe String -- ^ optional etag to be set in the If-None-Match HTTP header
+          -> Maybe String -- ^ Optional etag to be set in the If-None-Match HTTP header.
           -> Request ByteString
 mkRequest uri etag = Request{ rqURI     = uri
                             , rqMethod  = GET
@@ -70,7 +70,7 @@ mkRequest uri etag = Request{ rqURI     = uri
 -- |Carry out a GET request, using the local proxy settings
 getHTTP :: Verbosity
         -> URI
-        -> Maybe String -- ^ optional etag to check if we already have the latest file
+        -> Maybe String -- ^ Optional etag to check if we already have the latest file.
         -> IO (Result (Response ByteString))
 getHTTP verbosity uri etag = liftM (\(_, resp) -> Right resp) $
                                    cabalBrowse verbosity (return ()) (request (mkRequest uri etag))
@@ -113,8 +113,8 @@ downloadURI verbosity uri path = do
               err = ErrorMisc $ "Unsucessful HTTP code: " 
                             ++ concatMap show [a,b,c]
 
-  -- only write the etag if we get a 200 response code
-  -- since a 304 still sends us an etag header
+  -- Only write the etag if we get a 200 response code.
+  -- A 304 still sends us an etag header.
   case result' of
     Left _ -> return ()
     Right rsp -> case rspCode rsp of