87a275a · elk · git.iko.soy

Fix bugs:

* types rendered "::" instead of ":" * `Signal.count` was broken * Prelude didn't have `show`

commit87a275abebc92cc44710c7daba451834437941fe authorevancz <info@elm-lang.org> dateSun 24 Mar 2013, 19:17 (14 years ago) parent26ddaf6

3 files changed+3−2

unifiedsplit

compiler/Types/Types.hs+1−1

@@ -103,7 +103,7 @@ instance Show Type where

103103 EmptyRecord -> "{}"

104104 RecordT fs t ->

105105 start ++ intercalate ", " (concatMap fields $ Map.toList fs) ++ " }"

106− where field n s = n ++ " :: " ++ show s

106+ where field n s = n ++ " : " ++ show s

107107 fields (n,ss) = map (field n) ss

108108 start = case t of

109109 EmptyRecord -> "{ "

libraries/Native/Prelude.js+1

@@ -116,6 +116,7 @@ Elm.Native.Prelude = function(elm) {

116116 var M = Module(elm);

117117 for (var k in M) { prelude[k] = M[k] }

118118 }

119+ add(Elm.Native.Show);

119120 add(Elm.Signal);

120121 add(Elm.List);

121122 add(Elm.Maybe);

libraries/Native/Signal/Signal.js+1−1

@@ -227,7 +227,7 @@ Elm.Native.Signal = function(elm) {

227227 merges : merges,

228228 mergeEither : F2(mergeEither),

229229 average : F2(average),

230− count : function(s) { return foldp(F2(function(x,y) { return x+y }), 0, s) },

230+ count : function(s) { return foldp(F2(function(_,c) { return c+1 }), 0, s) },

231231 countIf : F2(function(pred,s) {

232232 return foldp(F2(function(x,c){return pred(x) ? c+1 : c}), 0, s)}),

233233 keepIf : F3(function(pred,base,sig) {