1 {-# LANGUAGE FlexibleInstances #-}
2 {-# LANGUAGE MultiParamTypeClasses #-}
3 {-# OPTIONS_GHC -fno-warn-orphans #-}
5 module Gargantext.Database.Instances where
7 import Data.Time (UTCTime)
8 import Opaleye (PGInt4, PGTimestamptz, PGFloat8
9 , QueryRunnerColumnDefault
10 , queryRunnerColumnDefault
11 , fieldQueryRunnerColumn
14 instance QueryRunnerColumnDefault PGInt4 Integer where
15 queryRunnerColumnDefault = fieldQueryRunnerColumn
17 instance QueryRunnerColumnDefault PGFloat8 (Maybe Double) where
18 queryRunnerColumnDefault = fieldQueryRunnerColumn
20 instance QueryRunnerColumnDefault PGInt4 (Maybe Int) where
21 queryRunnerColumnDefault = fieldQueryRunnerColumn
23 instance QueryRunnerColumnDefault PGTimestamptz (Maybe UTCTime) where
24 queryRunnerColumnDefault = fieldQueryRunnerColumn