git.iko.soy/typeable/http-api-data
on master help sign in
Fix Travis builds for GHC 7
commit173ef33bece0efd5c695585b838cbd4f7b967b39 authorNickolay Kudasov <nickolay.kudasov@gmail.com> dateTue 30 Aug 2016, 15:56 (10 years ago) parent550df9a
3 files changed+5−1
compare with master
unifiedsplit
src/Web/HttpApiData.hs+1 src/Web/Internal/FormUrlEncoded.hs+3−1 test/Web/Internal/FormUrlEncodedSpec.hs+1
src/Web/HttpApiData.hs+1
@@ -44,6 +44,7 @@ import Web.Internal.HttpApiData
4444
4545-- $setup
4646--
47+-- >>> :unset -XOverloadedLists
4748-- >>> :set -XOverloadedStrings
4849-- >>> import Control.Applicative
4950-- >>> import Data.Time
src/Web/Internal/FormUrlEncoded.hs+3−1
@@ -14,12 +14,14 @@ module Web.Internal.FormUrlEncoded where
1414
1515#if __GLASGOW_HASKELL__ < 710
1616import Control.Applicative
17+import Data.Traversable
1718#endif
1819
1920import Control.Arrow ((***))
2021import Control.Monad ((<=<))
2122import qualified Data.ByteString.Lazy as BSL
2223import qualified Data.ByteString.Lazy.Char8 as BSL8
24+import qualified Data.Foldable as F
2325import Data.Hashable (Hashable)
2426import Data.HashMap.Strict (HashMap)
2527import qualified Data.HashMap.Strict as HashMap
@@ -450,7 +452,7 @@ encodeAsForm = encodeForm . toForm
450452-- >>> lookupKey "name" [("name", "Oleg"), ("name", "David")]
451453-- ["Oleg","David"]
452454lookupKey :: Text -> Form -> [Text]
453−lookupKey key = concat . HashMap.lookup key . unForm
455+lookupKey key = F.concat . HashMap.lookup key . unForm
454456
455457-- | Lookup a unique value for a key.
456458-- Fail if there is zero or more than one value.
test/Web/Internal/FormUrlEncodedSpec.hs+1
@@ -5,6 +5,7 @@ module Web.Internal.FormUrlEncodedSpec (spec) where
55
66#if __GLASGOW_HASKELL__ < 710
77import Control.Applicative
8+import Data.Monoid
89#endif
910
1011import Control.Monad ((<=<))