singletons-2.4: tests/compile-and-dump/Singletons/Empty.ghc84.template
Singletons/Empty.hs:(0,0)-(0,0): Splicing declarations
singletons [d| data Empty |]
======>
data Empty
data instance Sing (z :: Empty)
type SEmpty = (Sing :: Empty -> GHC.Types.Type)
instance SingKind Empty where
type Demote Empty = Empty
fromSing x = case x of
toSing x = SomeSing (case x of)