Skip to content

Commit

Permalink
fix tests
Browse files Browse the repository at this point in the history
  • Loading branch information
Timo von Holtz committed Feb 20, 2015
1 parent 6db3f34 commit 937e7c2
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion test/Servant/API/ContentTypesSpec.hs
Original file line number Diff line number Diff line change
Expand Up @@ -40,7 +40,7 @@ spec = describe "Servant.API.ContentTypes" $ do

it "has fromByteString reverse toByteString" $ do
let p = Proxy :: Proxy FormUrlEncoded
property $ \x -> fromByteString p (toByteString p x) == Right (x::[(TextL.Text,TextL.Text)])
property $ \x -> fromByteString p (toByteString p x) == Right (x::[(TextS.Text,TextS.Text)])


data SomeData = SomeData { record1 :: String, record2 :: Int }
Expand Down

0 comments on commit 937e7c2

Please sign in to comment.