Data.Kind (fix warning)

robx · May 17, 2022 · 7131743 · 7131743
1 parent 8f5e85b
commit 7131743
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Data/GridShape.hs b/src/Data/GridShape.hs
@@ -42,6 +42,7 @@ where
 
 import Data.AffineSpace
 import qualified Data.Foldable as F
+import Data.Kind (Type)
 import Data.List
   ( groupBy,
     partition,
@@ -158,7 +159,7 @@ edge p q = unorient $ edge' p q
 
 class Dual2D a where
 
-  type Dual a :: *
+  type Dual a :: Type
 
   dualE' :: Edge' a -> Edge' (Dual a)