generic-deriving-1.12: tests/EmptyCaseSpec.hs

{-# LANGUAGE CPP #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}

#if __GLASGOW_HASKELL__ >= 706
{-# LANGUAGE DataKinds #-}
#endif

#if __GLASGOW_HASKELL__ >= 708
{-# LANGUAGE EmptyCase #-}
#endif

module EmptyCaseSpec (main, spec) where

import Generics.Deriving.TH
import Test.Hspec

data Empty a
$(deriveAll0And1Options defaultOptions{emptyCaseOptions = True}
                        ''Empty)

main :: IO ()
main = hspec spec

spec :: Spec
spec = return ()