Fix GHC 7.8 builds

Author: fizruk

src/Web/HttpApiData.hs

@@ -44,7 +44,6 @@ import Web.Internal.HttpApiData
 
 -- $setup
 --
--- >>> :unset -XOverloadedLists
 -- >>> :set -XOverloadedStrings
 -- >>> import Control.Applicative
 -- >>> import Data.Time
@@ -70,7 +69,7 @@ import Web.Internal.HttpApiData
 -- "45.2"
 -- >>> parseQueryParam "452" :: Either Text Int
 -- Right 452
--- >>> toQueryParams [1..5]
+-- >>> toQueryParams [1..5] :: [Text]
 -- ["1","2","3","4","5"]
 -- >>> parseQueryParams ["127", "255"] :: Either Text [Int8]
 -- Left "out of bounds: `255' (should be between -128 and 127)"

src/Web/Internal/HttpApiData.hs

@@ -45,7 +45,6 @@ import TextShow (TextShow, showt)
 #endif
 
 -- $setup
--- >>> :unset -XOverloadedLists
 -- >>> data BasicAuthToken = BasicAuthToken Text deriving (Show)
 -- >>> instance FromHttpApiData BasicAuthToken where parseHeader h = BasicAuthToken <$> parseHeaderWithPrefix "Basic " h; parseQueryParam p = BasicAuthToken <$> parseQueryParam p
 
@@ -87,7 +86,7 @@ class FromHttpApiData a where
 
 -- | Convert multiple values to a list of URL pieces.
 --
--- >>> toUrlPieces [1, 2, 3]
+-- >>> toUrlPieces [1, 2, 3] :: [Text]
 -- ["1","2","3"]
 toUrlPieces :: (Functor t, ToHttpApiData a) => t a -> t Text
 toUrlPieces = fmap toUrlPiece
@@ -103,7 +102,7 @@ parseUrlPieces = traverse parseUrlPiece
 
 -- | Convert multiple values to a list of query parameter values.
 --
--- >>> toQueryParams [fromGregorian 2015 10 03, fromGregorian 2015 12 01]
+-- >>> toQueryParams [fromGregorian 2015 10 03, fromGregorian 2015 12 01] :: [Text]
 -- ["2015-10-03","2015-12-01"]
 toQueryParams :: (Functor t, ToHttpApiData a) => t a -> t Text
 toQueryParams = fmap toQueryParam

stack-ghc-7.8.yaml

@@ -9,6 +9,7 @@ flags:
 
 extra-deps:
 - time-locale-compat-0.1.1.3
+- uri-bytestring-0.2.2.0
 # below are dependencies necessary for use-text-show=true
 - text-show-2.1.2
 - base-compat-0.9.1