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
28
29
30
31
|
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE TemplateHaskell #-}
module TemplateTestImports
( module TemplateTestImports
, module X
) where
import Data.Aeson.TH
import Test.QuickCheck
import Data.Int as X
import Database.Persist.Sql as X
import Database.Persist.TH as X
import Test.Hspec as X
import Data.Proxy as X
import Data.Text as X (Text)
import Data.Maybe
import Control.Monad
import Language.Haskell.TH.Syntax
data Foo = Bar | Baz
deriving (Show, Eq)
deriveJSON defaultOptions ''Foo
derivePersistFieldJSON "Foo"
instance Arbitrary Foo where
arbitrary = elements [Bar, Baz]
|
