carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-11 04:27:55 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #276 from hellerve/fix-char-macro-str

Browse Source 
Escape chars in macro stringification
This commit is contained in:
Erik Svedäng 2018-08-17 14:54:37 +02:00 committed by GitHub
commit f1c4f10f14
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Commands.hs
View File

@ -684,7 +684,10 @@ commandStr :: CommandCallback
commandStr xs =
return (Right (XObj (Str (join (map f xs))) (Just dummyInfo) (Just StringTy)))
where f (XObj (Str s) _ _) = s
f x = pretty x
f x = escape $ pretty x
escape [] = []
escape ('\\':y) = "\\\\" ++ escape y
escape (x:y) = x : escape y
commandNot :: CommandCallback
commandNot [x] =