87a275a · elk · git.iko.soy

compiler/Types/Types.hs+1−1

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

103 EmptyRecord -> "{}"

104 RecordT fs t ->

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

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

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

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

108 start = case t of

109 EmptyRecord -> "{ "

libraries/Native/Prelude.js+1

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

116 var M = Module(elm);

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

118 }

119+ add(Elm.Native.Show);

119 add(Elm.Signal);

120 add(Elm.Signal);

120 add(Elm.List);

121 add(Elm.List);

121 add(Elm.Maybe);

122 add(Elm.Maybe);

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

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

227 merges : merges,

228 mergeEither : F2(mergeEither),

229 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) },

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

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

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