http-types 0.7
This commit is contained in:
parent
29c242d03b
commit
f3a3408260
@ -155,6 +155,7 @@ import Control.Arrow ((***))
|
||||
import qualified Network.Wai.Parse as NWP
|
||||
import Data.Monoid (mappend, mempty, Endo (..))
|
||||
import qualified Data.ByteString.Char8 as S8
|
||||
import Data.ByteString (ByteString)
|
||||
import Data.CaseInsensitive (CI)
|
||||
import qualified Data.CaseInsensitive as CI
|
||||
import Blaze.ByteString.Builder (toByteString)
|
||||
@ -808,7 +809,7 @@ handlerToYAR y s upload log' toMasterRoute render errorHandler rr murl sessionMa
|
||||
types = httpAccept $ reqWaiRequest rr
|
||||
errorHandler' = localNoCurrent . errorHandler
|
||||
|
||||
yarToResponse :: YesodAppResult -> [(CI H.Ascii, H.Ascii)] -> W.Response
|
||||
yarToResponse :: YesodAppResult -> [(CI ByteString, ByteString)] -> W.Response
|
||||
yarToResponse (YARWai a) _ = a
|
||||
yarToResponse (YARPlain s hs _ c _) extraHeaders =
|
||||
case c of
|
||||
@ -830,7 +831,7 @@ httpAccept = parseHttpAccept
|
||||
|
||||
-- | Convert Header to a key/value pair.
|
||||
headerToPair :: Header
|
||||
-> (CI H.Ascii, H.Ascii)
|
||||
-> (CI ByteString, ByteString)
|
||||
headerToPair (AddCookie sc) =
|
||||
("Set-Cookie", toByteString $ renderSetCookie $ sc)
|
||||
headerToPair (DeleteCookie key path) =
|
||||
|
||||
@ -42,8 +42,8 @@ import qualified Network.HTTP.Types as H
|
||||
import Data.String (IsString)
|
||||
import qualified Data.Map as Map
|
||||
import Data.Text.Lazy.Builder (Builder)
|
||||
import Network.HTTP.Types (Ascii)
|
||||
import Web.Cookie (SetCookie (..))
|
||||
import Data.ByteString (ByteString)
|
||||
|
||||
-- | Responses to indicate some form of an error occurred. These are different
|
||||
-- from 'SpecialResponse' in that they allow for custom error pages.
|
||||
@ -60,8 +60,8 @@ instance Exception ErrorResponse
|
||||
-- | Headers to be added to a 'Result'.
|
||||
data Header =
|
||||
AddCookie SetCookie
|
||||
| DeleteCookie Ascii Ascii
|
||||
| Header Ascii Ascii
|
||||
| DeleteCookie ByteString ByteString
|
||||
| Header ByteString ByteString
|
||||
deriving (Eq, Show)
|
||||
|
||||
langKey :: IsString a => a
|
||||
|
||||
@ -71,7 +71,7 @@ library
|
||||
, monad-control >= 0.3 && < 0.4
|
||||
, transformers-base >= 0.4
|
||||
, cookie >= 0.4 && < 0.5
|
||||
, http-types >= 0.6.5 && < 0.7
|
||||
, http-types >= 0.7 && < 0.8
|
||||
, case-insensitive >= 0.2
|
||||
, parsec >= 2 && < 3.2
|
||||
, directory >= 1 && < 1.2
|
||||
|
||||
@ -30,7 +30,7 @@ library
|
||||
, wai >= 1.3 && < 1.4
|
||||
, text >= 0.9 && < 1.0
|
||||
, file-embed >= 0.0.4.1 && < 0.5
|
||||
, http-types >= 0.6.5 && < 0.7
|
||||
, http-types >= 0.7 && < 0.8
|
||||
, unix-compat >= 0.2
|
||||
, conduit >= 0.5 && < 0.6
|
||||
, crypto-conduit >= 0.4 && < 0.5
|
||||
@ -61,7 +61,7 @@ test-suite tests
|
||||
, wai
|
||||
, text >= 0.9 && < 1.0
|
||||
, file-embed >= 0.0.4.1 && < 0.5
|
||||
, http-types >= 0.6.5 && < 0.7
|
||||
, http-types
|
||||
, unix-compat >= 0.2
|
||||
, conduit
|
||||
, crypto-conduit
|
||||
|
||||
@ -69,6 +69,7 @@ import qualified Test.Hspec.Runner as Runner
|
||||
import qualified Data.List as DL
|
||||
import qualified Data.Maybe as DY
|
||||
import qualified Data.ByteString.Char8 as BS8
|
||||
import Data.ByteString (ByteString)
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as TE
|
||||
import qualified Data.ByteString.Lazy.Char8 as BSL8
|
||||
@ -123,7 +124,7 @@ instance HoldsResponse OneSpecData where
|
||||
instance HoldsResponse RequestBuilderData where
|
||||
readResponse (RequestBuilderData _ x) = x
|
||||
|
||||
type CookieValue = H.Ascii
|
||||
type CookieValue = ByteString
|
||||
|
||||
-- | Runs your test suite, using you wai 'Application' and 'ConnectionPool' for performing
|
||||
-- the database queries in your tests.
|
||||
|
||||
@ -22,7 +22,7 @@ library
|
||||
, wai >= 1.3 && < 1.4
|
||||
, wai-test >= 1.3 && < 1.4
|
||||
, network >= 2.2 && < 2.4
|
||||
, http-types >= 0.6 && < 0.7
|
||||
, http-types >= 0.7 && < 0.8
|
||||
, HUnit >= 1.2 && < 1.3
|
||||
, hspec >= 1.2 && < 1.3
|
||||
, bytestring >= 0.9
|
||||
|
||||
@ -99,7 +99,7 @@ executable yesod
|
||||
, unix-compat >= 0.2 && < 0.4
|
||||
, containers >= 0.2
|
||||
, attoparsec >= 0.10
|
||||
, http-types >= 0.6.1 && < 0.7
|
||||
, http-types >= 0.7 && < 0.8
|
||||
, blaze-builder >= 0.2.1.4 && < 0.4
|
||||
, filepath >= 1.1
|
||||
, process
|
||||
|
||||
Loading…
Reference in New Issue
Block a user