One string conversion to rule them all

test/Unit/PgQuerySpec.hs

@@ -11,7 +11,8 @@ import PgQuery (insert)
 import Types (SqlRow(SqlRow))
 import TestTypes (fromList, incStr, incNullableStr, incInsert, incId)
 import Data.Map (toList)
-import Data.Text(pack)
+import Data.String.Conversions (cs)
+import Control.Arrow
 
 import SpecHelper(dbWithSchema)
 
@@ -39,7 +40,7 @@ spec = around dbWithSchema $ do
       it "throws an exception if the PK is not unique" $ \conn -> do
         r <- insert "1" "auto_incrementing_pk" (SqlRow [
             ("non_nullable_string", toSql ("a string"::String))]) conn
-        let row = SqlRow .  map (\(k, v) -> (pack k, v)) . toList $ r
+        let row = SqlRow .  map (Control.Arrow.first cs) . toList $ r
         insert "1" "auto_incrementing_pk" row conn `shouldThrow` \e ->
           seState e == "23505" -- uniqueness violation code