about summary refs log tree commit diff
path: root/test/Xanthous/DataSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Xanthous/DataSpec.hs')
-rw-r--r--test/Xanthous/DataSpec.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Xanthous/DataSpec.hs b/test/Xanthous/DataSpec.hs
index bd02c0f36fe5..a2fcdbba15e0 100644
--- a/test/Xanthous/DataSpec.hs
+++ b/test/Xanthous/DataSpec.hs
@@ -57,14 +57,14 @@ test = testGroup "Xanthous.Data"
 
   , testGroup "Corner"
     [ testGroup "instance Opposite"
-      [ testProperty "involutive" $ \corner ->
+      [ testProperty "involutive" $ \(corner :: Corner) ->
           opposite (opposite corner) === corner
       ]
     ]
 
   , testGroup "Edge"
     [ testGroup "instance Opposite"
-      [ testProperty "involutive" $ \edge ->
+      [ testProperty "involutive" $ \(edge :: Edge) ->
           opposite (opposite edge) === edge
       ]
     ]