Remove all use of bytestring-conversion
This commit is contained in:
parent
9b5a564f3c
commit
5bef76ed03
5 changed files with 2 additions and 8 deletions
|
@ -36,7 +36,6 @@ library
|
|||
, aeson
|
||||
, aeson-pretty
|
||||
, bytestring
|
||||
, bytestring-conversion
|
||||
, case-insensitive
|
||||
, hashable
|
||||
, http-media >= 0.6
|
||||
|
@ -61,7 +60,6 @@ executable greet-docs
|
|||
build-depends:
|
||||
base
|
||||
, aeson
|
||||
, bytestring-conversion
|
||||
, lens
|
||||
, servant
|
||||
, servant-docs
|
||||
|
|
|
@ -25,7 +25,6 @@ import Control.Arrow (second)
|
|||
import Control.Lens (makeLenses, mapped, over, traversed, view, (%~),
|
||||
(&), (.~), (<>~), (^.), (|>))
|
||||
import qualified Control.Monad.Omega as Omega
|
||||
import Data.ByteString.Conversion (ToByteString, toByteString)
|
||||
import Data.ByteString.Lazy.Char8 (ByteString)
|
||||
import qualified Data.ByteString.Char8 as BSC
|
||||
import qualified Data.CaseInsensitive as CI
|
||||
|
@ -461,12 +460,12 @@ class AllHeaderSamples ls where
|
|||
instance AllHeaderSamples '[] where
|
||||
allHeaderToSample _ = []
|
||||
|
||||
instance (ToByteString l, AllHeaderSamples ls, ToSample l, KnownSymbol h)
|
||||
instance (ToHttpApiData l, AllHeaderSamples ls, ToSample l, KnownSymbol h)
|
||||
=> AllHeaderSamples (Header h l ': ls) where
|
||||
allHeaderToSample _ = mkHeader (toSample (Proxy :: Proxy l)) :
|
||||
allHeaderToSample (Proxy :: Proxy ls)
|
||||
where headerName = CI.mk . cs $ symbolVal (Proxy :: Proxy h)
|
||||
mkHeader (Just x) = (headerName, cs $ toByteString x)
|
||||
mkHeader (Just x) = (headerName, cs $ toHeader x)
|
||||
mkHeader Nothing = (headerName, "<no header sample provided>")
|
||||
|
||||
-- | Synthesise a sample value of a type, encoded in the specified media types.
|
||||
|
|
|
@ -69,5 +69,4 @@ test-suite spec
|
|||
servant-server,
|
||||
servant-mock,
|
||||
aeson,
|
||||
bytestring-conversion,
|
||||
wai
|
||||
|
|
|
@ -114,7 +114,6 @@ test-suite spec
|
|||
, aeson
|
||||
, base64-bytestring
|
||||
, bytestring
|
||||
, bytestring-conversion
|
||||
, directory
|
||||
, exceptions
|
||||
, hspec == 2.*
|
||||
|
|
|
@ -17,7 +17,6 @@ import Control.Monad (forM_, when, unless)
|
|||
import Control.Monad.Trans.Except (throwE)
|
||||
import Data.Aeson (FromJSON, ToJSON, decode', encode)
|
||||
import qualified Data.ByteString.Base64 as Base64
|
||||
import Data.ByteString.Conversion ()
|
||||
import Data.Char (toUpper)
|
||||
import Data.Monoid
|
||||
import Data.Proxy (Proxy (Proxy))
|
||||
|
|
Loading…
Reference in a new issue