r
/
fused-effects-exceptions
mirror of https://github.com/jrpotter/fused-effects-exceptions
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Placate hlint.

main
Rob Rix 2020-07-13 11:15:51 -04:00
parent 657ababae4
commit 39ca4b9b15
No known key found for this signature in database
GPG Key ID: 2BE643E01DC032AE
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Main.hs
View File

@ -19,12 +19,12 @@ problematic =
testStateDropsWrites :: Tasty.TestTree testStateDropsWrites :: Tasty.TestTree
testStateDropsWrites = HUnit.testCase "State.Strict drops writes" $ do testStateDropsWrites = HUnit.testCase "State.Strict drops writes" $ do
result <- State.execState 'a' $ problematic result <- State.execState 'a' problematic
result HUnit.@?= 'a' -- writes are lost result HUnit.@?= 'a' -- writes are lost
testIOStatePreservesWrites :: Tasty.TestTree testIOStatePreservesWrites :: Tasty.TestTree
testIOStatePreservesWrites = HUnit.testCase "State.IORef preserves writes" $ do testIOStatePreservesWrites = HUnit.testCase "State.IORef preserves writes" $ do
result <- IOState.execState 'a' $ problematic result <- IOState.execState 'a' problematic
result HUnit.@?= 'x' result HUnit.@?= 'x'
tests :: Tasty.TestTree tests :: Tasty.TestTree