@@ -261,6 +261,8 @@ instance ToParam (NetAddr IP) 'PGinet where toParam = K . Encoding.inet
261instance ToParam Char ('PGchar 1) where toParam = K . Encoding.char_utf8
261instance ToParam Char ('PGchar 1) where toParam = K . Encoding.char_utf8
262instance ToParam Strict.Text 'PGtext where toParam = K . Encoding.text_strict
262instance ToParam Strict.Text 'PGtext where toParam = K . Encoding.text_strict
263instance ToParam Lazy.Text 'PGtext where toParam = K . Encoding.text_lazy
263instance ToParam Lazy.Text 'PGtext where toParam = K . Encoding.text_lazy
264+instance ToParam String 'PGtext where
265+ toParam = K . Encoding.text_strict . Strict.pack
264instance ToParam Strict.ByteString 'PGbytea where
266instance ToParam Strict.ByteString 'PGbytea where
265 toParam = K . Encoding.bytea_strict
267 toParam = K . Encoding.bytea_strict
266instance ToParam Lazy.ByteString 'PGbytea where
268instance ToParam Lazy.ByteString 'PGbytea where
@@ -437,6 +439,8 @@ instance FromValue 'PGinet (NetAddr IP) where fromValue = Decoding.inet
437instance FromValue ('PGchar 1) Char where fromValue = Decoding.char
439instance FromValue ('PGchar 1) Char where fromValue = Decoding.char
438instance FromValue 'PGtext Strict.Text where fromValue = Decoding.text_strict
440instance FromValue 'PGtext Strict.Text where fromValue = Decoding.text_strict
439instance FromValue 'PGtext Lazy.Text where fromValue = Decoding.text_lazy
441instance FromValue 'PGtext Lazy.Text where fromValue = Decoding.text_lazy
442+instance FromValue 'PGtext String where
443+ fromValue = Strict.unpack <$> Decoding.text_strict
440instance FromValue 'PGbytea Strict.ByteString where
444instance FromValue 'PGbytea Strict.ByteString where
441 fromValue = Decoding.bytea_strict
445 fromValue = Decoding.bytea_strict
442instance FromValue 'PGbytea Lazy.ByteString where
446instance FromValue 'PGbytea Lazy.ByteString where