Placate hlint.

2020-07-13 11:15:51 -04:00 · 2020-07-13 11:15:51 -04:00 · 39ca4b9b15
parent 657ababae4
commit 39ca4b9b15
1 changed files with 2 additions and 2 deletions
--- a/test/Main.hs
+++ b/test/Main.hs
@ -19,12 +19,12 @@ problematic =

 testStateDropsWrites :: Tasty.TestTree
 testStateDropsWrites = HUnit.testCase "State.Strict drops writes" $ do
-  result <- State.execState 'a' $ problematic
+  result <- State.execState 'a' problematic
  result HUnit.@?= 'a' -- writes are lost

 testIOStatePreservesWrites :: Tasty.TestTree
 testIOStatePreservesWrites = HUnit.testCase "State.IORef preserves writes" $ do
-  result <- IOState.execState 'a' $ problematic
+  result <- IOState.execState 'a' problematic
  result HUnit.@?= 'x'

 tests :: Tasty.TestTree