@@ -22,7 +22,7 @@ module Database.PostgreSQL.Simple.ToRow
2222 ) where
2323
2424import Database.PostgreSQL.Simple.ToField (Action(..), ToField(..))
25−import Database.PostgreSQL.Simple.Types (Only(..))
25+import Database.PostgreSQL.Simple.Types (Only(..), (:.)(..))
2626
2727-- | A collection type that can be turned into a list of rendering
2828-- 'Action's.
@@ -88,3 +88,6 @@ instance (ToField a, ToField b, ToField c, ToField d, ToField e, ToField f,
8888
8989instance (ToField a) => ToRow [a] where
9090 toRow = map toField
91+
92+instance (ToRow a, ToRow b) => ToRow (a :. b) where
93+ toRow (a :. b) = toRow a ++ toRow b