Commits

Bryan O'Sullivan committed 6cd3531

Sod - missed an instance!

Comments (0)

Files changed (1)

Database/MySQL/Simple/Param.hs

                                  fromChar '\''
 
 instance Param (Binary LB.ByteString) where
-    render (Binary bs) = Plain $ fromByteString "0x" `mappend`
-                                 fromLazyByteString (L16.encode bs)
+    render (Binary bs) = Plain $ fromByteString "x'" `mappend`
+                                 fromLazyByteString (L16.encode bs) `mappend`
+                                 fromChar '\''
 
 renderNull :: Action
 renderNull = Plain (fromByteString "null")