1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{-# 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 ()
|
