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

commands: escape chars in macro stringification

Browse Source
This commit is contained in:
hellerve 2018-08-08 15:41:11 +02:00
parent b1ee9ac07f
commit 5aa31aa0cb
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] =