Sod - missed an instance!

paul-rouse · Jun 1, 2011 · 14a9f31 · 14a9f31
1 parent 7d4a015
commit 14a9f31
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Database/MySQL/Simple/Param.hs b/Database/MySQL/Simple/Param.hs
@@ -90,8 +90,9 @@ instance Param (Binary SB.ByteString) where
                                  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")