Generate proper name for names involving tick characters purescript#133

paf31 · paf31 · commit 71ebb7b85eae · 2014-01-26T20:52:32.000-08:00
diff --git a/examples/passing/Tick.purs b/examples/passing/Tick.purs
@@ -0,0 +1,7 @@
+module Tick where
+
+test' x = x
+
+module Main where
+
+main = Trace.trace "Done"
diff --git a/src/Language/PureScript/Pretty/Common.hs b/src/Language/PureScript/Pretty/Common.hs
@@ -26,11 +26,13 @@ import Control.Arrow ((***), (<+>))
 import Language.PureScript.Names
 
 identToJs :: Ident -> String
-identToJs (Ident name) = name
-identToJs (Op op) = concatMap opCharToString op
-  where
-  opCharToString :: Char -> String
-  opCharToString = (:) '$'. show . ord
+identToJs (Ident name) = concatMap identCharToString name
+identToJs (Op op) = concatMap identCharToString op
+
+identCharToString :: Char -> String
+identCharToString c | isAlphaNum c = [c]
+identCharToString '_' = "_"
+identCharToString c = '$' : show (ord c)
 
 newtype Pattern u a b = Pattern { runPattern :: A.Kleisli (StateT u Maybe) a b } deriving (C.Category, A.Arrow, A.ArrowZero, A.ArrowPlus)
 
