haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix error

Browse Source
This commit is contained in:
Amitaibu 2016-09-01 15:22:25 +03:00
parent 6ddfd07032
commit 827040f279
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-test/Yesod/Test.hs
View File

@ -402,7 +402,7 @@ bodyContains text = withResponse $ \ res ->
bodyNotContains :: String -> YesodExample site ()
bodyNotContains text = withResponse $ \ res ->
liftIO $ HUnit.assertBool ("Expected body not to contain " ++ text) $
not . contains (simpleBody res) text
not $ contains (simpleBody res) text
contains :: BSL8.ByteString -> String -> Bool
contains a b = DL.isInfixOf b (TL.unpack $ decodeUtf8 a)