summaryrefslogtreecommitdiff
path: root/tests/Hakyll
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2013-05-04 15:18:26 +0200
committerJasper Van der Jeugt <m@jaspervdj.be>2013-05-04 15:18:26 +0200
commitca80171caf1328bc869c61d2f51b1fd657779532 (patch)
tree0d48ac5bd8c4b61d5f845005cbf9894f0099c237 /tests/Hakyll
parent3ac3037ec9f93a7bd368e4a135ce65d7590c7f37 (diff)
downloadhakyll-ca80171caf1328bc869c61d2f51b1fd657779532.tar.gz
Minor style changes
Diffstat (limited to 'tests/Hakyll')
-rw-r--r--tests/Hakyll/Core/Store/Tests.hs9
1 files changed, 3 insertions, 6 deletions
diff --git a/tests/Hakyll/Core/Store/Tests.hs b/tests/Hakyll/Core/Store/Tests.hs
index 389d7fd..0aa1aa4 100644
--- a/tests/Hakyll/Core/Store/Tests.hs
+++ b/tests/Hakyll/Core/Store/Tests.hs
@@ -72,15 +72,12 @@ wrongType = do
--------------------------------------------------------------------------------
-
isMembertest :: H.Assertion
isMembertest = do
store <- newTestStore
Store.set store ["foo", "bar"] ("qux" :: String)
- --value <- Store.get store ["foo", "bar"] :: IO (Store.Result Int)
good <- Store.isMember store ["foo", "bar"]
-
- bad <- Store.isMember store ["foo", "baz"]
- H.assert good
+ bad <- Store.isMember store ["foo", "baz"]
+ H.assert good
H.assert (not bad)
- cleanTestEnv \ No newline at end of file
+ cleanTestEnv