Merge pull request #11 from scrive/master

Convertible from SqlValue to SqlValue
hdbc · Dec 1, 2011 · 68f1d34 · 68f1d34
2 parents d2c5d08 + 2e3cbd0
commit 68f1d34
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Database/HDBC/SqlValue.hs b/Database/HDBC/SqlValue.hs
@@ -242,6 +242,9 @@ instance Eq SqlValue where
     a == b = ((safeFromSql a)::ConvertResult String) == 
              ((safeFromSql b)::ConvertResult String)
 
+instance Convertible SqlValue SqlValue where
+    safeConvert = return
+
 instance Convertible String SqlValue where
     safeConvert = return . SqlString
 instance Convertible SqlValue String where