bdbcbfa · servant-reflex

git.iko.soy/servant-reflex

on master help sign in

Fixup merge

bdbcbfaMatthew Bauer7 years ago

servant-reflex.cabal+3−4

compare with master

unifiedsplit

@@ -24,8 +24,7 @@ library

25 hs-source-dirs: src

26 build-depends:

27− base >= 4.8 && < 4.10,

28− aeson >= 0.11 && < 1.3,

27+ aeson >= 0.11 && < 1.5,

29 base >= 4.8 && < 5,

28 base >= 4.8 && < 5,

30 bytestring >= 0.10 && < 0.11,

29 bytestring >= 0.10 && < 0.11,

31 case-insensitive >= 1.2.0.4 && < 1.3,

30 case-insensitive >= 1.2.0.4 && < 1.3,

@@ -41,8 +40,8 @@ library

41 reflex >= 0.5 && < 0.7,

40 reflex >= 0.5 && < 0.7,

42 reflex-dom-core >= 0.4 && < 0.6,

41 reflex-dom-core >= 0.4 && < 0.6,

43 safe >= 0.3.9 && < 0.4,

42 safe >= 0.3.9 && < 0.4,

44− servant >= 0.13 && < 0.14,

43+ servant >= 0.13 && < 0.16,

45− servant-checked-exceptions >= 1.1.0.0 && < 1.2,

44+ servant-checked-exceptions >= 2.0 && < 2.2,

46 servant-auth >= 0.2.1 && < 0.4,

45 servant-auth >= 0.2.1 && < 0.4,

47 string-conversions >= 0.4 && < 0.5,

46 string-conversions >= 0.4 && < 0.5,

48 text >= 1.2 && < 1.3,

47 text >= 1.2 && < 1.3,

src/Servant/Common/Req.hs+9−9

@@ -36,7 +36,7 @@ import Data.Monoid ((<>))

36import Data.Proxy (Proxy (..))

37import Data.Text (Text)

38import qualified Data.Text as T

39−import qualified Data.Text.Encoding as T

39+import qualified Data.Text.Encoding as TE

40import qualified Data.Text.Lazy as TL

41import Data.Traversable (forM)

42import qualified Language.Javascript.JSaddle as JS

@@ -181,7 +181,7 @@ prependToPathParts p req =

181 req { reqPathParts = p : reqPathParts req }

182

183addHeader :: (ToHttpApiData a, Reflex t) => Text -> Dynamic t (Either Text a) -> Req t -> Req t

184−addHeader name val req = req { headers = (name, (fmap . fmap) (T.decodeUtf8 . toHeader) val) : headers req }

184+addHeader name val req = req { headers = (name, (fmap . fmap) (TE.decodeUtf8 . toHeader) val) : headers req }

185

186reqToReflexRequest

187 :: forall t. Reflex t

@@ -275,8 +275,8 @@ reqToReflexRequest reqMeth reqHost req@(Req _ _ _ (reqBody :: Maybe (Dynamic t (

275 mkAuth _ (Left e) = Left e

276 mkAuth Nothing r = r

277 mkAuth (Just (BasicAuthData u p)) (Right config) = Right $ config

278− { _xhrRequestConfig_user = Just $ T.decodeUtf8 u

278+ { _xhrRequestConfig_user = Just $ TE.decodeUtf8 u

279− , _xhrRequestConfig_password = Just $ T.decodeUtf8 p}

279+ , _xhrRequestConfig_password = Just $ TE.decodeUtf8 p}

280

281 addAuth :: Dynamic t (Either Text (XhrRequestConfig x))

282 -> Dynamic t (Either Text (XhrRequestConfig x))

@@ -449,7 +449,7 @@ instance FromJSON a => MimeUnrender JSON a where

449-- Note that the @mimeUnrender p (mimeRender p x) == Right x@ law only

450-- holds if every element of x is non-null (i.e., not @("", "")@)

451instance FromForm a => MimeUnrender FormUrlEncoded a where

452− mimeUnrender _ = first T.unpack . urlDecodeAsForm . BB.toLazyByteString . T.encodeUtf8Builder . JS.textFromJSString

452+ mimeUnrender _ = first T.unpack . urlDecodeAsForm . Builder.toLazyByteString . TE.encodeUtf8Builder . JS.textFromJSString

453

454-- | @left show . TextL.decodeUtf8'@

455instance MimeUnrender PlainText TL.Text where

@@ -465,11 +465,11 @@ instance MimeUnrender PlainText String where

465

466-- | @Right . id@

467instance MimeUnrender OctetStream ByteString where

468− mimeUnrender _ = pure . BB.toLazyByteString . T.encodeUtf8Builder . JS.textFromJSString

468+ mimeUnrender _ = pure . Builder.toLazyByteString . TE.encodeUtf8Builder . JS.textFromJSString

469

470-- | @Right . toStrict@

471instance MimeUnrender OctetStream BS.ByteString where

472− mimeUnrender _ = pure . T.encodeUtf8 . JS.textFromJSString

472+ mimeUnrender _ = pure . TE.encodeUtf8 . JS.textFromJSString

473

474note :: e -> Maybe a -> Either e a

475note e Nothing = Left e

@@ -479,8 +479,8 @@ fmapL :: (e -> e') -> Either e a -> Either e' a

479fmapL _ (Right a) = Right a

480fmapL f (Left e) = Left (f e)

481

482−builderToText :: BB.Builder -> T.Text

482+builderToText :: Builder.Builder -> T.Text

483−builderToText = T.decodeUtf8 . BL.toStrict . BB.toLazyByteString

483+builderToText = TE.decodeUtf8 . BL.toStrict . Builder.toLazyByteString

484

485escape :: T.Text -> T.Text

486escape = T.pack . N.escapeURIString (not . N.isReserved) . T.unpack . TE.decodeUtf8 . BL.toStrict . Builder.toLazyByteString . toEncodedUrlPiece

src/Servant/Reflex.hs+1−1

@@ -105,7 +105,7 @@ import Reflex.Dom.Core (Dynamic,

105 leftmost,

106 performRequestsAsync)

107------------------------------------------------------------------------------

108−import Servant.Checked.Exceptions.Internal.Envelope (Envelope)

108+import Servant.Checked.Exceptions.Internal (Envelope)

109import Servant.Checked.Exceptions.Internal.Servant.API (NoThrow,

110 Throwing,

111 ThrowingNonterminal,

src/Servant/Reflex/Multi.hs+1−1

@@ -79,7 +79,7 @@ import Reflex.Dom.Core (Dynamic,

79 attachPromptlyDynWith,

80 constDyn)

81------------------------------------------------------------------------------

82−import Servant.Checked.Exceptions.Internal.Envelope (Envelope)

82+import Servant.Checked.Exceptions.Internal (Envelope)

83import Servant.Checked.Exceptions.Internal.Servant.API (NoThrow,

84 Throwing,

85 ThrowingNonterminal,