diff --git a/happstack-server.cabal b/happstack-server.cabal
--- a/happstack-server.cabal
+++ b/happstack-server.cabal
@@ -1,5 +1,5 @@
 Name:                happstack-server
-Version:             7.1.4
+Version:             7.1.5
 Synopsis:            Web related tools and services.
 Description:         Happstack Server provides an HTTP server and a rich set of functions for routing requests, handling query parameters, generating responses, working with cookies, serving files, and more. For in-depth documentation see the Happstack Crash Course <http://happstack.com/docs/crashcourse/index.html>
 License:             BSD3
diff --git a/src/Happstack/Server/Internal/Types.hs b/src/Happstack/Server/Internal/Types.hs
--- a/src/Happstack/Server/Internal/Types.hs
+++ b/src/Happstack/Server/Internal/Types.hs
@@ -235,24 +235,24 @@
 
 -- | an HTTP request
 data Request = Request
-    { rqSecure        :: Bool                  -- ^ request uses https:\/\/
-      , rqMethod      :: Method                -- ^ request method
-      , rqPaths       :: [String]              -- ^ the uri, split on /, and then decoded
-      , rqUri         :: String                -- ^ the raw rqUri
-      , rqQuery       :: String                -- ^ the QUERY_STRING
-      , rqInputsQuery :: [(String,Input)]      -- ^ the QUERY_STRING decoded as key/value pairs
-      , rqInputsBody  :: MVar [(String,Input)] -- ^ the request body decoded as key/value pairs (when appropriate)
-      , rqCookies     :: [(String,Cookie)]     -- ^ cookies
-      , rqVersion     :: HttpVersion           -- ^ HTTP version
-      , rqHeaders     :: Headers               -- ^ the HTTP request headers
-      , rqBody        :: MVar RqBody           -- ^ the raw, undecoded request body
-      , rqPeer        :: Host                  -- ^ (hostname, port) of the client making the request
+    { rqSecure      :: Bool                  -- ^ request uses https:\/\/
+    , rqMethod      :: Method                -- ^ request method
+    , rqPaths       :: [String]              -- ^ the uri, split on /, and then decoded
+    , rqUri         :: String                -- ^ the raw rqUri
+    , rqQuery       :: String                -- ^ the QUERY_STRING
+    , rqInputsQuery :: [(String,Input)]      -- ^ the QUERY_STRING decoded as key/value pairs
+    , rqInputsBody  :: MVar [(String,Input)] -- ^ the request body decoded as key/value pairs (when appropriate)
+    , rqCookies     :: [(String,Cookie)]     -- ^ cookies
+    , rqVersion     :: HttpVersion           -- ^ HTTP version
+    , rqHeaders     :: Headers               -- ^ the HTTP request headers
+    , rqBody        :: MVar RqBody           -- ^ the raw, undecoded request body
+    , rqPeer        :: Host                  -- ^ (hostname, port) of the client making the request
     } deriving (Typeable)
 
 instance Show Request where
     showsPrec _ rq =
         showString   "================== Request =================" .
-        showString "\nrqSecure      = " . shows      (rqMethod rq) .
+        showString "\nrqSecure      = " . shows      (rqSecure rq) .
         showString "\nrqMethod      = " . shows      (rqMethod rq) .
         showString "\nrqPaths       = " . shows      (rqPaths rq) .
         showString "\nrqUri         = " . showString (rqUri rq) .