refactor: remove obsoleted Private module (#1811)

2021-04-12 20:47:22 +02:00
parent d40d704043
commit c2c7bbe9dd
1 changed files with 0 additions and 38 deletions
@@ -1,38 +0,0 @@
-{-|
-Module      : PostgREST.Common
-Description : Common helper functions.
-}
-module PostgREST.Private.Common where
-
-import           Data.Maybe
-import qualified Hasql.Decoders                  as HD
-import qualified Hasql.DynamicStatements.Snippet as H
-import qualified Hasql.Encoders                  as HE
-import           Protolude
-
-import Data.Foldable (foldr1)
-
-column :: HD.Value a -> HD.Row a
-column = HD.column . HD.nonNullable
-
-compositeField :: HD.Value a -> HD.Composite a
-compositeField = HD.field . HD.nonNullable
-
-nullableColumn :: HD.Value a -> HD.Row (Maybe a)
-nullableColumn = HD.column . HD.nullable
-
-arrayColumn :: HD.Value a -> HD.Row [a]
-arrayColumn = column . HD.listArray . HD.nonNullable
-
-compositeArrayColumn :: HD.Composite a -> HD.Row [a]
-compositeArrayColumn = arrayColumn . HD.composite
-
-param :: HE.Value a -> HE.Params a
-param = HE.param . HE.nonNullable
-
-arrayParam :: HE.Value a -> HE.Params [a]
-arrayParam = param . HE.foldableArray . HE.nonNullable
-
-intercalateSnippet :: ByteString -> [H.Snippet] -> H.Snippet
-intercalateSnippet _ [] = mempty
-intercalateSnippet frag snippets = foldr1 (\a b -> a <> H.sql frag <> b) snippets