refactor: Move hasql helpers to Common module

src/PostgREST/DbStructure.hs

@@ -40,21 +40,10 @@ import Unsafe                        (unsafeHead)
 
 import Control.Applicative
 
+import PostgREST.Private.Common
 import PostgREST.Types
 import Protolude
 
-column :: HD.Value a -> HD.Row a
-column = HD.column . HD.nonNullable
-
-nullableColumn :: HD.Value a -> HD.Row (Maybe a)
-nullableColumn = HD.column . HD.nullable
-
-element :: HD.Value a -> HD.Array a
-element = HD.element . HD.nonNullable
-
-param :: HE.Value a -> HE.Params a
-param = HE.param . HE.nonNullable
-
 getDbStructure :: Schema -> PgVersion -> HT.Transaction DbStructure
 getDbStructure schema pgVer = do
   HT.sql "set local schema ''" -- for getting the fully qualified name(schema.name) of every db object