use Type

src/Data/Bool.hs

@@ -13,6 +13,7 @@
 -- | Defines the boolean type and logical operators
 module Data.Bool where
 
+import Data.Kind      (Type)
 import Data.TypeClass (Eq, Enum, Show)
 import Data.Singletons.TH
 import Data.Singletons.Prelude.Enum
@@ -21,7 +22,7 @@ import Data.Singletons.Prelude.Enum
 singletons [d|
 
   -- | Boolean Type
-  data 𝔹 ∷ ★ where
+  data 𝔹 ∷ Type where
     T ∷ 𝔹 -- ^ True
     F ∷ 𝔹 -- ^ False
     deriving (Eq, Show)