fix unused variable warning

diagrams · Nov 16, 2021 · 204f344 · 204f344
1 parent 07b9c40
commit 204f344
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Monoid/Cut.hs b/src/Data/Monoid/Cut.hs
@@ -62,7 +62,7 @@ instance Semigroup m => Semigroup (Cut m) where
   (m11 :||: _)  <> (_ :||: m22)  = m11       :||: m22
 
   stimes n (Uncut m) = Uncut (stimes n m)
-  stimes n (m      ) = m
+  stimes _ (m      ) = m
 
 instance (Semigroup m, Monoid m) => Monoid (Cut m) where
   mempty  = Uncut mempty