]> Git — Sourcephile - gargantext.git/blob - src/Data/Gargantext/Database/Instances.hs
[FEAT] NLP functions. Servant ClientM need to be fixed.
[gargantext.git] / src / Data / Gargantext / Database / Instances.hs
1 {-# LANGUAGE FlexibleInstances #-}
2 {-# LANGUAGE MultiParamTypeClasses #-}
3 {-# OPTIONS_GHC -fno-warn-orphans #-}
4
5 module Data.Gargantext.Database.Instances where
6
7 import Data.Time (UTCTime)
8 import Opaleye (PGInt4, PGTimestamptz, PGFloat8
9 , QueryRunnerColumnDefault
10 , queryRunnerColumnDefault
11 , fieldQueryRunnerColumn
12 )
13
14 instance QueryRunnerColumnDefault PGInt4 Integer where
15 queryRunnerColumnDefault = fieldQueryRunnerColumn
16
17 instance QueryRunnerColumnDefault PGFloat8 (Maybe Double) where
18 queryRunnerColumnDefault = fieldQueryRunnerColumn
19
20 instance QueryRunnerColumnDefault PGInt4 (Maybe Int) where
21 queryRunnerColumnDefault = fieldQueryRunnerColumn
22
23 instance QueryRunnerColumnDefault PGTimestamptz (Maybe UTCTime) where
24 queryRunnerColumnDefault = fieldQueryRunnerColumn