git.iko.soy/elk
on master help sign in
* Fix renaming issue with `a1`, `a2`, etc. as described in [issue 75](https://github.com/evancz/Elm/issues/75)
5bf237devancz
core-js/Automaton.js+1−1
compare with master
unifiedsplit
@@ -210,7 +210,7 @@ Elm.Automaton=function(){
210 combine:combine_3,
210 combine:combine_3,
211 pure:pure_4,
211 pure:pure_4,
212 init:init_5,
212 init:init_5,
213− init_:init__6,
213+ init$:init__6,
214 count:count_7,
214 count:count_7,
215 draggable:draggable_13};}();
215 draggable:draggable_13};}();
216Elm.main=function(){
216Elm.main=function(){
core-js/Prelude.js+1−1
@@ -161,7 +161,7 @@ Elm.Prelude = function() {
161 lift8 : Elm.Signal.lift8,
161 lift8 : Elm.Signal.lift8,
162 foldp : Elm.Signal.foldp,
162 foldp : Elm.Signal.foldp,
163 foldp1 : Elm.Signal.foldp1,
163 foldp1 : Elm.Signal.foldp1,
164− foldp_ : Elm.Signal.foldp_,
164+ foldp$ : Elm.Signal.foldp$,
165 constant : Elm.Signal.constant,
165 constant : Elm.Signal.constant,
166 merge : Elm.Signal.merge,
166 merge : Elm.Signal.merge,
167 count : Elm.Signal.count,
167 count : Elm.Signal.count,
core-js/cat.bat+1−1
@@ -2,4 +2,4 @@ copy /B Guid.js+foreign\JavaScript.js+foreign\JSON.js+Value.js+List.js+Maybe.js+
2
2
3cd ..\elm
3cd ..\elm
4
4
5−copy /B ..\elm-mini.js elm-runtime-0.7.js
5+copy /B ..\elm-mini.js elm-runtime-0.7.0.1.js
core-js/runtime/Signal.js+1−1
@@ -249,7 +249,7 @@ Elm.Signal = function() {
249 return new lift(f, [e1,e2,e3,e4,e5,e6,e7,e8]);};};};};};};};};},
249 return new lift(f, [e1,e2,e3,e4,e5,e6,e7,e8]);};};};};};};};};},
250 foldp : function(f) { return function(b) { return function(e) {
250 foldp : function(f) { return function(b) { return function(e) {
251 return new fold(f,b,false,e); }; }; },
251 return new fold(f,b,false,e); }; }; },
252− foldp_ : function(f) { return function(b) { return function(e) {
252+ foldp$ : function(f) { return function(b) { return function(e) {
253 return new fold(f,b,true,e); }; }; },
253 return new fold(f,b,true,e); }; }; },
254 foldp1 : function(f) { return function(e) {
254 foldp1 : function(f) { return function(e) {
255 return new fold(f,function(x){return x;},true,e); }; },
255 return new fold(f,function(x){return x;},true,e); }; },
elm/Elm.cabal+2−2
@@ -1,6 +1,6 @@
1
1
2Name: Elm
2Name: Elm
3−Version: 0.7
3+Version: 0.7.0.1
4Synopsis: The Elm language module.
4Synopsis: The Elm language module.
5Description: Elm aims to make client-side web-development more pleasant.
5Description: Elm aims to make client-side web-development more pleasant.
6 It is a statically/strongly typed, functional reactive
6 It is a statically/strongly typed, functional reactive
@@ -22,7 +22,7 @@ Category: Compiler, Language
22Build-type: Simple
22Build-type: Simple
23
23
24Extra-source-files: changelog.txt
24Extra-source-files: changelog.txt
25−Data-files: elm-runtime-0.7.js
25+Data-files: elm-runtime-0.7.0.1.js
26Cabal-version: >=1.8
26Cabal-version: >=1.8
27
27
28source-repository head
28source-repository head
elm/src/Parse/Patterns.hs+4−4
@@ -55,11 +55,11 @@ extract pattern body@(C t s _) =
55 PVar x -> return $ fn x body
55 PVar x -> return $ fn x body
56 PData name ps -> do
56 PData name ps -> do
57 x <- guid
57 x <- guid
58− let a = 'a' : show x
58+ let a = '_' : show x
59 return . fn a . ctx $ Case (ctx (Var a)) [(pattern, body)]
59 return . fn a . ctx $ Case (ctx (Var a)) [(pattern, body)]
60 PRecord fs -> do
60 PRecord fs -> do
61 x <- guid
61 x <- guid
62− let a = 'a' : show x
62+ let a = '_' : show x
63 toDef f = FnDef f [] (ctx $ Access (ctx $ Var a) f)
63 toDef f = FnDef f [] (ctx $ Access (ctx $ Var a) f)
64 return . fn a . ctx $ Let (map toDef fs) body
64 return . fn a . ctx $ Let (map toDef fs) body
65
65
@@ -89,7 +89,7 @@ matchSingle pat exp@(C t s _) p =
89 let ctx = C t s in
89 let ctx = C t s in
90 case p of
90 case p of
91 PData _ ps -> do x <- guid
91 PData _ ps -> do x <- guid
92− let v = 'a' : show x
92+ let v = '_' : show x
93 dss <- mapM (matchSingle p . ctx $ Var v) ps
93 dss <- mapM (matchSingle p . ctx $ Var v) ps
94 return (FnDef v [] exp : concat dss)
94 return (FnDef v [] exp : concat dss)
95
95
@@ -97,7 +97,7 @@ matchSingle pat exp@(C t s _) p =
97 return [ FnDef x [] (ctx $ Case exp [(pat, ctx $ Var x)]) ]
97 return [ FnDef x [] (ctx $ Case exp [(pat, ctx $ Var x)]) ]
98
98
99 PRecord fs -> do
99 PRecord fs -> do
100− a <- (\x -> 'a' : show x) `liftM` guid
100+ a <- (\x -> '_' : show x) `liftM` guid
101 let toDef f = FnDef f [] (ctx $ Access (ctx $ Var a) f)
101 let toDef f = FnDef f [] (ctx $ Access (ctx $ Var a) f)
102 return (FnDef a [] exp : map toDef fs)
102 return (FnDef a [] exp : map toDef fs)
103
103
elm/src/Rename.hs+1−1
@@ -109,7 +109,7 @@ instance Rename Expr where
109
109
110 _ -> return expr
110 _ -> return expr
111
111
112−deprime = map (\c -> if c == '\'' then '_' else c)
112+deprime = map (\c -> if c == '\'' then '$' else c)
113
113
114extend :: (String -> String) -> String -> GuidCounter (String, String -> String)
114extend :: (String -> String) -> String -> GuidCounter (String, String -> String)
115extend env x = do
115extend env x = do