@@ -1,7 +1,7 @@
11{-# LANGUAGE GADTs, DataKinds, KindSignatures, TypeOperators, TypeFamilies,
22 MultiParamTypeClasses, FlexibleInstances, PolyKinds,
33 FlexibleContexts, UndecidableInstances, ConstraintKinds,
4− ScopedTypeVariables #-}
4+ ScopedTypeVariables, TypeInType #-}
55
66module Data.Type.Set (Set(..), Union, Unionable, union, quicksort, append,
77 Sort, Sortable, (:++), Split(..), Cmp, Filter, Flag(..),
@@ -16,7 +16,7 @@ import Data.Type.Equality
1616data Proxy (p :: k) = Proxy
1717
1818-- Value-level 'Set' representation, essentially a list
19−data Set (n :: [k]) :: * where
19+data Set (n :: [k]) where
2020 {--| Construct an empty set -}
2121 Empty :: Set '[]
2222 {--| Extend a set with an element -}
@@ -233,4 +233,4 @@ type family MemberP a s :: Bool where
233233 MemberP a (a ': s) = True
234234 MemberP a (b ': s) = MemberP a s
235235
236−type NonMember a s = MemberP a s ~ False
236+type NonMember a s = MemberP a s ~ False