src/Gargantext/Database/Instances.hs

   1 {-# LANGUAGE FlexibleInstances #-}
   2 {-# LANGUAGE MultiParamTypeClasses #-}
   3 {-# OPTIONS_GHC -fno-warn-orphans #-}
   4
   5 module 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
  25
  26