diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-05-04 15:18:26 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-05-04 15:18:26 +0200 |
| commit | ca80171caf1328bc869c61d2f51b1fd657779532 (patch) | |
| tree | 0d48ac5bd8c4b61d5f845005cbf9894f0099c237 /tests/Hakyll | |
| parent | 3ac3037ec9f93a7bd368e4a135ce65d7590c7f37 (diff) | |
| download | hakyll-ca80171caf1328bc869c61d2f51b1fd657779532.tar.gz | |
Minor style changes
Diffstat (limited to 'tests/Hakyll')
| -rw-r--r-- | tests/Hakyll/Core/Store/Tests.hs | 9 |
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 |