- fun boolFromSql "FALSE" = false
- | boolFromSql "f" = false
- | boolFromSql "false" = false
- | boolFromSql "n" = false
- | boolFromSql "no" = false
- | boolFromSql "0" = false
- | boolFromSql "" = false
- | boolFromSql _ = true
+ fun boolFromSql' "FALSE" = false
+ | boolFromSql' "f" = false
+ | boolFromSql' "false" = false
+ | boolFromSql' "n" = false
+ | boolFromSql' "no" = false
+ | boolFromSql' "0" = false
+ | boolFromSql' "" = false
+ | boolFromSql' _ = true
+
+ fun boolFromSql v = boolFromSql' (valueOf v)