singletons-base-3.2: tests/compile-and-dump/Singletons/T332.hs

module T332 where

import Data.Singletons.Base.TH

$(promote [d|
  data Foo = MkFoo

  f :: Foo -> ()
  f MkFoo{} = ()
  |])

$(singletons [d|
  data Bar = MkBar

  b :: Bar -> ()
  b MkBar{} = ()
  |])