2012-10-19 07:13:28 +00:00
try {
for ( var i in Elm ) { this [ i ] = Elm [ i ] ; }
if ( Elm . Dict ) throw "Module name collision, 'Dict' is already defined." ;
Elm . Dict = function ( ) {
try { if ( ! ( Elm . Prelude instanceof Object ) ) throw 'module not found' ; } catch ( e ) { throw "Module 'Prelude' is missing. Compile with --make flag or load missing module in a separate JavaScript file." ; }
var hiddenVars = [ ] ;
for ( var i in Elm . Prelude ) {
if ( hiddenVars . indexOf ( i ) >= 0 ) continue ;
this [ i ] = Elm . Prelude [ i ] ; }
try { if ( ! ( Elm . Maybe instanceof Object ) ) throw 'module not found' ; } catch ( e ) { throw "Module 'Maybe' is missing. Compile with --make flag or load missing module in a separate JavaScript file." ; }
var isJust = Elm . Maybe . isJust ;
var Red _0 = [ "Red" ] ;
var Black _1 = [ "Black" ] ;
function RBNode _2 ( a1 ) {
return function ( a2 ) {
return function ( a3 ) {
return function ( a4 ) {
return function ( a5 ) {
return [ "RBNode" , a1 , a2 , a3 , a4 , a5 ] ; } ; } ; } ; } ; } ;
var RBEmpty _3 = [ "RBEmpty" ] ;
var empty _4 = RBEmpty _3 ;
var raise _5 = console . log ;
function min _6 ( t _43 ) {
return function ( ) {
switch ( t _43 [ 0 ] ) {
case "RBEmpty" :
return raise _5 ( Value . str ( "(min RBEmpty) is not defined" ) ) ;
case "RBNode" :
switch ( t _43 [ 4 ] [ 0 ] ) {
case "RBEmpty" :
return [ "Tuple2" , t _43 [ 2 ] , t _43 [ 3 ] ] ;
}
return min _6 ( t _43 [ 4 ] ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ;
function lookup _7 ( k _47 ) {
return function ( t _48 ) {
return function ( ) {
switch ( t _48 [ 0 ] ) {
case "RBEmpty" :
return Nothing ;
case "RBNode" :
return function ( ) {
var case6 = compare ( k _47 ) ( t _48 [ 2 ] ) ;
switch ( case6 [ 0 ] ) {
case "EQ" :
return Just ( t _48 [ 3 ] ) ;
case "GT" :
return lookup _7 ( k _47 ) ( t _48 [ 5 ] ) ;
case "LT" :
return lookup _7 ( k _47 ) ( t _48 [ 4 ] ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ; } ;
function findWithDefault _8 ( base _53 ) {
return function ( k _54 ) {
return function ( t _55 ) {
return function ( ) {
switch ( t _55 [ 0 ] ) {
case "RBEmpty" :
return base _53 ;
case "RBNode" :
return function ( ) {
var case6 = compare ( k _54 ) ( t _55 [ 2 ] ) ;
switch ( case6 [ 0 ] ) {
case "EQ" :
return t _55 [ 3 ] ;
case "GT" :
return findWithDefault _8 ( base _53 ) ( k _54 ) ( t _55 [ 5 ] ) ;
case "LT" :
return findWithDefault _8 ( base _53 ) ( k _54 ) ( t _55 [ 4 ] ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ; } ; } ;
function find _9 ( k _60 ) {
return function ( t _61 ) {
return function ( ) {
switch ( t _61 [ 0 ] ) {
case "RBEmpty" :
return raise _5 ( Value . str ( "Key was not found in dictionary!" ) ) ;
case "RBNode" :
return function ( ) {
var case6 = compare ( k _60 ) ( t _61 [ 2 ] ) ;
switch ( case6 [ 0 ] ) {
case "EQ" :
return t _61 [ 3 ] ;
case "GT" :
return find _9 ( k _60 ) ( t _61 [ 5 ] ) ;
case "LT" :
return find _9 ( k _60 ) ( t _61 [ 4 ] ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ; } ;
function member _10 ( k _66 ) {
return function ( t _67 ) {
return isJust ( lookup _7 ( k _66 ) ( t _67 ) ) ; } ; } ;
function rotateLeft _11 ( t _68 ) {
return function ( ) {
switch ( t _68 [ 0 ] ) {
case "RBNode" :
switch ( t _68 [ 5 ] [ 0 ] ) {
case "RBNode" :
return RBNode _2 ( t _68 [ 1 ] ) ( t _68 [ 5 ] [ 2 ] ) ( t _68 [ 5 ] [ 3 ] ) ( RBNode _2 ( Red _0 ) ( t _68 [ 2 ] ) ( t _68 [ 3 ] ) ( t _68 [ 4 ] ) ( t _68 [ 5 ] [ 4 ] ) ) ( t _68 [ 5 ] [ 5 ] ) ;
} break ;
}
return raise _5 ( Value . str ( "rotateLeft of a node without enough children" ) ) ; } ( ) ; } ;
function rotateRight _12 ( t _78 ) {
return function ( ) {
switch ( t _78 [ 0 ] ) {
case "RBNode" :
switch ( t _78 [ 4 ] [ 0 ] ) {
case "RBNode" :
return RBNode _2 ( t _78 [ 1 ] ) ( t _78 [ 4 ] [ 2 ] ) ( t _78 [ 4 ] [ 3 ] ) ( t _78 [ 4 ] [ 4 ] ) ( RBNode _2 ( Red _0 ) ( t _78 [ 2 ] ) ( t _78 [ 3 ] ) ( t _78 [ 4 ] [ 5 ] ) ( t _78 [ 5 ] ) ) ;
} break ;
}
return raise _5 ( Value . str ( "rotateRight of a node without enough children" ) ) ; } ( ) ; } ;
function rotateLeftIfNeeded _13 ( t _88 ) {
return function ( ) {
switch ( t _88 [ 0 ] ) {
case "RBNode" :
switch ( t _88 [ 5 ] [ 0 ] ) {
case "RBNode" :
switch ( t _88 [ 5 ] [ 1 ] [ 0 ] ) {
case "Red" :
return rotateLeft _11 ( t _88 ) ;
} break ;
} break ;
}
return t _88 ; } ( ) ; } ;
function rotateRightIfNeeded _14 ( t _89 ) {
return function ( ) {
switch ( t _89 [ 0 ] ) {
case "RBNode" :
switch ( t _89 [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _89 [ 4 ] [ 1 ] [ 0 ] ) {
case "Red" :
switch ( t _89 [ 4 ] [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _89 [ 4 ] [ 4 ] [ 1 ] [ 0 ] ) {
case "Red" :
return rotateRight _12 ( t _89 ) ;
} break ;
} break ;
} break ;
} break ;
}
return t _89 ; } ( ) ; } ;
function otherColor _15 ( c _90 ) {
return function ( ) {
switch ( c _90 [ 0 ] ) {
case "Black" :
return Red _0 ;
case "Red" :
return Black _1 ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ;
function color _flip _16 ( t _91 ) {
return function ( ) {
switch ( t _91 [ 0 ] ) {
case "RBNode" :
switch ( t _91 [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _91 [ 5 ] [ 0 ] ) {
case "RBNode" :
return RBNode _2 ( otherColor _15 ( t _91 [ 1 ] ) ) ( t _91 [ 2 ] ) ( t _91 [ 3 ] ) ( RBNode _2 ( otherColor _15 ( t _91 [ 4 ] [ 1 ] ) ) ( t _91 [ 4 ] [ 2 ] ) ( t _91 [ 4 ] [ 3 ] ) ( t _91 [ 4 ] [ 4 ] ) ( t _91 [ 4 ] [ 5 ] ) ) ( RBNode _2 ( otherColor _15 ( t _91 [ 5 ] [ 1 ] ) ) ( t _91 [ 5 ] [ 2 ] ) ( t _91 [ 5 ] [ 3 ] ) ( t _91 [ 5 ] [ 4 ] ) ( t _91 [ 5 ] [ 5 ] ) ) ;
} break ;
} break ;
}
return raise _5 ( Value . str ( "color_flip called on a RBEmpty or RBNode with a RBEmpty child" ) ) ; } ( ) ; } ;
function color _flipIfNeeded _17 ( t _105 ) {
return function ( ) {
switch ( t _105 [ 0 ] ) {
case "RBNode" :
switch ( t _105 [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _105 [ 4 ] [ 1 ] [ 0 ] ) {
case "Red" :
switch ( t _105 [ 5 ] [ 0 ] ) {
case "RBNode" :
switch ( t _105 [ 5 ] [ 1 ] [ 0 ] ) {
case "Red" :
return color _flip _16 ( t _105 ) ;
} break ;
} break ;
} break ;
} break ;
}
return t _105 ; } ( ) ; } ;
function fixUp _18 ( t _106 ) {
return color _flipIfNeeded _17 ( rotateRightIfNeeded _14 ( rotateLeftIfNeeded _13 ( t _106 ) ) ) ; } ;
function ensureBlackRoot _19 ( t _107 ) {
return function ( ) {
switch ( t _107 [ 0 ] ) {
case "RBNode" :
switch ( t _107 [ 1 ] [ 0 ] ) {
case "Red" :
return RBNode _2 ( Black _1 ) ( t _107 [ 2 ] ) ( t _107 [ 3 ] ) ( t _107 [ 4 ] ) ( t _107 [ 5 ] ) ;
} break ;
}
return t _107 ; } ( ) ; } ;
function insert _20 ( k _112 ) {
return function ( v _113 ) {
return function ( t _114 ) {
return function ( ) {
function ins _115 ( t _116 ) {
return function ( ) {
switch ( t _116 [ 0 ] ) {
case "RBEmpty" :
return RBNode _2 ( Red _0 ) ( k _112 ) ( v _113 ) ( RBEmpty _3 ) ( RBEmpty _3 ) ;
case "RBNode" :
return function ( ) {
var h _122 = function ( ) {
var case6 = compare ( k _112 ) ( t _116 [ 2 ] ) ;
switch ( case6 [ 0 ] ) {
case "EQ" :
return RBNode _2 ( t _116 [ 1 ] ) ( t _116 [ 2 ] ) ( v _113 ) ( t _116 [ 4 ] ) ( t _116 [ 5 ] ) ;
case "GT" :
return RBNode _2 ( t _116 [ 1 ] ) ( t _116 [ 2 ] ) ( t _116 [ 3 ] ) ( t _116 [ 4 ] ) ( ins _115 ( t _116 [ 5 ] ) ) ;
case "LT" :
return RBNode _2 ( t _116 [ 1 ] ) ( t _116 [ 2 ] ) ( t _116 [ 3 ] ) ( ins _115 ( t _116 [ 4 ] ) ) ( t _116 [ 5 ] ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ;
return fixUp _18 ( h _122 ) ; } ( ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ;
return ensureBlackRoot _19 ( ins _115 ( t _114 ) ) ; } ( ) ; } ; } ; } ;
function singleton _21 ( k _123 ) {
return function ( v _124 ) {
return insert _20 ( k _123 ) ( v _124 ) ( RBEmpty _3 ) ; } ; } ;
function isRed _22 ( t _125 ) {
return function ( ) {
switch ( t _125 [ 0 ] ) {
case "RBNode" :
switch ( t _125 [ 1 ] [ 0 ] ) {
case "Red" :
return true ;
} break ;
}
return false ; } ( ) ; } ;
function isRedLeft _23 ( t _126 ) {
return function ( ) {
switch ( t _126 [ 0 ] ) {
case "RBNode" :
switch ( t _126 [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _126 [ 4 ] [ 1 ] [ 0 ] ) {
case "Red" :
return true ;
} break ;
} break ;
}
return false ; } ( ) ; } ;
function isRedLeftLeft _24 ( t _127 ) {
return function ( ) {
switch ( t _127 [ 0 ] ) {
case "RBNode" :
switch ( t _127 [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _127 [ 4 ] [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _127 [ 4 ] [ 4 ] [ 1 ] [ 0 ] ) {
case "Red" :
return true ;
} break ;
} break ;
} break ;
}
return false ; } ( ) ; } ;
function isRedRight _25 ( t _128 ) {
return function ( ) {
switch ( t _128 [ 0 ] ) {
case "RBNode" :
switch ( t _128 [ 5 ] [ 0 ] ) {
case "RBNode" :
switch ( t _128 [ 5 ] [ 1 ] [ 0 ] ) {
case "Red" :
return true ;
} break ;
} break ;
}
return false ; } ( ) ; } ;
function isRedRightLeft _26 ( t _129 ) {
return function ( ) {
switch ( t _129 [ 0 ] ) {
case "RBNode" :
switch ( t _129 [ 5 ] [ 0 ] ) {
case "RBNode" :
switch ( t _129 [ 5 ] [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _129 [ 5 ] [ 4 ] [ 1 ] [ 0 ] ) {
case "Red" :
return true ;
} break ;
} break ;
} break ;
}
return false ; } ( ) ; } ;
function moveRedLeft _27 ( t _130 ) {
return function ( ) {
var t _ _131 = color _flip _16 ( t _130 ) ;
return function ( ) {
switch ( t _ _131 [ 0 ] ) {
case "RBNode" :
return function ( ) {
switch ( t _ _131 [ 5 ] [ 0 ] ) {
case "RBNode" :
switch ( t _ _131 [ 5 ] [ 4 ] [ 0 ] ) {
case "RBNode" :
switch ( t _ _131 [ 5 ] [ 4 ] [ 1 ] [ 0 ] ) {
case "Red" :
return color _flip _16 ( rotateLeft _11 ( RBNode _2 ( t _ _131 [ 1 ] ) ( t _ _131 [ 2 ] ) ( t _ _131 [ 3 ] ) ( t _ _131 [ 4 ] ) ( rotateRight _12 ( t _ _131 [ 5 ] ) ) ) ) ;
} break ;
} break ;
}
return t _ _131 ; } ( ) ;
}
return t _ _131 ; } ( ) ; } ( ) ; } ;
function moveRedRight _28 ( t _137 ) {
return function ( ) {
var t _ _138 = color _flip _16 ( t _137 ) ;
return ( isRedLeftLeft _24 ( t _ _138 ) ? color _flip _16 ( rotateRight _12 ( t _ _138 ) ) : t _ _138 ) ; } ( ) ; } ;
function moveRedLeftIfNeeded _29 ( t _139 ) {
return ( ( not ( isRedLeft _23 ( t _139 ) ) && not ( isRedLeftLeft _24 ( t _139 ) ) ) ? moveRedLeft _27 ( t _139 ) : t _139 ) ; } ;
function moveRedRightIfNeeded _30 ( t _140 ) {
return ( ( not ( isRedRight _25 ( t _140 ) ) && not ( isRedRightLeft _26 ( t _140 ) ) ) ? moveRedRight _28 ( t _140 ) : t _140 ) ; } ;
function deleteMin _31 ( t _141 ) {
return function ( ) {
function del _142 ( t _143 ) {
return function ( ) {
switch ( t _143 [ 0 ] ) {
case "RBNode" :
switch ( t _143 [ 4 ] [ 0 ] ) {
case "RBEmpty" :
return RBEmpty _3 ;
} break ;
}
return function ( ) {
var t _ _144 = moveRedLeftIfNeeded _29 ( t _143 ) ;
return function ( ) {
switch ( t _ _144 [ 0 ] ) {
case "RBEmpty" :
return RBEmpty _3 ;
case "RBNode" :
return fixUp _18 ( RBNode _2 ( t _ _144 [ 1 ] ) ( t _ _144 [ 2 ] ) ( t _ _144 [ 3 ] ) ( del _142 ( t _ _144 [ 4 ] ) ) ( t _ _144 [ 5 ] ) ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ( ) ; } ( ) ; } ;
return ensureBlackRoot _19 ( del _142 ( t _141 ) ) ; } ( ) ; } ;
function remove _32 ( k _150 ) {
return function ( t _151 ) {
return function ( ) {
function eq _and _noRightNode _152 ( t _153 ) {
return function ( ) {
switch ( t _153 [ 0 ] ) {
case "RBNode" :
switch ( t _153 [ 5 ] [ 0 ] ) {
case "RBEmpty" :
return eq ( k _150 , t _153 [ 2 ] ) ;
} break ;
}
return false ; } ( ) ; } ;
return function ( ) {
function eq _155 ( t _156 ) {
return function ( ) {
switch ( t _156 [ 0 ] ) {
case "RBNode" :
return eq ( k _150 , t _156 [ 2 ] ) ;
}
return false ; } ( ) ; } ;
return function ( ) {
function delLT _158 ( t _159 ) {
return function ( ) {
var t _ _160 = moveRedLeftIfNeeded _29 ( t _159 ) ;
return function ( ) {
switch ( t _ _160 [ 0 ] ) {
case "RBEmpty" :
return raise _5 ( Value . str ( "delLT on RBEmpty" ) ) ;
case "RBNode" :
return fixUp _18 ( RBNode _2 ( t _ _160 [ 1 ] ) ( t _ _160 [ 2 ] ) ( t _ _160 [ 3 ] ) ( del ( t _ _160 [ 4 ] ) ) ( t _ _160 [ 5 ] ) ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ( ) ; } ;
return function ( ) {
function delEQ _166 ( t _167 ) {
return function ( ) {
switch ( t _167 [ 0 ] ) {
case "RBEmpty" :
return raise _5 ( Value . str ( "delEQ called on a RBEmpty" ) ) ;
case "RBNode" :
return function ( ) {
var Tuple2$k _v _ _171 = min _6 ( t _167 [ 5 ] ) ;
var k _ _172 = function ( ) {
switch ( Tuple2$k _v _ _171 [ 0 ] ) {
case "Tuple2" :
return Tuple2$k _v _ _171 [ 1 ] ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ;
var v _ _173 = function ( ) {
switch ( Tuple2$k _v _ _171 [ 0 ] ) {
case "Tuple2" :
return Tuple2$k _v _ _171 [ 2 ] ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ;
return fixUp _18 ( RBNode _2 ( t _167 [ 1 ] ) ( k _ _172 ) ( v _ _173 ) ( t _167 [ 4 ] ) ( deleteMin _31 ( t _167 [ 5 ] ) ) ) ; } ( ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ;
return function ( ) {
function delGT _178 ( t _179 ) {
return function ( ) {
switch ( t _179 [ 0 ] ) {
case "RBEmpty" :
return raise _5 ( Value . str ( "delGT called on a RBEmpty" ) ) ;
case "RBNode" :
return fixUp _18 ( RBNode _2 ( t _179 [ 1 ] ) ( t _179 [ 2 ] ) ( t _179 [ 3 ] ) ( t _179 [ 4 ] ) ( del ( t _179 [ 5 ] ) ) ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ;
return function ( ) {
function del _185 ( t _186 ) {
return function ( ) {
switch ( t _186 [ 0 ] ) {
case "RBEmpty" :
return RBEmpty _3 ;
case "RBNode" :
return ( ( compare ( k _150 ) ( t _186 [ 2 ] ) [ 0 ] === 'LT' ) ? delLT _158 ( t _186 ) : function ( ) {
var t _ _188 = ( isRedLeft _23 ( t _186 ) ? rotateRight _12 ( t _186 ) : t _186 ) ;
return ( eq _and _noRightNode _152 ( t _ _188 ) ? RBEmpty _3 : function ( ) {
var t _189 = moveRedRightIfNeeded _30 ( t _189 ) ;
return ( eq _155 ( t _189 ) ? delEQ _166 ( t _189 ) : delGT _178 ( t _189 ) ) ; } ( ) ) ; } ( ) ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ;
return ensureBlackRoot _19 ( del _185 ( t _151 ) ) ; } ( ) ; } ( ) ; } ( ) ; } ( ) ; } ( ) ; } ( ) ; } ; } ;
function map _33 ( f _190 ) {
return function ( t _191 ) {
return function ( ) {
switch ( t _191 [ 0 ] ) {
case "RBEmpty" :
return RBEmpty _3 ;
case "RBNode" :
return RBNode _2 ( t _191 [ 1 ] ) ( t _191 [ 2 ] ) ( f _190 ( t _191 [ 3 ] ) ) ( map _33 ( f _190 ) ( t _191 [ 4 ] ) ) ( map _33 ( f _190 ) ( t _191 [ 5 ] ) ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ; } ;
function foldl _34 ( f _197 ) {
return function ( acc _198 ) {
return function ( t _199 ) {
return function ( ) {
switch ( t _199 [ 0 ] ) {
case "RBEmpty" :
return acc _198 ;
case "RBNode" :
return foldl _34 ( f _197 ) ( f _197 ( t _199 [ 2 ] ) ( t _199 [ 3 ] ) ( foldl _34 ( f _197 ) ( acc _198 ) ( t _199 [ 4 ] ) ) ) ( t _199 [ 5 ] ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ; } ; } ;
function foldr _35 ( f _204 ) {
return function ( acc _205 ) {
return function ( t _206 ) {
return function ( ) {
switch ( t _206 [ 0 ] ) {
case "RBEmpty" :
return acc _205 ;
case "RBNode" :
return foldr _35 ( f _204 ) ( f _204 ( t _206 [ 2 ] ) ( t _206 [ 3 ] ) ( foldr _35 ( f _204 ) ( acc _205 ) ( t _206 [ 5 ] ) ) ) ( t _206 [ 4 ] ) ;
}
throw "Non-exhaustive pattern match in case" ; } ( ) ; } ; } ; } ;
function union _36 ( t1 _211 ) {
return function ( t2 _212 ) {
return foldl _34 ( insert _20 ) ( t2 _212 ) ( t1 _211 ) ; } ; } ;
function intersect _37 ( t1 _213 ) {
return function ( t2 _214 ) {
return foldl _34 ( function ( k _215 ) {
return function ( v _216 ) {
return function ( t _217 ) {
return ( member _10 ( k _215 ) ( t2 _214 ) ? insert _20 ( k _215 ) ( v _216 ) ( t _217 ) : t _217 ) ; } ; } ; } ) ( empty _4 ) ( t1 _213 ) ; } ; } ;
function diff _38 ( t1 _218 ) {
return function ( t2 _219 ) {
return foldl _34 ( function ( k _220 ) {
return function ( _ _221 ) {
return function ( t _222 ) {
return remove _32 ( k _220 ) ( t _222 ) ; } ; } ; } ) ( t1 _218 ) ( t2 _219 ) ; } ; } ;
function keys _39 ( t _223 ) {
return foldl _34 ( function ( k _224 ) {
return function ( _ _225 ) {
return function ( acc _226 ) {
return [ "Cons" , k _224 , acc _226 ] ; } ; } ; } ) ( [ "Nil" ] ) ( t _223 ) ; } ;
function values _40 ( t _227 ) {
return foldl _34 ( function ( _ _228 ) {
return function ( x _229 ) {
return function ( y _230 ) {
return [ "Cons" , x _229 , y _230 ] ; } ; } ; } ) ( [ "Nil" ] ) ( t _227 ) ; } ;
function toList _41 ( t _231 ) {
return foldl _34 ( function ( k _232 ) {
return function ( v _233 ) {
return function ( acc _234 ) {
return [ "Cons" , [ "Tuple2" , k _232 , v _233 ] , acc _234 ] ; } ; } ; } ) ( [ "Nil" ] ) ( t _231 ) ; } ;
function fromList _42 ( assocs _235 ) {
return List . foldl ( uncurry ( insert _20 ) ) ( empty _4 ) ( assocs _235 ) ; } ;
return { empty : empty _4 , lookup : lookup _7 , findWithDefault : findWithDefault _8 , find : find _9 , member : member _10 , insert : insert _20 , singleton : singleton _21 , remove : remove _32 , map : map _33 , foldl : foldl _34 , foldr : foldr _35 , union : union _36 , intersect : intersect _37 , diff : diff _38 , keys : keys _39 , values : values _40 , toList : toList _41 , fromList : fromList _42 } ; } ( ) ;
Elm . main = function ( ) {
return Elm . Dict . main ; } ;
} catch ( e ) { Elm . main = function ( ) { var msg = ( '<br/><h2>Your browser may not be supported. Are you using a modern browser?</h2>' + '<br/><span style="color:grey">Runtime Error in Dict module:<br/>' + e + '</span>' ) ; document . body . innerHTML = Text . monospace ( msg ) ; throw e ; } ; }