src/Data/Gargantext/Database/Instances.hs

   1 {-# LANGUAGE FlexibleInstances #-}
   2 {-# LANGUAGE MultiParamTypeClasses #-}
   3
   4 module Data.Gargantext.Database.Instances where
   5
   6 import Data.Time (UTCTime)
   7 import Opaleye (Column, PGBool, PGInt4, PGText, PGTimestamptz, PGFloat8
   8                , QueryRunnerColumnDefault
   9                , queryRunnerColumnDefault
  10                , fieldQueryRunnerColumn
  11                )
  12
  13 instance QueryRunnerColumnDefault PGInt4 Integer where
  14     queryRunnerColumnDefault = fieldQueryRunnerColumn
  15
  16 instance QueryRunnerColumnDefault PGFloat8 (Maybe Double) where
  17     queryRunnerColumnDefault = fieldQueryRunnerColumn
  18
  19 instance QueryRunnerColumnDefault PGInt4 (Maybe Int) where
  20     queryRunnerColumnDefault = fieldQueryRunnerColumn
  21
  22 instance QueryRunnerColumnDefault PGTimestamptz (Maybe UTCTime) where
  23   queryRunnerColumnDefault = fieldQueryRunnerColumn
  24
  25
  26
  27