Merge pull request #24 from haskell-works/newhoggy/support-for-named-…

…parameters

Support for named parameters

src/Data/RdsData/Encode/Params.hs

@@ -2,12 +2,15 @@
 
 module Data.RdsData.Encode.Params
   ( EncodeParams(..)
+  , EncodedParams(..)
+  , encode
 
   , rdsValue
 
   , column
 
   , maybe
+  , named
 
   , array
   , bool
@@ -62,10 +65,26 @@ import qualified Data.RdsData.Encode.Param            as EP
 import qualified Data.Text.Lazy                       as LT
 import qualified Prelude                              as P
 
+newtype EncodedParams = EncodedParams
+  { unEncodedParams :: [Param] -> [Param]
+  }
+
+instance Semigroup EncodedParams where
+  EncodedParams f <> EncodedParams g =
+    EncodedParams (f . g)
+
+instance Monoid EncodedParams where
+  mempty =
+    EncodedParams id
+
 newtype EncodeParams a = EncodeParams
   { encodeParams :: a -> [Param] -> [Param]
   }
 
+encode :: EncodeParams a -> a -> EncodedParams
+encode (EncodeParams f) a =
+  EncodedParams (f a)
+
 instance Contravariant EncodeParams where
   contramap f (EncodeParams g) =
     EncodeParams (g . f)
@@ -99,6 +118,11 @@ column :: EncodeParam a -> EncodeParams a
 column (EncodeParam f) =
   EncodeParams \a -> (f a:)
 
+named :: Text -> EncodeParam a -> EncodeParams a
+named n ep =
+  EncodeParams \a ->
+    (EP.encodeParam (EP.named n ep) a:)
+
 --------------------------------------------------------------------------------
 
 maybe :: EncodeParams a -> EncodeParams (Maybe a)