@@ -1,4 +1,4 @@
1−{-# LANGUAGE DeriveDataTypeable, DeriveFunctor #-}
1+{-# LANGUAGE CPP, DeriveDataTypeable, DeriveFunctor #-}
22{-# LANGUAGE FlexibleInstances, TypeSynonymInstances #-}
33
44------------------------------------------------------------------------------
@@ -48,7 +48,12 @@ import Data.Vector (Vector)
4848import qualified Data.Vector as V
4949import qualified Database.PostgreSQL.LibPQ as PQ
5050import Database.PostgreSQL.Simple.Time
51−import Data.Scientific (Scientific, scientificBuilder)
51+import Data.Scientific (Scientific)
52+#if MIN_VERSION_scientific(0,3,0)
53+import Data.Text.Lazy.Builder.Scientific (scientificBuilder)
54+#else
55+import Data.Scientific (scientificBuilder)
56+#endif
5257
5358-- | How to render an element when substituting it into a query.
5459data Action =