diff --git a/src/PostgREST/Private/Common.hs b/src/PostgREST/Private/Common.hs deleted file mode 100644 index 12b9d445c..000000000 --- a/src/PostgREST/Private/Common.hs +++ /dev/null @@ -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