From 827040f279562a6b93d69bb0d864af844b7f81b3 Mon Sep 17 00:00:00 2001
From: Amitaibu <amitai@gizra.com>
Date: Thu, 1 Sep 2016 15:22:25 +0300
Subject: [PATCH] Fix error

---
 yesod-test/Yesod/Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs
index 6ef46285..b3cf4a29 100644
--- a/yesod-test/Yesod/Test.hs
+++ b/yesod-test/Yesod/Test.hs
@@ -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)