on 06e6c05 help sign in
rel8/src/Rel8/Type/Sum.hs
34 lines 643 B history raw
1{-# language DataKinds #-}
2{-# language TypeFamilies #-}
3{-# language StandaloneKindSignatures #-}
5module Rel8.Type.Sum
6 ( DBSum
7 )
8where
10-- base
11import Data.Int ( Int16, Int32, Int64 )
12import Data.Kind ( Constraint, Type )
13import Prelude
15-- rel8
16import Rel8.Type ( DBType )
18-- scientific
19import Data.Scientific ( Scientific )
21-- time
22import Data.Time.Clock ( DiffTime, NominalDiffTime )
25type DBSum :: Type -> Constraint
26class DBType a => DBSum a
27instance DBSum Int16
28instance DBSum Int32
29instance DBSum Int64
30instance DBSum Float
31instance DBSum Double
32instance DBSum Scientific
33instance DBSum DiffTime
34instance DBSum NominalDiffTime