dhscanner-kbgen 1.0.8 → 1.0.9

raw patch · 2 files changed

+5/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• dhscanner-kbgen.cabal +1/−1
• src/Kbgen.hs +4/−1

@@ -33,7 +33,7 @@         * explain in plain English your query's purpose
         * et voilà !
 
-version:            1.0.8
+version:            1.0.9
 license:            GPL-3.0-only
 license-file:       LICENSE
 author:             OrenGitHub

@@ -510,8 +510,11 @@ prologify_ClassName :: ClassName -> String
 prologify_ClassName (ClassName (Class loc) (Token.ClassName (Token.Named name _))) = prologify_ClassName' loc name
 
+unquote :: String -> String
+unquote = filter (/= '\'')
+
 prologify_ConstString' :: Location -> String -> String
-prologify_ConstString' l value = printf "kb_const_string( %s, \'%s\' )." (locationify l) value
+prologify_ConstString' l value = printf "kb_const_string( %s, \'%s\' )." (locationify l) (unquote value)
 
 prologify_ConstString :: ConstString -> String
 prologify_ConstString (ConstString (ConstStr loc) (Token.ConstStr value _)) = prologify_ConstString' loc value