happstack-server 7.1.4 → 7.1.5

raw patch · 2 files changed

+14/−14 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• happstack-server.cabal +1/−1
• src/Happstack/Server/Internal/Types.hs +13/−13

@@ -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

@@ -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) .