master...1fc048e · servant

git.iko.soy/servant

on 1fc048e help sign in

3 files changed+3−3

since splitsnapshots

unifiedsplit

servant-server/servant-server.cabal+1−1

@@ -51,7 +51,7 @@ library

5151 , safe >= 0.3 && < 0.4

5252 , servant == 0.4.*

5353 , split >= 0.2 && < 0.3

54− , string-conversions >= 0.3 && < 0.4

54+ , string-conversions >= 0.3 && < 0.5

5555 , system-filepath >= 0.4 && < 0.5

5656 , filepath >= 1

5757 , text >= 1.2 && < 1.3

servant/servant.cabal+1−1

@@ -55,7 +55,7 @@ library

5555 , http-media >= 0.4 && < 0.7

5656 , http-types == 0.8.*

5757 , text >= 1 && < 2

58− , string-conversions >= 0.3 && < 0.4

58+ , string-conversions >= 0.3 && < 0.5

5959 , network-uri >= 2.6

6060 hs-source-dirs: src

6161 default-language: Haskell2010

servant/src/Servant/API/ContentTypes.hs+1−1

@@ -166,7 +166,7 @@ instance ( AllMimeRender ctyps a, IsNonEmpty ctyps

166166 handleAcceptH _ (AcceptHeader accept) val = M.mapAcceptMedia lkup accept

167167 where pctyps = Proxy :: Proxy ctyps

168168 amrs = allMimeRender pctyps val

169− lkup = fmap (\(a,b) -> (a, (cs $ show a, b))) amrs

169+ lkup = fmap (\(a,b) -> (a, (fromStrict $ M.renderHeader a, b))) amrs

170170

171171

172172--------------------------------------------------------------------------