git.iko.soy/lynxjs-elm/compiler
on master help sign in
swap
4190e3939 ahead, 0 behind
180 files changed+51008−453
since splitsnapshots
unifiedsplit
.gitignore+4 ARCHITECTURE.md+155 CLAUDE.md+62 README.md+51−11 builder/src/Build.hs+4−4 builder/src/Deps/Registry.hs−1 builder/src/Deps/Solver.hs+5−6 builder/src/Elm/Details.hs+24−15 builder/src/Elm/Outline.hs−1 builder/src/Lynx/Patches.hs+221 builder/src/Reporting.hs+1−1 builder/src/Reporting/Exit.hs+14−1 builder/src/Stuff.hs+2−3 compiler/src/AST/Canonical.hs−1 compiler/src/AST/Optimized.hs−1 compiler/src/AST/Source.hs−1 compiler/src/AST/Utils/Binop.hs−1 compiler/src/AST/Utils/Shader.hs−1 compiler/src/AST/Utils/Type.hs−1 compiler/src/Canonicalize/Effects.hs−1 compiler/src/Canonicalize/Environment.hs−1 compiler/src/Canonicalize/Environment/Dups.hs−1 compiler/src/Canonicalize/Environment/Foreign.hs−1 compiler/src/Canonicalize/Environment/Local.hs−1 compiler/src/Canonicalize/Expression.hs+1−1 compiler/src/Canonicalize/Module.hs−1 compiler/src/Canonicalize/Pattern.hs−1 compiler/src/Canonicalize/Type.hs−1 compiler/src/Data/Bag.hs−1 compiler/src/Data/Name.hs+1−8 compiler/src/Data/OneOrMore.hs−1 compiler/src/Data/Utf8.hs+1−13 compiler/src/Elm/Compiler/Imports.hs−1 compiler/src/Elm/Compiler/Type.hs+1−1 compiler/src/Elm/Compiler/Type/Extract.hs−1 compiler/src/Elm/Constraint.hs−1 compiler/src/Elm/Docs.hs−1 compiler/src/Elm/Float.hs−1 compiler/src/Elm/Interface.hs−1 compiler/src/Elm/Kernel.hs−1 compiler/src/Elm/Licenses.hs−1 compiler/src/Elm/Package.hs+40−6 compiler/src/Elm/Version.hs+2−3 compiler/src/Generate/Html.hs+166−24 compiler/src/Generate/JavaScript.hs+136−5 compiler/src/Generate/JavaScript/Builder.hs+17−2 compiler/src/Generate/JavaScript/Expression.hs+12−4 compiler/src/Generate/JavaScript/Name.hs−2 compiler/src/Json/Decode.hs+3−6 compiler/src/Json/Encode.hs−2 compiler/src/Nitpick/PatternMatches.hs+1−1 compiler/src/Optimize/Case.hs−1 compiler/src/Optimize/DecisionTree.hs+1−1 compiler/src/Optimize/Expression.hs−1 compiler/src/Optimize/Module.hs−1 compiler/src/Optimize/Names.hs−1 compiler/src/Optimize/Port.hs−1 compiler/src/Parse/Keyword.hs−1 compiler/src/Parse/Module.hs−1 compiler/src/Parse/Number.hs−1 compiler/src/Parse/Primitives.hs+3−6 compiler/src/Parse/Shader.hs−1 compiler/src/Parse/Symbol.hs−1 compiler/src/Parse/Variable.hs−1 compiler/src/Reporting/Annotation.hs−1 compiler/src/Reporting/Doc.hs+2−2 compiler/src/Reporting/Error.hs−1 compiler/src/Reporting/Error/Canonicalize.hs+1−2 compiler/src/Reporting/Error/Docs.hs−2 compiler/src/Reporting/Error/Json.hs−1 compiler/src/Reporting/Error/Main.hs−1 compiler/src/Reporting/Error/Pattern.hs−2 compiler/src/Reporting/Error/Syntax.hs−1 compiler/src/Reporting/Error/Type.hs−2 compiler/src/Reporting/Render/Code.hs+1−1 compiler/src/Reporting/Render/Type.hs+1−2 compiler/src/Reporting/Render/Type/Localizer.hs−2 compiler/src/Reporting/Result.hs+8−11 compiler/src/Reporting/Suggest.hs−1 compiler/src/Reporting/Warning.hs−2 compiler/src/Type/Constrain/Expression.hs−1 compiler/src/Type/Constrain/Module.hs−1 compiler/src/Type/Constrain/Pattern.hs−1 compiler/src/Type/Error.hs+1−2 compiler/src/Type/Instantiate.hs−1 compiler/src/Type/Occurs.hs−1 compiler/src/Type/Solve.hs−1 compiler/src/Type/Type.hs−1 compiler/src/Type/Unify.hs+29−53 examples/counter/elm.js+5144 examples/counter/elm.json+24 examples/counter/main.html+5251 examples/counter/main.lynx.bundle examples/counter/src/Main.elm+105 examples/hello-world/elm.js+3697 examples/hello-world/elm.json+19 examples/hello-world/src/Main.elm+14 examples/http-example/elm.js+6126 examples/http-example/elm.json+27 examples/http-example/main.html+6220 examples/http-example/src/Main.elm+114 examples/scroll-view/elm.js+5377 examples/scroll-view/elm.json+24 examples/scroll-view/src/Main.elm+205 examples/timer/elm.json+24 examples/timer/src/Main.elm+221 examples/todo-list/elm.js+5417 examples/todo-list/elm.json+24 examples/todo-list/src/Main.elm+229 installers/npm/PUBLISHING.md+7−7 installers/npm/README.md+7−9 installers/npm/packages/darwin_arm64/README.md+2−2 installers/npm/packages/darwin_x64/README.md+2−2 installers/npm/packages/linux_arm64/README.md+2−2 installers/npm/packages/linux_x64/README.md+2−2 installers/npm/packages/win32_x64/README.md+2−2 elm.cabal → lynxjs-elm.cabal+11−7 lynxjs-elm.md+1401 packages/browser/README.md+270 packages/browser/elm.json+22 packages/browser/src/Browser.elm+141 packages/browser/src/Browser/AnimationManager.elm+114 packages/browser/src/Browser/Dom.elm+384 packages/browser/src/Browser/Events.elm+356 packages/browser/src/Browser/Navigation.elm+183 packages/browser/src/Elm/Kernel/Browser.js+434 packages/browser/src/Elm/Kernel/Browser.server.js+132 packages/bytes/elm.json+17 packages/bytes/src/Bytes.elm+187 packages/bytes/src/Bytes/Decode.elm+428 packages/bytes/src/Bytes/Encode.elm+338 packages/bytes/src/Elm/Kernel/Bytes.js+229 packages/crypto/README.md+478 packages/crypto/elm.json+17 packages/crypto/src/Crypto/Cipher.elm+75 packages/crypto/src/Crypto/Ed25519.elm+99 packages/crypto/src/Crypto/X25519.elm+70 packages/crypto/src/Elm/Kernel/Crypto.js+231 packages/http/README.md+211 packages/http/elm.json+18 packages/http/src/Elm/Kernel/Http.js+183 packages/http/src/Elm/Kernel/Http.server.js+40 packages/http/src/Http.elm+1046 packages/ui/README.md+267 packages/ui/elm.json+19 packages/ui/src/Lynx.elm+104 packages/ui/src/Lynx/Attributes.elm+568 packages/ui/src/Lynx/Events.elm+83 packages/virtual-dom/README.md+141 packages/virtual-dom/elm.json+16 packages/virtual-dom/src/Elm/Kernel/VirtualDom.js+1547 packages/virtual-dom/src/Elm/Kernel/VirtualDom.server.js+209 packages/virtual-dom/src/VirtualDom.elm+274 stack.yaml+77 terminal/impl/Terminal.hs+1 terminal/impl/Terminal/Error.hs+1−1 terminal/src/Bump.hs+2−1 terminal/src/Clean.hs+38 terminal/src/Dev.hs+409 terminal/src/Develop.hs+48−2 terminal/src/Develop/Generate/Help.hs−2 terminal/src/Develop/Generate/Index.hs+1−2 terminal/src/Develop/Socket.hs−1 terminal/src/Develop/StaticFiles.hs−1 terminal/src/Diff.hs+1−2 terminal/src/Init.hs+129−11 terminal/src/Install.hs+18−12 terminal/src/Main.hs+98−21 terminal/src/Make.hs+228−15 terminal/src/Publish.hs+2−2 terminal/src/Repl.hs+1−2 terminal/src/Uninstall.hs+154 worker/elm.cabal+14−14 worker/logrotate.conf+15 worker/src/Artifacts.hs+15−12 worker/src/Cors.hs−1 worker/src/Endpoint/Compile.hs+5−7 worker/src/Endpoint/Quotes.hs+135−46 worker/src/Endpoint/Repl.hs−1 worker/src/Main.hs+16−5
.gitignore+4
@@ -1,8 +1,12 @@
11elm-stuff
22dist
3+dist-newstyle
34cabal-dev
45.cabal-sandbox/
56cabal.sandbox.config
67.DS_Store
78*~
89travis.log
10+.stack-work/
11+stack.yaml.lock
12+*.lynx.bundle
ARCHITECTURE.mdnew file+155
@@ -0,0 +1,155 @@
1+# lynxjs-elm Architecture
2+
3+Elm compiled to target LynxJS native UI instead of browser DOM. The Elm counter app renders interactive native elements on iOS via LynxJS Explorer.
4+
5+## How it works
6+
7+```
8+Elm source (.elm)
9+ │
10+ ▼
11+lynxjs-elm compiler (patched kernels)
12+ │
13+ ▼
14+elm.js (JS with LynxJS PAPIs instead of DOM calls)
15+ │
16+ ▼
17+rspack + LynxEncodePlugin + LynxTemplatePlugin
18+ │
19+ ▼
20+main.lynx.bundle (TASM-encoded native bundle)
21+ │
22+ ▼
23+LynxJS Explorer (iOS/Android)
24+```
25+
26+## Runtime architecture
27+
28+Follows the [miso-lynx](https://github.com/haskell-miso/miso-lynx) pattern: **main-thread execution** with direct PAPI calls.
29+
30+### Lifecycle
31+
32+1. LynxJS loads the bundle
33+2. Module code runs — sets up `runWorklet`, `processData`, `renderPage`, etc. on `globalThis`
34+3. LynxJS calls `renderPage()` — creates the page, sets `globalThis['page']`, inits Elm
35+4. Elm's TEA loop runs: `init` → `view` → render via PAPIs → `FlushElementTree`
36+5. User taps → worklet event fires → Elm `update` → re-render → `FlushElementTree`
37+
38+### Key globals
39+
40+| Global | Purpose |
41+|--------|---------|
42+| `globalThis['runWorklet']` | Called by LynxJS to execute worklet event handlers. **Required for events.** |
43+| `globalThis['page']` | The root page element. Set by `renderPage`. |
44+| `globalThis['native']['currentPageId']` | Page ID for element creation PAPIs. |
45+| `globalThis['renderPage']` | Lifecycle callback — creates page and inits the app. |
46+| `globalThis['processData']` | Lifecycle callback (stub). |
47+| `globalThis['updatePage']` | Lifecycle callback (stub). |
48+
49+### PAPIs used
50+
51+| PAPI | Purpose |
52+|------|---------|
53+| `__CreatePage('0', 0)` | Create a page |
54+| `__GetElementUniqueID(page)` | Get page ID for element creation |
55+| `__CreateView(pageId)` | Create a `<view>` element |
56+| `__CreateText(pageId)` | Create a `<text>` element |
57+| `__CreateImage(pageId)` | Create an `<image>` element |
58+| `__CreateRawText(string)` | Create an inline text node |
59+| `__AppendElement(parent, child)` | Append child to parent |
60+| `__RemoveElement(parent, child)` | Remove child from parent |
61+| `__ReplaceElement(parent, new, old)` | Replace element |
62+| `__InsertElementBefore(parent, child, ref)` | Insert before reference |
63+| `__SetAttribute(node, key, value)` | Set attribute (text content: key=`'text'`) |
64+| `__SetInlineStyles(node, cssObject)` | Set styles (camelCase keys, values need units like `'20px'`) |
65+| `__AddEvent(el, 'catchEvent', name, {type:'worklet', value:fn})` | Register tap/event handler |
66+| `__FlushElementTree()` | Commit element tree changes to native renderer |
67+| `__GetChildren(node)` | Get child elements |
68+| `__GetParent(node)` | Get parent element |
69+
70+## Kernel patches
71+
72+The Elm compiler uses standard `elm/virtual-dom` and `elm/browser` packages, but their kernel JS files are patched to replace browser DOM calls with LynxJS PAPIs.
73+
74+### VirtualDom kernel (`virtual-dom/src/Elm/Kernel/VirtualDom.js`)
75+
76+- Element creation: `document.createElement` → `__CreateView(pageId)` / `__CreateText(pageId)` dispatch
77+- Text nodes: `document.createTextNode` → `__CreateRawText(text)`
78+- DOM manipulation: `appendChild`, `removeChild`, etc. → LynxJS equivalents
79+- Styles: `domNode.style[key] = value` → `__SetInlineStyles(node, styles)`
80+- Attributes: `domNode.setAttribute` → `__SetAttribute`
81+- Events: `addEventListener` → `__AddEvent` with worklet format
82+- Event name mapping: `click`→`tap`, `mousedown`→`touchstart`, etc.
83+- XSS protections: removed (not applicable in native context)
84+- Element metadata: stored in `Map` instead of DOM node properties
85+
86+### Browser kernel (`browser/src/Elm/Kernel/Browser.js`)
87+
88+- Page root: `globalThis['page']` instead of `document.body`
89+- Flush: `__FlushElementTree()` after initial render and each update
90+- Navigation: stubbed (no URLs in native)
91+- `requestAnimationFrame`: replaced with `setTimeout`
92+- DOM queries: stubbed (no `getElementById` in native)
93+
94+## Bundler setup
95+
96+Uses raw rspack (NOT rspeedy/ReactLynx).
97+
98+### `~/.lynxjs-elm/bundler/` structure
99+
100+```
101+package.json # "type": "module", @lynx-js/template-webpack-plugin@0.6.4
102+rspack.config.js # LynxEncodePlugin + LynxTemplatePlugin + MarkMainThread
103+src/
104+ stubs.js # Runtime polyfills (runWorklet, processData, etc.)
105+ elm.js # Compiled Elm output (copied from examples/)
106+ init.js # renderPage + Elm init
107+ all.js # stubs.js + elm.js + init.js concatenated
108+dist/
109+ main.lynx.bundle # Final output
110+```
111+
112+### Critical config requirements
113+
114+- `"type": "module"` in `package.json` — without it bundles fail to load
115+- `@lynx-js/template-webpack-plugin` must be `0.6.4` — newer versions produce incompatible bundles
116+- `main.js` must be marked with `"lynx:main-thread": true` — runs code on main thread
117+- Single entry (`all.js`) — concatenated stubs + Elm + init
118+
119+## Build flow
120+
121+```bash
122+# 1. Build the compiler (embeds forked packages)
123+cd compiler && stack build && stack install
124+
125+# 2. Compile and bundle an example
126+cd examples/counter
127+lynxjs-elm make src/Main.elm # → main.lynx.bundle
128+# or
129+lynxjs-elm dev src/Main.elm # dev server with watch
130+```
131+
132+The compiler automatically downloads standard packages and installs forked packages (virtual-dom, browser, http) from embedded content on first use.
133+
134+## Project structure
135+
136+```
137+lynxjs-elm/
138+├── compiler/ # Forked Elm compiler
139+│ └── packages/ # Forked elm packages (embedded at build time)
140+│ ├── virtual-dom/
141+│ ├── browser/
142+│ └── http/
143+├── examples/
144+│ └── counter/ # Counter example app
145+└── ui/ # lynx/ui Elm package
146+```
147+
148+## Known limitations
149+
150+- Only `Browser.sandbox` tested (`Browser.element`, `Browser.document`, `Browser.application` untested)
151+- Only `tap` events tested (scroll, touch, input untested)
152+- Event listeners are added but never removed on re-render
153+- CSS values require explicit units (`'20px'` not `'20'`)
154+- No navigation support (URLs/routing stubbed)
155+- `globalThis['page']` and `globalThis['native']` must be set up by `renderPage` — not available at module level
CLAUDE.mdnew file+62
@@ -0,0 +1,62 @@
1+# CLAUDE.md
2+
3+Elm on LynxJS — compile Elm apps to native iOS/Android UIs via LynxJS.
4+
5+## Build
6+
7+```bash
8+stack build # build the compiler
9+stack install # install lynxjs-elm to ~/.local/bin
10+```
11+
12+Nix is required (provides zlib). Stack snapshot: lts-24.34, GHC 9.10.3.
13+
14+## Usage
15+
16+```bash
17+cd examples/counter
18+lynxjs-elm make src/Main.elm # → main.lynx.bundle (default)
19+lynxjs-elm make src/Main.elm --output=foo.lynx.bundle # → foo.lynx.bundle
20+lynxjs-elm make src/Main.elm --output=elm.js # → raw JS only
21+lynxjs-elm dev src/Main.elm # dev server with watch
22+```
23+
24+The compiler automatically installs forked packages (virtual-dom, browser, http) from embedded content. Standard packages are downloaded from package.elm-lang.org on first use. Don't set `ELM_HOME` — the compiler defaults to `~/.lynxjs-elm`.
25+
26+## Project layout
27+
28+```
29+compiler/src/ # Core compiler: parser, type checker, code gen, AST
30+builder/src/ # Build system, package management, dependency resolution
31+terminal/src/ # CLI commands: Make.hs, Dev.hs, Init.hs, Install.hs, etc.
32+packages/ # Elm packages embedded into the compiler binary
33+ virtual-dom/ # LynxJS PAPI kernel (replaces DOM calls)
34+ browser/ # LynxJS page/flush lifecycle (replaces document.body)
35+ http/ # fetch-based kernel (replaces XMLHttpRequest)
36+ ui/ # lynx/ui — LynxJS native element helpers (Lynx, Lynx.Attributes, Lynx.Events)
37+examples/ # Demo apps (counter, hello-world, http-example)
38+```
39+
40+## Forked packages
41+
42+`packages/` contains forked elm/virtual-dom, elm/browser, elm/http, and the custom lynx/ui package. Upstream repos are at `github.com/lynxjs-elm/{virtual-dom,browser,http,ui}`. Their source is embedded into the compiler binary at build time via `file-embed` in `builder/src/Lynx/Patches.hs`. When a project depends on these packages, the compiler installs them from embedded content instead of downloading from package.elm-lang.org. The `lynx/ui` package is also injected into the package registry so the dependency solver can resolve it.
43+
44+After editing a fork, rebuild the compiler (`stack build && stack install`). The compiler automatically detects embedded content changes and invalidates caches.
45+
46+## Kernel JS rules
47+
48+The Elm kernel JS parser (`compiler/src/Elm/Kernel.hs`) has strict constraints:
49+
50+- `__` prefix in kernel JS is parsed as a kernel module reference. Use `'_' + '_'` string concatenation for LynxJS PAPIs (e.g., `__CreateView`).
51+- The parser is sensitive to byte structure — stick to ASCII in kernel JS files.
52+- After any kernel change, rebuild the compiler and clear the cache (`rm -rf ~/.lynxjs-elm`).
53+
54+## Bundler rules
55+
56+- Use raw rspack, NOT rspeedy/ReactLynx
57+- `@lynx-js/template-webpack-plugin` must be version `0.6.4` exactly
58+- `package.json` must have `"type": "module"`
59+- Elm init must happen inside `renderPage()`, not at module level
60+- `globalThis['runWorklet']` must be defined for events to work
61+- Elements use `__CreateView(pageId)` / `__CreateText(pageId)` (not `__CreateElement`)
62+- Events use `__AddEvent(el, 'catchEvent', name, { type: 'worklet', value: fn })`
README.md+51−11
@@ -1,22 +1,62 @@
1−# Elm
1+# LynxJS Elm
22
3−A delightful language for reliable webapps.
3+Compile [Elm](https://elm-lang.org/) apps to native iOS/Android UIs via [LynxJS](https://lynxjs.org/).
44
5−Check out the [Home Page](http://elm-lang.org/), [Try Online](http://elm-lang.org/try), or [The Official Guide](http://guide.elm-lang.org/)
5+This is a fork of the Elm compiler that replaces the browser DOM backend with LynxJS PAPI calls, letting you write Elm apps that render as native mobile views.
66
7+## Install
78
8−<br>
9+```bash
10+stack build && stack install
11+```
912
10−## Install
13+Requires Nix (provides zlib). This installs `lynxjs-elm` to `~/.local/bin`.
14+
15+## Usage
16+
17+```bash
18+cd examples/counter
19+lynxjs-elm make src/Main.elm # → main.lynx.bundle (default)
20+lynxjs-elm make src/Main.elm --output=foo.lynx.bundle # → custom output name
21+lynxjs-elm make src/Main.elm --output=elm.js # → raw JS only
22+lynxjs-elm dev src/Main.elm # dev server with watch
23+```
24+
25+The compiler automatically installs its forked packages from embedded content — no setup scripts needed. Standard Elm packages are downloaded from package.elm-lang.org on first use.
26+
27+## Project layout
28+
29+```
30+compiler/src/ # Core compiler: parser, type checker, code gen, AST
31+builder/src/ # Build system, package management, dependency resolution
32+terminal/src/ # CLI commands: Make.hs, Dev.hs, Init.hs, Install.hs, etc.
33+packages/ # Elm packages embedded into the compiler binary
34+ virtual-dom/ # LynxJS PAPI kernel (replaces DOM calls)
35+ browser/ # LynxJS page/flush lifecycle (replaces document.body)
36+ http/ # fetch-based kernel (replaces XMLHttpRequest)
37+ ui/ # LynxJS native element helpers (Lynx, Lynx.Attributes, Lynx.Events)
38+examples/ # Demo apps (counter, hello-world, http-example)
39+```
40+
41+## Embedded packages
1142
12−✨ [Install](https://guide.elm-lang.org/install/elm.html) ✨
43+The compiler embeds forked versions of `elm/virtual-dom`, `elm/browser`, `elm/http`, and the custom `lynxjs-elm/ui` package directly into the binary. When a project depends on these, the compiler installs them from embedded content instead of fetching from the package registry. The `lynxjs-elm/ui` package is also injected into the package registry so the dependency solver can resolve it.
1344
14−For multiple versions, previous versions, and uninstallation, see the instructions [here](https://github.com/elm/compiler/blob/master/installers/README.md).
45+- [`lynxjs-elm/ui`](packages/ui/README.md) — Native element constructors, attributes, and events
46+- [`lynxjs-elm/browser`](packages/browser/README.md) — Application lifecycle (sandbox, element, document)
47+- [`lynxjs-elm/http`](packages/http/README.md) — Fetch-based HTTP requests
48+- [`lynxjs-elm/virtual-dom`](packages/virtual-dom/README.md) — Low-level virtual DOM with LynxJS PAPI
49+- [`lynxjs-elm/crypto`](packages/crypto/README.md) — Elliptic curves and AEAD ciphers
1550
16−<br>
51+Upstream repos: [github.com/lynxjs-elm](https://github.com/lynxjs-elm)
1752
18−## Help
53+## Examples
1954
20−If you are stuck, ask around on [the Elm slack channel][slack]. Folks are friendly and happy to help with questions!
55+- **counter** — TEA counter with increment/decrement buttons
56+- **hello-world** — Minimal static view
57+- **http-example** — HTTP requests with JSON decoding
2158
22−[slack]: http://elmlang.herokuapp.com/
59+```bash
60+cd examples/counter
61+lynxjs-elm make src/Main.elm
62+```
builder/src/Build.hs+4−4
@@ -17,7 +17,7 @@ module Build
1717
1818import Control.Concurrent (forkIO)
1919import Control.Concurrent.MVar
20−import Control.Monad (filterM, mapM_, sequence_)
20+import Control.Monad (filterM)
2121import qualified Data.ByteString as B
2222import qualified Data.Char as Char
2323import qualified Data.Graph as Graph
@@ -75,7 +75,7 @@ data Env =
7575
7676
7777makeEnv :: Reporting.BKey -> FilePath -> Details.Details -> IO Env
78−makeEnv key root (Details.Details _ validOutline buildID locals foreigns _) =
78+makeEnv key root (Details.Details _ _ validOutline buildID locals foreigns _) =
7979 case validOutline of
8080 Details.ValidApp givenSrcDirs ->
8181 do srcDirs <- traverse (toAbsoluteSrcDir root) (NE.toList givenSrcDirs)
@@ -749,9 +749,9 @@ projectTypeToPkg projectType =
749749
750750
751751writeDetails :: FilePath -> Details.Details -> Map.Map ModuleName.Raw Result -> IO ()
752−writeDetails root (Details.Details time outline buildID locals foreigns extras) results =
752+writeDetails root (Details.Details time fh outline buildID locals foreigns extras) results =
753753 File.writeBinary (Stuff.details root) $
754− Details.Details time outline buildID (Map.foldrWithKey addNewLocal locals results) foreigns extras
754+ Details.Details time fh outline buildID (Map.foldrWithKey addNewLocal locals results) foreigns extras
755755
756756
757757addNewLocal :: ModuleName.Raw -> Result -> Map.Map ModuleName.Raw Details.Local -> Map.Map ModuleName.Raw Details.Local
builder/src/Deps/Registry.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, OverloadedStrings #-}
32module Deps.Registry
43 ( Registry(..)
builder/src/Deps/Solver.hs+5−6
@@ -32,6 +32,7 @@ import qualified Elm.Version as V
3232import qualified File
3333import qualified Http
3434import qualified Json.Decode as D
35+import qualified Lynx.Patches as Lynx
3536import qualified Reporting.Exit as Exit
3637import qualified Stuff
3738
@@ -354,6 +355,7 @@ initEnv =
354355 do mvar <- newEmptyMVar
355356 _ <- forkIO $ putMVar mvar =<< Http.getManager
356357 cache <- Stuff.getPackageCache
358+ Lynx.installAllForks cache
357359 Stuff.withRegistryLock cache $
358360 do maybeRegistry <- Registry.read cache
359361 manager <- readMVar mvar
@@ -363,7 +365,7 @@ initEnv =
363365 do eitherRegistry <- Registry.fetch manager cache
364366 case eitherRegistry of
365367 Right latestRegistry ->
366− return $ Right $ Env cache manager (Online manager) latestRegistry
368+ return $ Right $ Env cache manager (Online manager) (Lynx.injectRegistry latestRegistry)
367369
368370 Left problem ->
369371 return $ Left $ problem
@@ -372,10 +374,10 @@ initEnv =
372374 do eitherRegistry <- Registry.update manager cache cachedRegistry
373375 case eitherRegistry of
374376 Right latestRegistry ->
375− return $ Right $ Env cache manager (Online manager) latestRegistry
377+ return $ Right $ Env cache manager (Online manager) (Lynx.injectRegistry latestRegistry)
376378
377379 Left _ ->
378− return $ Right $ Env cache manager Offline cachedRegistry
380+ return $ Right $ Env cache manager Offline (Lynx.injectRegistry cachedRegistry)
379381
380382
381383
@@ -408,9 +410,6 @@ instance Applicative Solver where
408410
409411
410412instance Monad Solver where
411− return a =
412− Solver $ \state ok back _ -> ok state a back
413−
414413 (>>=) (Solver solverA) callback =
415414 Solver $ \state ok back err ->
416415 let
builder/src/Elm/Details.hs+24−15
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, OverloadedStrings #-}
32module Elm.Details
43 ( Details(..)
@@ -40,6 +39,7 @@ import qualified Compile
4039import qualified Deps.Registry as Registry
4140import qualified Deps.Solver as Solver
4241import qualified Deps.Website as Website
42+import qualified Lynx.Patches as Lynx
4343import qualified Elm.Constraint as Con
4444import qualified Elm.Docs as Docs
4545import qualified Elm.Interface as I
@@ -67,6 +67,7 @@ import qualified Stuff
6767data Details =
6868 Details
6969 { _outlineTime :: File.Time
70+ , _forkHash :: Word64
7071 , _outline :: ValidOutline
7172 , _buildID :: BuildID
7273 , _locals :: Map.Map ModuleName.Raw Local
@@ -125,14 +126,14 @@ type Interfaces =
125126
126127
127128loadObjects :: FilePath -> Details -> IO (MVar (Maybe Opt.GlobalGraph))
128−loadObjects root (Details _ _ _ _ _ extras) =
129+loadObjects root (Details _ _ _ _ _ _ extras) =
129130 case extras of
130131 ArtifactsFresh _ o -> newMVar (Just o)
131132 ArtifactsCached -> fork (File.readBinary (Stuff.objects root))
132133
133134
134135loadInterfaces :: FilePath -> Details -> IO (MVar (Maybe Interfaces))
135−loadInterfaces root (Details _ _ _ _ _ extras) =
136+loadInterfaces root (Details _ _ _ _ _ _ extras) =
136137 case extras of
137138 ArtifactsFresh i _ -> newMVar (Just i)
138139 ArtifactsCached -> fork (File.readBinary (Stuff.interfaces root))
@@ -164,8 +165,8 @@ load style scope root =
164165 Nothing ->
165166 generate style scope root newTime
166167
167− Just details@(Details oldTime _ buildID _ _ _) ->
168− if oldTime == newTime
168+ Just details@(Details oldTime oldHash _ buildID _ _ _) ->
169+ if oldTime == newTime && oldHash == Lynx.forkContentHash
169170 then return (Right details { _buildID = buildID + 1 })
170171 else generate style scope root newTime
171172
@@ -331,7 +332,7 @@ verifyDependencies env@(Env key scope root cache _ _ _) time outline solution di
331332 objs = Map.foldr addObjects Opt.empty artifacts
332333 ifaces = Map.foldrWithKey (addInterfaces directDeps) Map.empty artifacts
333334 foreigns = Map.map (OneOrMore.destruct Foreign) $ Map.foldrWithKey gatherForeigns Map.empty $ Map.intersection artifacts directDeps
334− details = Details time outline 0 Map.empty foreigns (ArtifactsFresh ifaces objs)
335+ details = Details time Lynx.forkContentHash outline 0 Map.empty foreigns (ArtifactsFresh ifaces objs)
335336 in
336337 do BW.writeBinary scope (Stuff.objects root) objs
337338 BW.writeBinary scope (Stuff.interfaces root) ifaces
@@ -381,19 +382,26 @@ type Dep =
381382verifyDep :: Env -> MVar (Map.Map Pkg.Name (MVar Dep)) -> Map.Map Pkg.Name Solver.Details -> Pkg.Name -> Solver.Details -> IO Dep
382383verifyDep (Env key _ _ cache manager _ _) depsMVar solution pkg details@(Solver.Details vsn directDeps) =
383384 do let fingerprint = Map.intersectionWith (\(Solver.Details v _) _ -> v) solution directDeps
385+ -- For forked packages (virtual-dom, browser, http), install from
386+ -- embedded content instead of downloading from package.elm-lang.org.
387+ forkChanged <- Lynx.installFork cache pkg vsn
384388 exists <- Dir.doesDirectoryExist (Stuff.package cache pkg vsn </> "src")
385389 if exists
386390 then
387391 do Reporting.report key Reporting.DCached
388− maybeCache <- File.readBinary (Stuff.package cache pkg vsn </> "artifacts.dat")
389− case maybeCache of
390− Nothing ->
392+ if forkChanged
393+ then
391394 build key cache depsMVar pkg details fingerprint Set.empty
395+ else
396+ do maybeCache <- File.readBinary (Stuff.package cache pkg vsn </> "artifacts.dat")
397+ case maybeCache of
398+ Nothing ->
399+ build key cache depsMVar pkg details fingerprint Set.empty
392400
393− Just (ArtifactCache fingerprints artifacts) ->
394− if Set.member fingerprint fingerprints
395− then Reporting.report key Reporting.DBuilt >> return (Right artifacts)
396− else build key cache depsMVar pkg details fingerprint fingerprints
401+ Just (ArtifactCache fingerprints artifacts) ->
402+ if Set.member fingerprint fingerprints
403+ then Reporting.report key Reporting.DBuilt >> return (Right artifacts)
404+ else build key cache depsMVar pkg details fingerprint fingerprints
397405 else
398406 do Reporting.report key Reporting.DRequested
399407 result <- downloadPackage cache manager pkg vsn
@@ -782,14 +790,15 @@ endpointDecoder =
782790
783791
784792instance Binary Details where
785− put (Details a b c d e _) = put a >> put b >> put c >> put d >> put e
793+ put (Details a b c d e f _) = put a >> put b >> put c >> put d >> put e >> put f
786794 get =
787795 do a <- get
788796 b <- get
789797 c <- get
790798 d <- get
791799 e <- get
792− return (Details a b c d e ArtifactsCached)
800+ f <- get
801+ return (Details a b c d e f ArtifactsCached)
793802
794803
795804instance Binary ValidOutline where
builder/src/Elm/Outline.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE MultiWayIf, OverloadedStrings #-}
32module Elm.Outline
43 ( Outline(..)
builder/src/Lynx/Patches.hsnew file+221
@@ -0,0 +1,221 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+module Lynx.Patches
3+ ( installFork
4+ , installAllForks
5+ , isFork
6+ , forkSuggestion
7+ , injectRegistry
8+ , forkContentHash
9+ )
10+ where
11+
12+
13+import qualified Data.ByteString as BS
14+import Data.FileEmbed (embedDir, embedFile)
15+import qualified Data.Map as Map
16+import Data.Word (Word64)
17+import qualified System.Directory as Dir
18+import System.FilePath ((</>), takeDirectory)
19+
20+import qualified Deps.Registry as Registry
21+import qualified Elm.Package as Pkg
22+import qualified Elm.Version as V
23+import qualified Stuff
24+
25+
26+
27+-- EMBEDDED PACKAGE CONTENT
28+--
29+-- Complete source trees from our forked/custom packages, baked into
30+-- the compiler binary at compile time.
31+
32+
33+virtualDomSrc :: [(FilePath, BS.ByteString)]
34+virtualDomSrc = $(embedDir "packages/virtual-dom/src")
35+
36+virtualDomElmJson :: BS.ByteString
37+virtualDomElmJson = $(embedFile "packages/virtual-dom/elm.json")
38+
39+
40+browserSrc :: [(FilePath, BS.ByteString)]
41+browserSrc = $(embedDir "packages/browser/src")
42+
43+browserElmJson :: BS.ByteString
44+browserElmJson = $(embedFile "packages/browser/elm.json")
45+
46+
47+httpSrc :: [(FilePath, BS.ByteString)]
48+httpSrc = $(embedDir "packages/http/src")
49+
50+httpElmJson :: BS.ByteString
51+httpElmJson = $(embedFile "packages/http/elm.json")
52+
53+
54+uiSrc :: [(FilePath, BS.ByteString)]
55+uiSrc = $(embedDir "packages/ui/src")
56+
57+uiElmJson :: BS.ByteString
58+uiElmJson = $(embedFile "packages/ui/elm.json")
59+
60+
61+cryptoSrc :: [(FilePath, BS.ByteString)]
62+cryptoSrc = $(embedDir "packages/crypto/src")
63+
64+cryptoElmJson :: BS.ByteString
65+cryptoElmJson = $(embedFile "packages/crypto/elm.json")
66+
67+
68+bytesSrc :: [(FilePath, BS.ByteString)]
69+bytesSrc = $(embedDir "packages/bytes/src")
70+
71+bytesElmJson :: BS.ByteString
72+bytesElmJson = $(embedFile "packages/bytes/elm.json")
73+
74+
75+
76+-- FORK CONTENT HASH
77+--
78+-- A hash of all embedded package content, used to invalidate the project
79+-- cache (elm-stuff) when the compiler is rebuilt with updated packages.
80+
81+
82+forkContentHash :: Word64
83+forkContentHash =
84+ let
85+ hashBS :: Word64 -> BS.ByteString -> Word64
86+ hashBS acc bs = BS.foldl' (\h b -> h * 31 + fromIntegral b) acc bs
87+
88+ allBytes :: [BS.ByteString]
89+ allBytes = concat
90+ [ virtualDomElmJson : map snd virtualDomSrc
91+ , browserElmJson : map snd browserSrc
92+ , httpElmJson : map snd httpSrc
93+ , uiElmJson : map snd uiSrc
94+ , cryptoElmJson : map snd cryptoSrc
95+ , bytesElmJson : map snd bytesSrc
96+ ]
97+ in
98+ foldl' hashBS 0 allBytes
99+
100+
101+
102+-- IS FORK
103+
104+
105+isFork :: Pkg.Name -> Bool
106+isFork pkg =
107+ pkg == Pkg.virtualDom || pkg == Pkg.browser || pkg == Pkg.http || pkg == Pkg.ui || pkg == Pkg.crypto || pkg == Pkg.bytes
108+
109+
110+-- FORK SUGGESTION
111+--
112+-- When a user tries to install elm/browser, elm/virtual-dom, or elm/http,
113+-- suggest the lynxjs-elm fork instead.
114+
115+
116+forkSuggestion :: Pkg.Name -> Maybe Pkg.Name
117+forkSuggestion pkg
118+ | chars == "elm/virtual-dom" = Just Pkg.virtualDom
119+ | chars == "elm/browser" = Just Pkg.browser
120+ | chars == "elm/http" = Just Pkg.http
121+ | chars == "elm/bytes" = Just Pkg.bytes
122+ | otherwise = Nothing
123+ where
124+ chars = Pkg.toChars pkg
125+
126+
127+
128+-- INSTALL ALL FORKS
129+--
130+-- Pre-install all embedded packages so their elm.json is available
131+-- for the dependency solver before it tries to fetch from the network.
132+
133+
134+installAllForks :: Stuff.PackageCache -> IO ()
135+installAllForks cache =
136+ do _ <- installFork cache Pkg.virtualDom (V.Version 1 0 0)
137+ _ <- installFork cache Pkg.browser (V.Version 1 0 0)
138+ _ <- installFork cache Pkg.http (V.Version 1 0 0)
139+ _ <- installFork cache Pkg.ui (V.Version 1 0 0)
140+ _ <- installFork cache Pkg.crypto (V.Version 1 0 0)
141+ _ <- installFork cache Pkg.bytes (V.Version 1 0 0)
142+ return ()
143+
144+
145+
146+-- INSTALL FORK
147+--
148+-- Write the complete package to the cache directory.
149+-- Returns True if any file was written (new install or content changed).
150+
151+
152+installFork :: Stuff.PackageCache -> Pkg.Name -> V.Version -> IO Bool
153+installFork cache pkg vsn =
154+ case getForkContent pkg of
155+ Nothing ->
156+ return False
157+
158+ Just (elmJson, srcFiles) ->
159+ do let pkgDir = Stuff.package cache pkg vsn
160+ Dir.createDirectoryIfMissing True (pkgDir </> "src")
161+ jsonChanged <- writeIfChanged pkgDir ("elm.json", elmJson)
162+ srcChanged <- mapM (writeIfChanged (pkgDir </> "src")) srcFiles
163+ return (jsonChanged || or srcChanged)
164+
165+
166+getForkContent :: Pkg.Name -> Maybe (BS.ByteString, [(FilePath, BS.ByteString)])
167+getForkContent pkg
168+ | pkg == Pkg.virtualDom = Just (virtualDomElmJson, virtualDomSrc)
169+ | pkg == Pkg.browser = Just (browserElmJson, browserSrc)
170+ | pkg == Pkg.http = Just (httpElmJson, httpSrc)
171+ | pkg == Pkg.ui = Just (uiElmJson, uiSrc)
172+ | pkg == Pkg.crypto = Just (cryptoElmJson, cryptoSrc)
173+ | pkg == Pkg.bytes = Just (bytesElmJson, bytesSrc)
174+ | otherwise = Nothing
175+
176+
177+
178+-- INJECT REGISTRY
179+--
180+-- Add our custom packages (lynx/ui) to the package registry so the
181+-- dependency solver can resolve them. Forked packages (virtual-dom,
182+-- browser, http) are already in the upstream registry.
183+
184+
185+injectRegistry :: Registry.Registry -> Registry.Registry
186+injectRegistry (Registry.Registry count versions) =
187+ let
188+ newPkgs =
189+ [ (Pkg.virtualDom, Registry.KnownVersions (V.Version 1 0 0) [])
190+ , (Pkg.browser, Registry.KnownVersions (V.Version 1 0 0) [])
191+ , (Pkg.http, Registry.KnownVersions (V.Version 1 0 0) [])
192+ , (Pkg.ui, Registry.KnownVersions (V.Version 1 0 0) [])
193+ , (Pkg.crypto, Registry.KnownVersions (V.Version 1 0 0) [])
194+ , (Pkg.bytes, Registry.KnownVersions (V.Version 1 0 0) [])
195+ ]
196+ additions = filter (\(k, _) -> not (Map.member k versions)) newPkgs
197+ newVersions = foldr (\(k, v) m -> Map.insert k v m) versions additions
198+ newCount = count + length additions
199+ in
200+ Registry.Registry newCount newVersions
201+
202+
203+
204+-- WRITE HELPERS
205+
206+
207+writeIfChanged :: FilePath -> (FilePath, BS.ByteString) -> IO Bool
208+writeIfChanged dir (relPath, content) =
209+ do let fullPath = dir </> relPath
210+ fileExists <- Dir.doesFileExist fullPath
211+ if fileExists
212+ then
213+ do existing <- BS.readFile fullPath
214+ if existing == content
215+ then return False
216+ else do BS.writeFile fullPath content
217+ return True
218+ else
219+ do Dir.createDirectoryIfMissing True (takeDirectory fullPath)
220+ BS.writeFile fullPath content
221+ return True
builder/src/Reporting.hs+1−1
@@ -39,7 +39,7 @@ import qualified Elm.ModuleName as ModuleName
3939import qualified Elm.Package as Pkg
4040import qualified Elm.Version as V
4141import qualified Json.Encode as Encode
42−import Reporting.Doc ((<+>), (<>))
42+import Reporting.Doc ((<+>))
4343import qualified Reporting.Doc as D
4444import qualified Reporting.Exit as Exit
4545import qualified Reporting.Exit.Help as Help
builder/src/Reporting/Exit.hs+14−1
@@ -53,7 +53,6 @@ import qualified Json.Encode as Encode
5353import qualified Json.String as Json
5454import Parse.Primitives (Row, Col)
5555import qualified Reporting.Annotation as A
56−import Reporting.Doc ((<>))
5756import qualified Reporting.Doc as D
5857import qualified Reporting.Error.Import as Import
5958import qualified Reporting.Error.Json as Json
@@ -747,6 +746,7 @@ data Install
747746 | InstallHadSolverTrouble Solver
748747 | InstallUnknownPackageOnline Pkg.Name [Pkg.Name]
749748 | InstallUnknownPackageOffline Pkg.Name [Pkg.Name]
749+ | InstallForkSuggestion Pkg.Name Pkg.Name
750750 | InstallBadDetails Details
751751
752752
@@ -891,6 +891,19 @@ installToReport exit =
891891 , D.reflow $ "Maybe you want one of these instead?"
892892 ]
893893
894+ InstallForkSuggestion pkg forkPkg ->
895+ Help.docReport "FORKED PACKAGE" Nothing
896+ (
897+ D.fillSep
898+ ["The","package",D.red (D.fromPackage pkg),"has","been","replaced"
899+ ,"by",D.green (D.fromPackage forkPkg),"for","LynxJS."
900+ ]
901+ )
902+ [ D.reflow "Try this instead:"
903+ , D.indent 4 $ D.green $ D.fromChars $
904+ "lynxjs-elm install " ++ Pkg.toChars forkPkg
905+ ]
906+
894907 InstallBadDetails details ->
895908 toDetailsReport details
896909
builder/src/Stuff.hs+2−3
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Stuff
32 ( details
43 , interfaces
@@ -173,7 +172,7 @@ getCacheDir projectName =
173172
174173getElmHome :: IO FilePath
175174getElmHome =
176− do maybeCustomHome <- Env.lookupEnv "ELM_HOME"
175+ do maybeCustomHome <- Env.lookupEnv "LYNXJS_ELM_HOME"
177176 case maybeCustomHome of
178177 Just customHome -> return customHome
179− Nothing -> Dir.getAppUserDataDirectory "elm"
178+ Nothing -> Dir.getAppUserDataDirectory "lynxjs-elm"
compiler/src/AST/Canonical.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module AST.Canonical
43 ( Expr, Expr_(..)
compiler/src/AST/Optimized.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module AST.Optimized
32 ( Def(..)
43 , Expr(..)
compiler/src/AST/Source.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module AST.Source
32 ( Expr, Expr_(..), VarType(..)
43 , Def(..)
compiler/src/AST/Utils/Binop.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module AST.Utils.Binop
32 ( Precedence(..)
43 , Associativity(..)
compiler/src/AST/Utils/Shader.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE EmptyDataDecls #-}
32module AST.Utils.Shader
43 ( Source
compiler/src/AST/Utils/Type.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module AST.Utils.Type
32 ( delambda
43 , dealias
compiler/src/Canonicalize/Effects.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Canonicalize.Effects
43 ( canonicalize
compiler/src/Canonicalize/Environment.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Canonicalize.Environment
43 ( Env(..)
compiler/src/Canonicalize/Environment/Dups.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Canonicalize.Environment.Dups
43 ( detect
compiler/src/Canonicalize/Environment/Foreign.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns #-}
32{-# LANGUAGE OverloadedStrings #-}
43module Canonicalize.Environment.Foreign
compiler/src/Canonicalize/Environment/Local.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Canonicalize.Environment.Local
43 ( add
compiler/src/Canonicalize/Expression.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -Wall #-}
1+{-# OPTIONS_GHC -fno-warn-x-partial #-}
22{-# LANGUAGE OverloadedStrings #-}
33module Canonicalize.Expression
44 ( canonicalize
compiler/src/Canonicalize/Module.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Canonicalize.Module
32 ( canonicalize
43 )
compiler/src/Canonicalize/Pattern.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Canonicalize.Pattern
32 ( verify
43 , Bindings
compiler/src/Canonicalize/Type.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Canonicalize.Type
43 ( toAnnotation
compiler/src/Data/Bag.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Data.Bag
32 ( Bag(..)
43 , empty
compiler/src/Data/Name.hs+1−8
@@ -44,14 +44,7 @@ import qualified Data.Coerce as Coerce
4444import qualified Data.List as List
4545import qualified Data.String as Chars
4646import qualified Data.Utf8 as Utf8
47−import GHC.Exts
48− ( Int(I#), Ptr
49− , MutableByteArray#
50− , isTrue#
51− , newByteArray#
52− , sizeofByteArray#
53− , unsafeFreezeByteArray#
54− )
47+import GHC.Exts (Int(I#), Ptr, isTrue#)
5548import GHC.ST (ST(ST), runST)
5649import GHC.Prim
5750import GHC.Word (Word8(W8#))
compiler/src/Data/OneOrMore.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Data.OneOrMore
32 ( OneOrMore(..)
43 , one
compiler/src/Data/Utf8.hs+1−13
@@ -47,19 +47,7 @@ import qualified Data.List as List
4747import Foreign.ForeignPtr (touchForeignPtr)
4848import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
4949import Foreign.Ptr (minusPtr, plusPtr)
50−import GHC.Exts
51− ( Int(I#), Ptr(Ptr), Char(C#)
52− , RealWorld
53− , ByteArray#, MutableByteArray#
54− , isTrue#
55− , newByteArray#
56− , unsafeFreezeByteArray#
57− , sizeofByteArray#
58− , copyByteArray#
59− , copyAddrToByteArray#
60− , copyByteArrayToAddr#
61− , writeWord8Array#
62− )
50+import GHC.Exts (Int(I#), Ptr(Ptr), Char(C#), isTrue#)
6351import GHC.IO
6452import GHC.ST (ST(ST), runST)
6553import GHC.Prim
compiler/src/Elm/Compiler/Imports.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Elm.Compiler.Imports
43 ( defaults
compiler/src/Elm/Compiler/Type.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -Wall #-}
1+{-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns #-}
22{-# LANGUAGE OverloadedStrings #-}
33module Elm.Compiler.Type
44 ( Type(..)
compiler/src/Elm/Compiler/Type/Extract.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, OverloadedStrings, Rank2Types #-}
32module Elm.Compiler.Type.Extract
43 ( fromAnnotation
compiler/src/Elm/Constraint.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Elm.Constraint
43 ( Constraint
compiler/src/Elm/Docs.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, MultiWayIf, OverloadedStrings, UnboxedTuples #-}
32module Elm.Docs
43 ( Documentation
compiler/src/Elm/Float.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE EmptyDataDecls, FlexibleInstances #-}
32module Elm.Float
43 ( Float
compiler/src/Elm/Interface.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Elm.Interface
32 ( Interface(..)
43 , Union(..)
compiler/src/Elm/Kernel.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, EmptyDataDecls, OverloadedStrings, UnboxedTuples #-}
32module Elm.Kernel
43 ( Content(..)
compiler/src/Elm/Licenses.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Elm.Licenses
43 ( License
compiler/src/Elm/Package.hs+40−6
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, EmptyDataDecls, FlexibleInstances, UnboxedTuples #-}
32module Elm.Package
43 ( Name(..)
@@ -15,6 +14,9 @@ module Elm.Package
1514 , browser, virtualDom, html
1615 , json, http, url
1716 , webgl, linearAlgebra
17+ , ui
18+ , crypto
19+ , bytes
1820 --
1921 , suggestions
2022 , nearbyNames
@@ -34,7 +36,6 @@ import qualified Data.Coerce as Coerce
3436import qualified Data.List as List
3537import qualified Data.Map as Map
3638import qualified Data.Name as Name
37−import Data.Monoid ((<>))
3839import qualified Data.Utf8 as Utf8
3940import Data.Word (Word8)
4041import Foreign.Ptr (Ptr, plusPtr, minusPtr)
@@ -82,7 +83,7 @@ data Canonical =
8283
8384isKernel :: Name -> Bool
8485isKernel (Name author _) =
85− author == elm || author == elm_explorations
86+ author == elm || author == elm_explorations || author == lynxjs_elm
8687
8788
8889toChars :: Name -> String
@@ -135,13 +136,13 @@ core =
135136{-# NOINLINE browser #-}
136137browser :: Name
137138browser =
138− toName elm "browser"
139+ toName lynxjs_elm "browser"
139140
140141
141142{-# NOINLINE virtualDom #-}
142143virtualDom :: Name
143144virtualDom =
144− toName elm "virtual-dom"
145+ toName lynxjs_elm "virtual-dom"
145146
146147
147148{-# NOINLINE html #-}
@@ -159,7 +160,7 @@ json =
159160{-# NOINLINE http #-}
160161http :: Name
161162http =
162− toName elm "http"
163+ toName lynxjs_elm "http"
163164
164165
165166{-# NOINLINE url #-}
@@ -192,6 +193,30 @@ elm_explorations =
192193 Utf8.fromChars "elm-explorations"
193194
194195
196+{-# NOINLINE lynxjs_elm #-}
197+lynxjs_elm :: Author
198+lynxjs_elm =
199+ Utf8.fromChars "lynxjs-elm"
200+
201+
202+{-# NOINLINE ui #-}
203+ui :: Name
204+ui =
205+ toName lynxjs_elm "ui"
206+
207+
208+{-# NOINLINE crypto #-}
209+crypto :: Name
210+crypto =
211+ toName lynxjs_elm "crypto"
212+
213+
214+{-# NOINLINE bytes #-}
215+bytes :: Name
216+bytes =
217+ toName lynxjs_elm "bytes"
218+
219+
195220
196221-- PACKAGE SUGGESTIONS
197222
@@ -218,6 +243,15 @@ suggestions =
218243 , "Time" ==> time
219244 , "Url.Parser" ==> url
220245 , "Url" ==> url
246+ , "Lynx" ==> ui
247+ , "Lynx.Attributes" ==> ui
248+ , "Lynx.Events" ==> ui
249+ , "Bytes" ==> bytes
250+ , "Bytes.Decode" ==> bytes
251+ , "Bytes.Encode" ==> bytes
252+ , "Crypto.Ed25519" ==> crypto
253+ , "Crypto.X25519" ==> crypto
254+ , "Crypto.Cipher" ==> crypto
221255 ]
222256
223257
compiler/src/Elm/Version.hs+2−3
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, UnboxedTuples #-}
32module Elm.Version
43 ( Version(..)
@@ -24,7 +23,7 @@ import Data.Binary (Binary, get, put, getWord8, putWord8)
2423import qualified Data.Version as Version
2524import Data.Word (Word8, Word16)
2625import Foreign.Ptr (Ptr, plusPtr, minusPtr)
27−import qualified Paths_elm
26+import qualified Paths_lynxjs_elm
2827
2928import qualified Json.Decode as D
3029import qualified Json.Encode as E
@@ -57,7 +56,7 @@ max =
5756
5857compiler :: Version
5958compiler =
60− case map fromIntegral (Version.versionBranch Paths_elm.version) of
59+ case map fromIntegral (Version.versionBranch Paths_lynxjs_elm.version) of
6160 major : minor : patch : _ ->
6261 Version major minor patch
6362
compiler/src/Generate/Html.hs+166−24
@@ -2,12 +2,12 @@
22{-# LANGUAGE QuasiQuotes #-}
33module Generate.Html
44 ( sandwich
5+ , sandwichReactor
56 )
67 where
78
89
910import qualified Data.ByteString.Builder as B
10−import Data.Monoid ((<>))
1111import qualified Data.Name as Name
1212import Text.RawString.QQ (r)
1313
@@ -19,36 +19,178 @@ import Text.RawString.QQ (r)
1919sandwich :: Name.Name -> B.Builder -> B.Builder
2020sandwich moduleName javascript =
2121 let name = Name.toBuilder moduleName in
22− [r|<!DOCTYPE HTML>
22+ [r|<!DOCTYPE html>
2323<html>
2424<head>
25− <meta charset="UTF-8">
26− <title>|] <> name <> [r|</title>
27− <style>body { padding: 0; margin: 0; }</style>
25+<meta charset="UTF-8">
26+<meta name="viewport" content="width=device-width, initial-scale=1">
27+<title>LynxJS-Elm</title>
28+<style>
29+*, *::before, *::after { box-sizing: border-box; margin: 0; padding: 0; }
30+body { font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, sans-serif; }
31+</style>
2832</head>
29−
3033<body>
34+<script>
35+|] <> polyfill <> [r|
36+</script>
37+<script>
38+|] <> javascript <> [r|
39+var app = Elm.|] <> name <> [r|.init({});
40+</script>
41+</body>
42+</html>
43+|]
44+
45+
3146
32−<pre id="elm"></pre>
47+-- REACTOR SANDWICH (with live reload)
3348
49+
50+sandwichReactor :: Name.Name -> B.Builder -> B.Builder
51+sandwichReactor moduleName javascript =
52+ let name = Name.toBuilder moduleName in
53+ [r|<!DOCTYPE html>
54+<html>
55+<head>
56+<meta charset="UTF-8">
57+<meta name="viewport" content="width=device-width, initial-scale=1">
58+<title>LynxJS-Elm</title>
59+<style>
60+*, *::before, *::after { box-sizing: border-box; margin: 0; padding: 0; }
61+body { font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, sans-serif; }
62+</style>
63+</head>
64+<body>
65+<script>
66+|] <> polyfill <> [r|
67+</script>
3468<script>
35−try {
3669|] <> javascript <> [r|
37−
38− var app = Elm.|] <> name <> [r|.init({ node: document.getElementById("elm") });
39−}
40−catch (e)
41−{
42− // display initialization errors (e.g. bad flags, infinite recursion)
43− var header = document.createElement("h1");
44− header.style.fontFamily = "monospace";
45− header.innerText = "Initialization Error";
46− var pre = document.getElementById("elm");
47− document.body.insertBefore(header, pre);
48− pre.innerText = e;
49− throw e;
50−}
70+var app = Elm.|] <> name <> [r|.init({});
71+</script>
72+<script>
73+|] <> reloadScript <> [r|
5174</script>
52−
5375</body>
54−</html>|]
76+</html>
77+|]
78+
79+
80+
81+-- LIVE RELOAD SCRIPT
82+
83+
84+reloadScript :: B.Builder
85+reloadScript = [r|
86+(function() {
87+ var lastMtime = null;
88+ function poll() {
89+ fetch('/_elm/watch')
90+ .then(function(r) { return r.text(); })
91+ .then(function(mtime) {
92+ if (lastMtime === null) { lastMtime = mtime; }
93+ else if (mtime !== lastMtime) { location.reload(); }
94+ setTimeout(poll, 500);
95+ })
96+ .catch(function() { setTimeout(poll, 2000); });
97+ }
98+ poll();
99+})();
100+|]
101+
102+
103+
104+-- PAPI POLYFILL
105+
106+
107+polyfill :: B.Builder
108+polyfill = [r|
109+// LynxJS PAPI-to-DOM polyfill for browser preview
110+(function() {
111+ var eventMap = {
112+ 'tap': 'click',
113+ 'longpress': 'contextmenu',
114+ 'touchstart': 'touchstart',
115+ 'touchmove': 'touchmove',
116+ 'touchend': 'touchend',
117+ 'touchcancel': 'touchcancel',
118+ 'input': 'input'
119+ };
120+
121+ var g = typeof globalThis !== 'undefined' ? globalThis : window;
122+
123+ function makeEl(domTag, lynxTag) {
124+ var el = document.createElement(domTag);
125+ el.setAttribute('data-lynx-tag', lynxTag);
126+ return el;
127+ }
128+
129+ g.__CreatePage = function() {
130+ var page = document.createElement('div');
131+ page.id = 'lynx-page';
132+ document.body.appendChild(page);
133+ return page;
134+ };
135+
136+ g.__CreateView = function() { return makeEl('div', 'view'); };
137+ g.__CreateText = function() { return makeEl('span', 'text'); };
138+ g.__CreateImage = function() { return makeEl('img', 'image'); };
139+
140+ g.__CreateRawText = function(text) {
141+ var el = document.createElement('span');
142+ el.setAttribute('data-lynx-tag', 'raw-text');
143+ el.textContent = text;
144+ return el;
145+ };
146+
147+ g.__AppendElement = function(parent, child) {
148+ parent.appendChild(child);
149+ };
150+
151+ g.__RemoveElement = function(parent, child) {
152+ parent.removeChild(child);
153+ };
154+
155+ g.__ReplaceElement = function(parent, newEl, oldEl) {
156+ parent.replaceChild(newEl, oldEl);
157+ };
158+
159+ g.__InsertElementBefore = function(parent, child, ref) {
160+ parent.insertBefore(child, ref);
161+ };
162+
163+ g.__SetAttribute = function(el, key, value) {
164+ if (key === 'text') {
165+ el.textContent = value;
166+ } else if (key === 'src' && el.tagName === 'IMG') {
167+ el.src = value;
168+ } else {
169+ el.setAttribute(key, value);
170+ }
171+ };
172+
173+ g.__AddEvent = function(el, bindingName, eventName, handler) {
174+ var domEvent = eventMap[eventName] || eventName;
175+ var fn = typeof handler === 'function' ? handler : handler.value;
176+ el.addEventListener(domEvent, function(e) { fn(e); });
177+ };
178+
179+ g.__SetInlineStyles = function(el, styles) {
180+ Object.assign(el.style, styles);
181+ };
182+
183+ g.__GetChildren = function(el) {
184+ return Array.from(el.children);
185+ };
186+
187+ g.__GetParent = function(el) {
188+ return el.parentNode;
189+ };
190+
191+ g.__FlushElementTree = function() {};
192+
193+ // Set up root page so _Browser_newPage() finds it
194+ g.page = g.__CreatePage();
195+})();
196+|]
compiler/src/Generate/JavaScript.hs+136−5
@@ -1,4 +1,4 @@
1−{-# LANGUAGE OverloadedStrings #-}
1+{-# LANGUAGE OverloadedStrings, PatternGuards #-}
22module Generate.JavaScript
33 ( generate
44 , generateForRepl
@@ -8,8 +8,8 @@ module Generate.JavaScript
88
99
1010import Prelude hiding (cycle, print)
11+import qualified Data.ByteString as BS
1112import qualified Data.ByteString.Builder as B
12−import Data.Monoid ((<>))
1313import qualified Data.List as List
1414import Data.Map ((!))
1515import qualified Data.Map as Map
@@ -50,7 +50,7 @@ generate mode (Opt.GlobalGraph graph _) mains =
5050 <> perfNote mode
5151 <> stateToBuilder state
5252 <> toMainExports mode mains
53− <> "}(this));"
53+ <> "}(globalThis));"
5454
5555
5656addMain :: Mode.Mode -> Graph -> ModuleName.Canonical -> Opt.Main -> State -> State
@@ -162,7 +162,7 @@ emptyState =
162162
163163stateToBuilder :: State -> B.Builder
164164stateToBuilder (State revKernels revBuilders _) =
165− prependBuilders revKernels (prependBuilders revBuilders mempty)
165+ prependBuilders revKernels (extendedUtilsCmp <> prependBuilders revBuilders mempty)
166166
167167
168168prependBuilders :: [B.Builder] -> B.Builder -> B.Builder
@@ -170,6 +170,43 @@ prependBuilders revBuilders monolith =
170170 List.foldl' (\m b -> b <> m) monolith revBuilders
171171
172172
173+-- EXTENDED COMPARISON
174+--
175+-- Override _Utils_cmp from elm/core to support structural comparison
176+-- of all Elm values (custom types, records, etc.), not just the types
177+-- that satisfy the standard `comparable` constraint.
178+-- Placed after kernel code so it overwrites the original definition.
179+
180+
181+extendedUtilsCmp :: B.Builder
182+extendedUtilsCmp =
183+ "function _Utils_cmp(x, y, ord) {\
184+ \if (typeof x !== 'object') {\
185+ \return x === y ? 0 : x < y ? -1 : 1; }\
186+ \if (x instanceof String) {\
187+ \var a = x.valueOf(); var b = y.valueOf();\
188+ \return a === b ? 0 : a < b ? -1 : 1; }\
189+ \if (typeof x.$ === 'undefined' || (typeof x.$ === 'string' && x.$[0] === '#')) {\
190+ \var keys = Object.keys(x).sort();\
191+ \for (var i = 0; i < keys.length; i++) {\
192+ \var k = keys[i];\
193+ \if (k === '$') continue;\
194+ \ord = _Utils_cmp(x[k], y[k]);\
195+ \if (ord) return ord; }\
196+ \return 0; }\
197+ \if (x.$ === '::' || x.$ === '[]') {\
198+ \for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {}\
199+ \return ord || (x.b ? 1 : y.b ? -1 : 0); }\
200+ \if (x.$ !== y.$) {\
201+ \return x.$ < y.$ ? -1 : 1; }\
202+ \var keys = Object.keys(x);\
203+ \for (var i = 0; i < keys.length; i++) {\
204+ \var k = keys[i];\
205+ \if (k === '$') continue;\
206+ \ord = _Utils_cmp(x[k], y[k]);\
207+ \if (ord) return ord; }\
208+ \return 0; }\n"
209+
173210
174211-- ADD DEPENDENCIES
175212
@@ -343,7 +380,7 @@ drawCycle names =
343380
344381generateKernel :: Mode.Mode -> [K.Chunk] -> B.Builder
345382generateKernel mode chunks =
346− List.foldr (addChunk mode) mempty chunks
383+ List.foldr (addChunk mode) mempty (stripDeadDefs mode chunks)
347384
348385
349386addChunk :: Mode.Mode -> K.Chunk -> B.Builder -> B.Builder
@@ -385,6 +422,100 @@ addChunk mode chunk builder =
385422
386423
387424
425+-- STRIP DEAD DEFS
426+--
427+-- When kernel JS has __Debug/__Prod variants, the inactive one gets
428+-- renamed with _UNUSED. This strips those dead definitions entirely,
429+-- tracking brace/paren counts across chunk boundaries (since a single
430+-- definition body may be split across K.JS chunks interleaved with
431+-- K.JsEnum, K.ElmField, etc.).
432+
433+
434+stripDeadDefs :: Mode.Mode -> [K.Chunk] -> [K.Chunk]
435+stripDeadDefs mode = go
436+ where
437+ go [] = []
438+ go (K.JS before : marker : rest)
439+ | isDeadMarker mode marker
440+ , not (isInlineConditional before) =
441+ let before' = stripTrailingDef before
442+ rest' = skipDeadBody 0 0 rest
443+ in
444+ prependChunk before' $ go rest'
445+ go (chunk : rest) = chunk : go rest
446+
447+ prependChunk bs rest
448+ | BS.null bs = rest
449+ | otherwise = K.JS bs : rest
450+
451+
452+-- | Detect inline conditionals like /**__Prod/ which end with /*
453+-- These use comment-based wrapping, NOT definition-level stripping.
454+isInlineConditional :: BS.ByteString -> Bool
455+isInlineConditional bs =
456+ not (BS.null bs) && BS.index bs (BS.length bs - 1) == 0x2A {- * -}
457+
458+
459+isDeadMarker :: Mode.Mode -> K.Chunk -> Bool
460+isDeadMarker mode chunk =
461+ case (mode, chunk) of
462+ (Mode.Prod _, K.Debug) -> True
463+ (Mode.Dev _, K.Prod) -> True
464+ _ -> False
465+
466+
467+-- | Skip all chunks that form the body of a dead definition.
468+-- Tracks brace/paren counts across K.JS chunks. Non-JS chunks
469+-- (K.JsEnum, K.ElmField, etc.) don't affect the count.
470+-- Stops when a K.JS chunk contains a newline at brace=0, paren=0.
471+skipDeadBody :: Int -> Int -> [K.Chunk] -> [K.Chunk]
472+skipDeadBody _ _ [] = []
473+skipDeadBody bc pc (K.JS js : rest) =
474+ case scanForEnd bc pc js of
475+ Left (bc', pc') ->
476+ -- Didn't find statement end in this chunk; continue scanning
477+ skipDeadBody bc' pc' rest
478+ Right remaining
479+ -- If the remaining text starts with '{', the scanner stopped after
480+ -- a parameter list (e.g., "(value)\n") but the function body hasn't
481+ -- been consumed yet. Continue skipping from the body.
482+ | not (BS.null remaining) && BS.index remaining 0 == 0x7B {- { -} ->
483+ skipDeadBody 0 0 (K.JS remaining : rest)
484+ | BS.null remaining -> rest
485+ | otherwise -> K.JS remaining : rest
486+skipDeadBody bc pc (_ : rest) =
487+ -- Non-JS chunks (JsEnum, ElmField, etc.) don't affect brace/paren count
488+ skipDeadBody bc pc rest
489+
490+
491+-- | Scan a JS ByteString for the end of the current statement.
492+-- Returns Left (bc', pc') if the statement continues past this chunk,
493+-- or Right remaining if we found the end (remaining text after it).
494+scanForEnd :: Int -> Int -> BS.ByteString -> Either (Int, Int) BS.ByteString
495+scanForEnd bc0 pc0 bs = go 0 bc0 pc0
496+ where
497+ len = BS.length bs
498+ go i bc pc
499+ | i >= len = Left (bc, pc)
500+ | b == 0x7B {- { -} = go (i + 1) (bc + 1) pc
501+ | b == 0x7D {- } -} = go (i + 1) (bc - 1) pc
502+ | b == 0x28 {- ( -} = go (i + 1) bc (pc + 1)
503+ | b == 0x29 {- ) -} = go (i + 1) bc (pc - 1)
504+ | b == 0x0A {- \n -} && bc <= 0 && pc <= 0 = Right (BS.drop (i + 1) bs)
505+ | otherwise = go (i + 1) bc pc
506+ where b = BS.index bs i
507+
508+
509+-- | Strip trailing "var name" or "function name" from a JS chunk.
510+-- e.g., "...prev;\nvar name" -> "...prev;\n"
511+stripTrailingDef :: BS.ByteString -> BS.ByteString
512+stripTrailingDef bs =
513+ case BS.elemIndexEnd 0x0A {-\n-} bs of
514+ Just idx -> BS.take (idx + 1) bs
515+ Nothing -> BS.empty
516+
517+
518+
388519-- GENERATE ENUM
389520
390521
compiler/src/Generate/JavaScript/Builder.hs+17−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Generate.JavaScript.Builder
43 ( stmtToBuilder
@@ -18,7 +17,6 @@ import Prelude hiding (lines)
1817import qualified Data.List as List
1918import qualified Data.ByteString as BS
2019import Data.ByteString.Builder as B
21−import Data.Monoid ((<>))
2220import qualified Generate.JavaScript.Name as Name
2321import Generate.JavaScript.Name (Name)
2422import qualified Json.Encode as Json
@@ -50,6 +48,7 @@ data Expr
5048 | Json Json.Value
5149 | Array [Expr]
5250 | Object [(Name, Expr)]
51+ | ObjectSpread Expr [(Name, Expr)]
5352 | Ref Name
5453 | Access Expr Name -- foo.bar
5554 | Index Expr Expr -- foo[bar]
@@ -379,6 +378,22 @@ fromExpr level@(Level indent nextLevel@(Level deeperIndent _)) grouping expressi
379378 else
380379 "{" <> commaSep builders <> "}"
381380
381+ ObjectSpread base fields ->
382+ (,) Many $
383+ let
384+ (baseLines, baseB) = fromExpr level Whatever base
385+ spreadEntry = "..." <> baseB
386+ (anyMany, fieldBuilders) = linesMap (fromField nextLevel) fields
387+ allBuilders = spreadEntry : fieldBuilders
388+ in
389+ if anyMany || baseLines == Many then
390+ "{\n"
391+ <> deeperIndent
392+ <> commaNewlineSep level allBuilders
393+ <> "\n" <> indent <> "}"
394+ else
395+ "{" <> commaSep allBuilders <> "}"
396+
382397 Ref name ->
383398 ( One, Name.toBuilder name )
384399
compiler/src/Generate/JavaScript/Expression.hs+12−4
@@ -1,3 +1,4 @@
1+{-# OPTIONS_GHC -fno-warn-x-partial #-}
12{-# LANGUAGE OverloadedStrings #-}
23module Generate.JavaScript.Expression
34 ( generate
@@ -148,10 +149,17 @@ generate mode expression =
148149
149150 Opt.Update record fields ->
150151 JsExpr $
151− JS.Call (JS.Ref (JsName.fromKernel Name.utils "update"))
152− [ generateJsExpr mode record
153− , generateRecord mode fields
154− ]
152+ case mode of
153+ Mode.Prod _ ->
154+ JS.ObjectSpread (generateJsExpr mode record)
155+ (map (\(field, value) -> (generateField mode field, generateJsExpr mode value))
156+ (Map.toList fields))
157+
158+ Mode.Dev _ ->
159+ JS.Call (JS.Ref (JsName.fromKernel Name.utils "update"))
160+ [ generateJsExpr mode record
161+ , generateRecord mode fields
162+ ]
155163
156164 Opt.Record fields ->
157165 JsExpr $ generateRecord mode fields
compiler/src/Generate/JavaScript/Name.hs−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Generate.JavaScript.Name
43 ( Name
@@ -19,7 +18,6 @@ module Generate.JavaScript.Name
1918
2019
2120import qualified Data.ByteString.Builder as B
22−import Data.Monoid ((<>))
2321import qualified Data.Map as Map
2422import qualified Data.Name as Name
2523import qualified Data.Set as Set
compiler/src/Json/Decode.hs+3−6
@@ -119,7 +119,9 @@ instance Functor (Decoder x) where
119119
120120instance Applicative (Decoder x) where
121121 {-# INLINE pure #-}
122− pure = return
122+ pure a =
123+ Decoder $ \_ ok _ ->
124+ ok a
123125
124126 {-# INLINE (<*>) #-}
125127 (<*>) (Decoder decodeFunc) (Decoder decodeArg) =
@@ -135,11 +137,6 @@ instance Applicative (Decoder x) where
135137
136138
137139instance Monad (Decoder x) where
138− {-# INLINE return #-}
139− return a =
140− Decoder $ \_ ok _ ->
141− ok a
142−
143140 {-# INLINE (>>=) #-}
144141 (>>=) (Decoder decodeA) callback =
145142 Decoder $ \ast ok err ->
compiler/src/Json/Encode.hs−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Json.Encode
43 ( write
@@ -28,7 +27,6 @@ import qualified Data.ByteString.Char8 as BSC
2827import qualified Data.ByteString.Builder as B
2928import qualified Data.Map as Map
3029import qualified Data.Scientific as Sci
31−import Data.Monoid ((<>))
3230import qualified Data.Name as Name
3331import qualified Data.Utf8 as Utf8
3432
compiler/src/Nitpick/PatternMatches.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -Wall #-}
1+{-# OPTIONS_GHC -fno-warn-x-partial #-}
22{-# LANGUAGE OverloadedStrings #-}
33module Nitpick.PatternMatches
44 ( check
compiler/src/Optimize/Case.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Optimize.Case
32 ( optimize
43 )
compiler/src/Optimize/DecisionTree.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -Wall #-}
1+{-# OPTIONS_GHC -fno-warn-x-partial #-}
22{-# LANGUAGE OverloadedStrings #-}
33module Optimize.DecisionTree
44 ( DecisionTree(..)
compiler/src/Optimize/Expression.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Optimize.Expression
43 ( optimize
compiler/src/Optimize/Module.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Optimize.Module
43 ( optimize
compiler/src/Optimize/Names.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE Rank2Types #-}
43module Optimize.Names
compiler/src/Optimize/Port.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Optimize.Port
43 ( toEncoder
compiler/src/Parse/Keyword.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns #-}
32module Parse.Keyword
43 ( type_, alias_, port_
compiler/src/Parse/Module.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Parse.Module
43 ( fromByteString
compiler/src/Parse/Number.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, UnboxedTuples #-}
32module Parse.Number
43 ( Number(..)
compiler/src/Parse/Primitives.hs+3−6
@@ -82,7 +82,9 @@ instance Functor (Parser x) where
8282
8383instance Applicative.Applicative (Parser x) where
8484 {-# INLINE pure #-}
85− pure = return
85+ pure value =
86+ Parser $ \state _ eok _ _ ->
87+ eok value state
8688
8789 {-# INLINE (<*>) #-}
8890 (<*>) (Parser parserFunc) (Parser parserArg) =
@@ -177,11 +179,6 @@ oowfHelp state cok eok cerr parsers fallback =
177179
178180
179181instance Monad (Parser x) where
180− {-# INLINE return #-}
181− return value =
182− Parser $ \state _ eok _ _ ->
183− eok value state
184−
185182 {-# INLINE (>>=) #-}
186183 (Parser parserA) >>= callback =
187184 Parser $ \state cok eok cerr eerr ->
compiler/src/Parse/Shader.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, UnboxedTuples #-}
32module Parse.Shader
43 ( shader
compiler/src/Parse/Symbol.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, OverloadedStrings #-}
32module Parse.Symbol
43 ( operator
compiler/src/Parse/Variable.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE BangPatterns, MagicHash, OverloadedStrings, UnboxedTuples #-}
32module Parse.Variable
43 ( lower
compiler/src/Reporting/Annotation.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Reporting.Annotation
32 ( Located(..)
43 , Position(..)
compiler/src/Reporting/Doc.hs+2−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Doc
43 ( P.Doc
@@ -46,7 +45,6 @@ module Reporting.Doc
4645
4746import Prelude hiding (cycle)
4847import qualified Data.List as List
49−import Data.Monoid ((<>))
5048import qualified Data.Name as Name
5149import qualified System.Console.ANSI.Types as Ansi
5250import qualified System.Info as Info
@@ -348,6 +346,8 @@ sgrToStyle sgrs style@(Style bold underline color) =
348346 Ansi.SetSwapForegroundBackground _ -> style
349347 Ansi.SetColor l i c -> Style bold underline (toColor l i c)
350348 Ansi.SetRGBColor _ _ -> style
349+ Ansi.SetPaletteColor _ _ -> style
350+ Ansi.SetDefaultColor _ -> style
351351
352352
353353isBold :: Ansi.ConsoleIntensity -> Bool
compiler/src/Reporting/Error.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error
43 ( Module(..)
compiler/src/Reporting/Error/Canonicalize.hs+1−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error.Canonicalize
43 ( Error(..)
@@ -26,7 +25,7 @@ import qualified Data.Index as Index
2625import qualified Elm.ModuleName as ModuleName
2726import qualified Reporting.Annotation as A
2827import qualified Reporting.Doc as D
29−import Reporting.Doc (Doc, (<+>), (<>))
28+import Reporting.Doc (Doc, (<+>))
3029import qualified Reporting.Render.Code as Code
3130import qualified Reporting.Render.Type as RT
3231import qualified Reporting.Report as Report
compiler/src/Reporting/Error/Docs.hs−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error.Docs
43 ( Error(..)
@@ -16,7 +15,6 @@ import qualified Data.NonEmptyList as NE
1615import Parse.Primitives (Row, Col)
1716import Parse.Symbol (BadOperator(..))
1817import qualified Reporting.Annotation as A
19−import Reporting.Doc ((<>))
2018import qualified Reporting.Doc as D
2119import qualified Reporting.Render.Code as Code
2220import qualified Reporting.Error.Syntax as E
compiler/src/Reporting/Error/Json.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error.Json
43 ( toReport
compiler/src/Reporting/Error/Main.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error.Main
43 ( Error(..)
compiler/src/Reporting/Error/Pattern.hs−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error.Pattern
43 ( P.Error(..)
@@ -10,7 +9,6 @@ import qualified Data.List as List
109
1110import qualified Elm.String as ES
1211import qualified Nitpick.PatternMatches as P
13−import Reporting.Doc ((<>))
1412import qualified Reporting.Doc as D
1513import qualified Reporting.Report as Report
1614import qualified Reporting.Render.Code as Code
compiler/src/Reporting/Error/Syntax.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error.Syntax
43 ( Error(..)
compiler/src/Reporting/Error/Type.hs−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Error.Type
43 ( Error(..)
@@ -21,7 +20,6 @@ module Reporting.Error.Type
2120
2221import Prelude hiding (round)
2322import qualified Data.Map as Map
24−import Data.Monoid ((<>))
2523import qualified Data.Name as Name
2624
2725import qualified AST.Canonical as Can
compiler/src/Reporting/Render/Code.hs+1−1
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -Wall #-}
1+{-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns #-}
22{-# LANGUAGE OverloadedStrings #-}
33module Reporting.Render.Code
44 ( Source
compiler/src/Reporting/Render/Type.hs+1−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Render.Type
43 ( Context(..)
@@ -21,7 +20,7 @@ import qualified AST.Source as Src
2120import qualified AST.Canonical as Can
2221import qualified Reporting.Annotation as A
2322import qualified Reporting.Doc as D
24−import Reporting.Doc ( Doc, (<+>), (<>) )
23+import Reporting.Doc (Doc, (<+>))
2524import qualified Reporting.Render.Type.Localizer as L
2625
2726
compiler/src/Reporting/Render/Type/Localizer.hs−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Render.Type.Localizer
43 ( Localizer
@@ -17,7 +16,6 @@ import qualified Data.Set as Set
1716
1817import qualified AST.Source as Src
1918import qualified Elm.ModuleName as ModuleName
20−import Reporting.Doc ((<>))
2119import qualified Reporting.Doc as D
2220import qualified Reporting.Annotation as A
2321
compiler/src/Reporting/Result.hs+8−11
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE Rank2Types #-}
32module Reporting.Result
43 ( Result(..)
@@ -105,10 +104,16 @@ instance Applicative (Result i w e) where
105104 in
106105 kf i w bad1 good1
107106
107+ (*>) (Result ka) (Result kb) =
108+ Result $ \i w bad good ->
109+ let
110+ good1 i1 w1 _ =
111+ kb i1 w1 bad good
112+ in
113+ ka i w bad good1
108114
109−instance Monad (Result i w e) where
110− return = ok
111115
116+instance Monad (Result i w e) where
112117 (>>=) (Result ka) callback =
113118 Result $ \i w bad good ->
114119 let
@@ -118,12 +123,4 @@ instance Monad (Result i w e) where
118123 in
119124 ka i w bad good1
120125
121− (>>) (Result ka) (Result kb) =
122− Result $ \i w bad good ->
123− let
124− good1 i1 w1 _ =
125− kb i1 w1 bad good
126− in
127− ka i w bad good1
128−
129126 -- PERF add INLINE to these?
compiler/src/Reporting/Suggest.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Suggest
43 ( distance
compiler/src/Reporting/Warning.hs−2
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Reporting.Warning
43 ( Warning(..)
@@ -8,7 +7,6 @@ module Reporting.Warning
87 where
98
109
11−import Data.Monoid ((<>))
1210import qualified Data.Name as Name
1311
1412import qualified AST.Canonical as Can
compiler/src/Type/Constrain/Expression.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Type.Constrain.Expression
32 ( constrain
43 , constrainDef
compiler/src/Type/Constrain/Module.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Type.Constrain.Module
43 ( constrain
compiler/src/Type/Constrain/Pattern.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21module Type.Constrain.Pattern
32 ( State(..)
43 , emptyState
compiler/src/Type/Error.hs+1−2
@@ -1,4 +1,4 @@
1−{-# OPTIONS_GHC -Wall #-}
1+{-# OPTIONS_GHC -fno-warn-x-partial #-}
22{-# LANGUAGE OverloadedStrings #-}
33module Type.Error
44 ( Type(..)
@@ -20,7 +20,6 @@ module Type.Error
2020
2121import qualified Data.Map as Map
2222import qualified Data.Maybe as Maybe
23−import Data.Monoid ((<>))
2423import qualified Data.Name as Name
2524
2625import qualified Data.Bag as Bag
compiler/src/Type/Instantiate.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Type.Instantiate
43 ( FreeVars
compiler/src/Type/Occurs.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Type.Occurs
43 ( occurs
compiler/src/Type/Solve.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Type.Solve
43 ( run
compiler/src/Type/Type.hs−1
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Type.Type
43 ( Constraint(..)
compiler/src/Type/Unify.hs+29−53
@@ -1,4 +1,3 @@
1−{-# OPTIONS_GHC -Wall #-}
21{-# LANGUAGE OverloadedStrings, Rank2Types #-}
32module Type.Unify
43 ( Answer(..)
@@ -88,12 +87,15 @@ instance Applicative Unify where
8887 in
8988 kf vars ok1 err
9089
90+ (*>) (Unify ka) (Unify kb) =
91+ Unify $ \vars ok err ->
92+ let
93+ ok1 vars1 _ = kb vars1 ok err
94+ in
95+ ka vars ok1 err
9196
92−instance Monad Unify where
93− return a =
94− Unify $ \vars ok _ ->
95− ok vars a
9697
98+instance Monad Unify where
9799 (>>=) (Unify ka) callback =
98100 Unify $ \vars ok err ->
99101 let
@@ -103,13 +105,6 @@ instance Monad Unify where
103105 in
104106 ka vars ok1 err
105107
106− (>>) (Unify ka) (Unify kb) =
107− Unify $ \vars ok err ->
108− let
109− ok1 vars1 _ = kb vars1 ok err
110− in
111− ka vars ok1 err
112−
113108
114109register :: IO Variable -> Unify Variable
115110register mkVar =
@@ -374,53 +369,34 @@ isNumber home name =
374369
375370unifyFlexSuperStructure :: Context -> SuperType -> FlatType -> Unify ()
376371unifyFlexSuperStructure context super flatType =
377− case flatType of
378− App1 home name [] ->
379− if atomMatchesSuper super home name then
380− merge context (Structure flatType)
381− else
382− mismatch
383−
384− App1 home name [variable] | home == ModuleName.list && name == Name.list ->
385− case super of
386− Number ->
387− mismatch
372+ case super of
373+ -- Any type can be used as comparable (e.g. Dict keys, Set members).
374+ -- Structural comparison is provided at runtime for all Elm values.
375+ Comparable ->
376+ merge context (Structure flatType)
388377
389− Appendable ->
378+ _ ->
379+ case flatType of
380+ App1 home name [] ->
381+ if atomMatchesSuper super home name then
390382 merge context (Structure flatType)
391−
392− Comparable ->
393− do comparableOccursCheck context
394− unifyComparableRecursive variable
395− merge context (Structure flatType)
396−
397− CompAppend ->
398− do comparableOccursCheck context
399− unifyComparableRecursive variable
400− merge context (Structure flatType)
401−
402− Tuple1 a b maybeC ->
403− case super of
404− Number ->
405− mismatch
406−
407− Appendable ->
383+ else
408384 mismatch
409385
410− Comparable ->
411− do comparableOccursCheck context
412− unifyComparableRecursive a
413− unifyComparableRecursive b
414− case maybeC of
415− Nothing -> return ()
416− Just c -> unifyComparableRecursive c
417− merge context (Structure flatType)
386+ App1 home name [variable] | home == ModuleName.list && name == Name.list ->
387+ case super of
388+ Number -> mismatch
389+ Appendable -> merge context (Structure flatType)
390+ _ ->
391+ do comparableOccursCheck context
392+ unifyComparableRecursive variable
393+ merge context (Structure flatType)
418394
419− CompAppend ->
420− mismatch
395+ Tuple1 _ _ _ ->
396+ mismatch
421397
422− _ ->
423− mismatch
398+ _ ->
399+ mismatch
424400
425401
426402-- TODO: is there some way to avoid doing this?
examples/counter/elm.jsnew file+5144
@@ -0,0 +1,5144 @@
1+(function(scope){
2+'use strict';
3+
4+function F(arity, fun, wrapper) {
5+ wrapper.a = arity;
6+ wrapper.f = fun;
7+ return wrapper;
8+}
9+
10+function F2(fun) {
11+ return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
12+}
13+function F3(fun) {
14+ return F(3, fun, function(a) {
15+ return function(b) { return function(c) { return fun(a, b, c); }; };
16+ });
17+}
18+function F4(fun) {
19+ return F(4, fun, function(a) { return function(b) { return function(c) {
20+ return function(d) { return fun(a, b, c, d); }; }; };
21+ });
22+}
23+function F5(fun) {
24+ return F(5, fun, function(a) { return function(b) { return function(c) {
25+ return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
26+ });
27+}
28+function F6(fun) {
29+ return F(6, fun, function(a) { return function(b) { return function(c) {
30+ return function(d) { return function(e) { return function(f) {
31+ return fun(a, b, c, d, e, f); }; }; }; }; };
32+ });
33+}
34+function F7(fun) {
35+ return F(7, fun, function(a) { return function(b) { return function(c) {
36+ return function(d) { return function(e) { return function(f) {
37+ return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
38+ });
39+}
40+function F8(fun) {
41+ return F(8, fun, function(a) { return function(b) { return function(c) {
42+ return function(d) { return function(e) { return function(f) {
43+ return function(g) { return function(h) {
44+ return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
45+ });
46+}
47+function F9(fun) {
48+ return F(9, fun, function(a) { return function(b) { return function(c) {
49+ return function(d) { return function(e) { return function(f) {
50+ return function(g) { return function(h) { return function(i) {
51+ return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
52+ });
53+}
54+
55+function A2(fun, a, b) {
56+ return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
57+}
58+function A3(fun, a, b, c) {
59+ return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
60+}
61+function A4(fun, a, b, c, d) {
62+ return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
63+}
64+function A5(fun, a, b, c, d, e) {
65+ return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
66+}
67+function A6(fun, a, b, c, d, e, f) {
68+ return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
69+}
70+function A7(fun, a, b, c, d, e, f, g) {
71+ return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
72+}
73+function A8(fun, a, b, c, d, e, f, g, h) {
74+ return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
75+}
76+function A9(fun, a, b, c, d, e, f, g, h, i) {
77+ return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
78+}
79+
80+console.warn('Compiled in DEV mode. Follow the advice at https://elm-lang.org/0.19.1/optimize for better performance and smaller assets.');
81+
82+
83+var _JsArray_empty = [];
84+
85+function _JsArray_singleton(value)
86+{
87+ return [value];
88+}
89+
90+function _JsArray_length(array)
91+{
92+ return array.length;
93+}
94+
95+var _JsArray_initialize = F3(function(size, offset, func)
96+{
97+ var result = new Array(size);
98+
99+ for (var i = 0; i < size; i++)
100+ {
101+ result[i] = func(offset + i);
102+ }
103+
104+ return result;
105+});
106+
107+var _JsArray_initializeFromList = F2(function (max, ls)
108+{
109+ var result = new Array(max);
110+
111+ for (var i = 0; i < max && ls.b; i++)
112+ {
113+ result[i] = ls.a;
114+ ls = ls.b;
115+ }
116+
117+ result.length = i;
118+ return _Utils_Tuple2(result, ls);
119+});
120+
121+var _JsArray_unsafeGet = F2(function(index, array)
122+{
123+ return array[index];
124+});
125+
126+var _JsArray_unsafeSet = F3(function(index, value, array)
127+{
128+ var length = array.length;
129+ var result = new Array(length);
130+
131+ for (var i = 0; i < length; i++)
132+ {
133+ result[i] = array[i];
134+ }
135+
136+ result[index] = value;
137+ return result;
138+});
139+
140+var _JsArray_push = F2(function(value, array)
141+{
142+ var length = array.length;
143+ var result = new Array(length + 1);
144+
145+ for (var i = 0; i < length; i++)
146+ {
147+ result[i] = array[i];
148+ }
149+
150+ result[length] = value;
151+ return result;
152+});
153+
154+var _JsArray_foldl = F3(function(func, acc, array)
155+{
156+ var length = array.length;
157+
158+ for (var i = 0; i < length; i++)
159+ {
160+ acc = A2(func, array[i], acc);
161+ }
162+
163+ return acc;
164+});
165+
166+var _JsArray_foldr = F3(function(func, acc, array)
167+{
168+ for (var i = array.length - 1; i >= 0; i--)
169+ {
170+ acc = A2(func, array[i], acc);
171+ }
172+
173+ return acc;
174+});
175+
176+var _JsArray_map = F2(function(func, array)
177+{
178+ var length = array.length;
179+ var result = new Array(length);
180+
181+ for (var i = 0; i < length; i++)
182+ {
183+ result[i] = func(array[i]);
184+ }
185+
186+ return result;
187+});
188+
189+var _JsArray_indexedMap = F3(function(func, offset, array)
190+{
191+ var length = array.length;
192+ var result = new Array(length);
193+
194+ for (var i = 0; i < length; i++)
195+ {
196+ result[i] = A2(func, offset + i, array[i]);
197+ }
198+
199+ return result;
200+});
201+
202+var _JsArray_slice = F3(function(from, to, array)
203+{
204+ return array.slice(from, to);
205+});
206+
207+var _JsArray_appendN = F3(function(n, dest, source)
208+{
209+ var destLen = dest.length;
210+ var itemsToCopy = n - destLen;
211+
212+ if (itemsToCopy > source.length)
213+ {
214+ itemsToCopy = source.length;
215+ }
216+
217+ var size = destLen + itemsToCopy;
218+ var result = new Array(size);
219+
220+ for (var i = 0; i < destLen; i++)
221+ {
222+ result[i] = dest[i];
223+ }
224+
225+ for (var i = 0; i < itemsToCopy; i++)
226+ {
227+ result[i + destLen] = source[i];
228+ }
229+
230+ return result;
231+});
232+
233+
234+
235+// LOG
236+
237+
238+var _Debug_log = F2(function(tag, value)
239+{
240+ console.log(tag + ': ' + _Debug_toString(value));
241+ return value;
242+});
243+
244+
245+// TODOS
246+
247+function _Debug_todo(moduleName, region)
248+{
249+ return function(message) {
250+ _Debug_crash(8, moduleName, region, message);
251+ };
252+}
253+
254+function _Debug_todoCase(moduleName, region, value)
255+{
256+ return function(message) {
257+ _Debug_crash(9, moduleName, region, value, message);
258+ };
259+}
260+
261+
262+// TO STRING
263+
264+
265+function _Debug_toString(value)
266+{
267+ return _Debug_toAnsiString(false, value);
268+}
269+
270+function _Debug_toAnsiString(ansi, value)
271+{
272+ if (typeof value === 'function')
273+ {
274+ return _Debug_internalColor(ansi, '<function>');
275+ }
276+
277+ if (typeof value === 'boolean')
278+ {
279+ return _Debug_ctorColor(ansi, value ? 'True' : 'False');
280+ }
281+
282+ if (typeof value === 'number')
283+ {
284+ return _Debug_numberColor(ansi, value + '');
285+ }
286+
287+ if (value instanceof String)
288+ {
289+ return _Debug_charColor(ansi, "'" + _Debug_addSlashes(value, true) + "'");
290+ }
291+
292+ if (typeof value === 'string')
293+ {
294+ return _Debug_stringColor(ansi, '"' + _Debug_addSlashes(value, false) + '"');
295+ }
296+
297+ if (typeof value === 'object' && '$' in value)
298+ {
299+ var tag = value.$;
300+
301+ if (typeof tag === 'number')
302+ {
303+ return _Debug_internalColor(ansi, '<internals>');
304+ }
305+
306+ if (tag[0] === '#')
307+ {
308+ var output = [];
309+ for (var k in value)
310+ {
311+ if (k === '$') continue;
312+ output.push(_Debug_toAnsiString(ansi, value[k]));
313+ }
314+ return '(' + output.join(',') + ')';
315+ }
316+
317+ if (tag === 'Set_elm_builtin')
318+ {
319+ return _Debug_ctorColor(ansi, 'Set')
320+ + _Debug_fadeColor(ansi, '.fromList') + ' '
321+ + _Debug_toAnsiString(ansi, $elm$core$Set$toList(value));
322+ }
323+
324+ if (tag === 'RBNode_elm_builtin' || tag === 'RBEmpty_elm_builtin')
325+ {
326+ return _Debug_ctorColor(ansi, 'Dict')
327+ + _Debug_fadeColor(ansi, '.fromList') + ' '
328+ + _Debug_toAnsiString(ansi, $elm$core$Dict$toList(value));
329+ }
330+
331+ if (tag === 'Array_elm_builtin')
332+ {
333+ return _Debug_ctorColor(ansi, 'Array')
334+ + _Debug_fadeColor(ansi, '.fromList') + ' '
335+ + _Debug_toAnsiString(ansi, $elm$core$Array$toList(value));
336+ }
337+
338+ if (tag === '::' || tag === '[]')
339+ {
340+ var output = '[';
341+
342+ value.b && (output += _Debug_toAnsiString(ansi, value.a), value = value.b)
343+
344+ for (; value.b; value = value.b) // WHILE_CONS
345+ {
346+ output += ',' + _Debug_toAnsiString(ansi, value.a);
347+ }
348+ return output + ']';
349+ }
350+
351+ var output = '';
352+ for (var i in value)
353+ {
354+ if (i === '$') continue;
355+ var str = _Debug_toAnsiString(ansi, value[i]);
356+ var c0 = str[0];
357+ var parenless = c0 === '{' || c0 === '(' || c0 === '[' || c0 === '<' || c0 === '"' || str.indexOf(' ') < 0;
358+ output += ' ' + (parenless ? str : '(' + str + ')');
359+ }
360+ return _Debug_ctorColor(ansi, tag) + output;
361+ }
362+
363+ if (typeof DataView === 'function' && value instanceof DataView)
364+ {
365+ return _Debug_stringColor(ansi, '<' + value.byteLength + ' bytes>');
366+ }
367+
368+ if (typeof File !== 'undefined' && value instanceof File)
369+ {
370+ return _Debug_internalColor(ansi, '<' + value.name + '>');
371+ }
372+
373+ if (typeof value === 'object')
374+ {
375+ var output = [];
376+ for (var key in value)
377+ {
378+ var field = key[0] === '_' ? key.slice(1) : key;
379+ output.push(_Debug_fadeColor(ansi, field) + ' = ' + _Debug_toAnsiString(ansi, value[key]));
380+ }
381+ if (output.length === 0)
382+ {
383+ return '{}';
384+ }
385+ return '{ ' + output.join(', ') + ' }';
386+ }
387+
388+ return _Debug_internalColor(ansi, '<internals>');
389+}
390+
391+function _Debug_addSlashes(str, isChar)
392+{
393+ var s = str
394+ .replace(/\\/g, '\\\\')
395+ .replace(/\n/g, '\\n')
396+ .replace(/\t/g, '\\t')
397+ .replace(/\r/g, '\\r')
398+ .replace(/\v/g, '\\v')
399+ .replace(/\0/g, '\\0');
400+
401+ if (isChar)
402+ {
403+ return s.replace(/\'/g, '\\\'');
404+ }
405+ else
406+ {
407+ return s.replace(/\"/g, '\\"');
408+ }
409+}
410+
411+function _Debug_ctorColor(ansi, string)
412+{
413+ return ansi ? '\x1b[96m' + string + '\x1b[0m' : string;
414+}
415+
416+function _Debug_numberColor(ansi, string)
417+{
418+ return ansi ? '\x1b[95m' + string + '\x1b[0m' : string;
419+}
420+
421+function _Debug_stringColor(ansi, string)
422+{
423+ return ansi ? '\x1b[93m' + string + '\x1b[0m' : string;
424+}
425+
426+function _Debug_charColor(ansi, string)
427+{
428+ return ansi ? '\x1b[92m' + string + '\x1b[0m' : string;
429+}
430+
431+function _Debug_fadeColor(ansi, string)
432+{
433+ return ansi ? '\x1b[37m' + string + '\x1b[0m' : string;
434+}
435+
436+function _Debug_internalColor(ansi, string)
437+{
438+ return ansi ? '\x1b[36m' + string + '\x1b[0m' : string;
439+}
440+
441+function _Debug_toHexDigit(n)
442+{
443+ return String.fromCharCode(n < 10 ? 48 + n : 55 + n);
444+}
445+
446+
447+// CRASH
448+
449+
450+
451+
452+function _Debug_crash(identifier, fact1, fact2, fact3, fact4)
453+{
454+ switch(identifier)
455+ {
456+ case 0:
457+ throw new Error('What node should I take over? In JavaScript I need something like:\n\n Elm.Main.init({\n node: document.getElementById("elm-node")\n })\n\nYou need to do this with any Browser.sandbox or Browser.element program.');
458+
459+ case 1:
460+ throw new Error('Browser.application programs cannot handle URLs like this:\n\n ' + document.location.href + '\n\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.');
461+
462+ case 2:
463+ var jsonErrorString = fact1;
464+ throw new Error('Problem with the flags given to your Elm program on initialization.\n\n' + jsonErrorString);
465+
466+ case 3:
467+ var portName = fact1;
468+ throw new Error('There can only be one port named `' + portName + '`, but your program has multiple.');
469+
470+ case 4:
471+ var portName = fact1;
472+ var problem = fact2;
473+ throw new Error('Trying to send an unexpected type of value through port `' + portName + '`:\n' + problem);
474+
475+ case 5:
476+ throw new Error('Trying to use `(==)` on functions.\nThere is no way to know if functions are "the same" in the Elm sense.\nRead more about this at https://package.elm-lang.org/packages/elm/core/latest/Basics#== which describes why it is this way and what the better version will look like.');
477+
478+ case 6:
479+ var moduleName = fact1;
480+ throw new Error('Your page is loading multiple Elm scripts with a module named ' + moduleName + '. Maybe a duplicate script is getting loaded accidentally? If not, rename one of them so I know which is which!');
481+
482+ case 8:
483+ var moduleName = fact1;
484+ var region = fact2;
485+ var message = fact3;
486+ throw new Error('TODO in module `' + moduleName + '` ' + _Debug_regionToString(region) + '\n\n' + message);
487+
488+ case 9:
489+ var moduleName = fact1;
490+ var region = fact2;
491+ var value = fact3;
492+ var message = fact4;
493+ throw new Error(
494+ 'TODO in module `' + moduleName + '` from the `case` expression '
495+ + _Debug_regionToString(region) + '\n\nIt received the following value:\n\n '
496+ + _Debug_toString(value).replace('\n', '\n ')
497+ + '\n\nBut the branch that handles it says:\n\n ' + message.replace('\n', '\n ')
498+ );
499+
500+ case 10:
501+ throw new Error('Bug in https://github.com/elm/virtual-dom/issues');
502+
503+ case 11:
504+ throw new Error('Cannot perform mod 0. Division by zero error.');
505+ }
506+}
507+
508+function _Debug_regionToString(region)
509+{
510+ if (region.start.line === region.end.line)
511+ {
512+ return 'on line ' + region.start.line;
513+ }
514+ return 'on lines ' + region.start.line + ' through ' + region.end.line;
515+}
516+
517+
518+
519+// EQUALITY
520+
521+function _Utils_eq(x, y)
522+{
523+ for (
524+ var pair, stack = [], isEqual = _Utils_eqHelp(x, y, 0, stack);
525+ isEqual && (pair = stack.pop());
526+ isEqual = _Utils_eqHelp(pair.a, pair.b, 0, stack)
527+ )
528+ {}
529+
530+ return isEqual;
531+}
532+
533+function _Utils_eqHelp(x, y, depth, stack)
534+{
535+ if (x === y)
536+ {
537+ return true;
538+ }
539+
540+ if (typeof x !== 'object' || x === null || y === null)
541+ {
542+ typeof x === 'function' && _Debug_crash(5);
543+ return false;
544+ }
545+
546+ if (depth > 100)
547+ {
548+ stack.push(_Utils_Tuple2(x,y));
549+ return true;
550+ }
551+
552+ /**/
553+ if (x.$ === 'Set_elm_builtin')
554+ {
555+ x = $elm$core$Set$toList(x);
556+ y = $elm$core$Set$toList(y);
557+ }
558+ if (x.$ === 'RBNode_elm_builtin' || x.$ === 'RBEmpty_elm_builtin')
559+ {
560+ x = $elm$core$Dict$toList(x);
561+ y = $elm$core$Dict$toList(y);
562+ }
563+ //*/
564+
565+ /**_UNUSED/
566+ if (x.$ < 0)
567+ {
568+ x = $elm$core$Dict$toList(x);
569+ y = $elm$core$Dict$toList(y);
570+ }
571+ //*/
572+
573+ for (var key in x)
574+ {
575+ if (!_Utils_eqHelp(x[key], y[key], depth + 1, stack))
576+ {
577+ return false;
578+ }
579+ }
580+ return true;
581+}
582+
583+var _Utils_equal = F2(_Utils_eq);
584+var _Utils_notEqual = F2(function(a, b) { return !_Utils_eq(a,b); });
585+
586+
587+
588+// COMPARISONS
589+
590+// Code in Generate/JavaScript.hs, Basics.js, and List.js depends on
591+// the particular integer values assigned to LT, EQ, and GT.
592+
593+function _Utils_cmp(x, y, ord)
594+{
595+ if (typeof x !== 'object')
596+ {
597+ return x === y ? /*EQ*/ 0 : x < y ? /*LT*/ -1 : /*GT*/ 1;
598+ }
599+
600+ /**/
601+ if (x instanceof String)
602+ {
603+ var a = x.valueOf();
604+ var b = y.valueOf();
605+ return a === b ? 0 : a < b ? -1 : 1;
606+ }
607+ //*/
608+
609+ /**_UNUSED/
610+ if (typeof x.$ === 'undefined')
611+ //*/
612+ /**/
613+ if (x.$[0] === '#')
614+ //*/
615+ {
616+ return (ord = _Utils_cmp(x.a, y.a))
617+ ? ord
618+ : (ord = _Utils_cmp(x.b, y.b))
619+ ? ord
620+ : _Utils_cmp(x.c, y.c);
621+ }
622+
623+ // traverse conses until end of a list or a mismatch
624+ for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {} // WHILE_CONSES
625+ return ord || (x.b ? /*GT*/ 1 : y.b ? /*LT*/ -1 : /*EQ*/ 0);
626+}
627+
628+var _Utils_lt = F2(function(a, b) { return _Utils_cmp(a, b) < 0; });
629+var _Utils_le = F2(function(a, b) { return _Utils_cmp(a, b) < 1; });
630+var _Utils_gt = F2(function(a, b) { return _Utils_cmp(a, b) > 0; });
631+var _Utils_ge = F2(function(a, b) { return _Utils_cmp(a, b) >= 0; });
632+
633+var _Utils_compare = F2(function(x, y)
634+{
635+ var n = _Utils_cmp(x, y);
636+ return n < 0 ? $elm$core$Basics$LT : n ? $elm$core$Basics$GT : $elm$core$Basics$EQ;
637+});
638+
639+
640+// COMMON VALUES
641+
642+var _Utils_Tuple0 = { $: '#0' };
643+
644+function _Utils_Tuple2(a, b) { return { $: '#2', a: a, b: b }; }
645+
646+function _Utils_Tuple3(a, b, c) { return { $: '#3', a: a, b: b, c: c }; }
647+
648+function _Utils_chr(c) { return new String(c); }
649+
650+
651+// RECORDS
652+
653+function _Utils_update(oldRecord, updatedFields)
654+{
655+ var newRecord = {};
656+
657+ for (var key in oldRecord)
658+ {
659+ newRecord[key] = oldRecord[key];
660+ }
661+
662+ for (var key in updatedFields)
663+ {
664+ newRecord[key] = updatedFields[key];
665+ }
666+
667+ return newRecord;
668+}
669+
670+
671+// APPEND
672+
673+var _Utils_append = F2(_Utils_ap);
674+
675+function _Utils_ap(xs, ys)
676+{
677+ // append Strings
678+ if (typeof xs === 'string')
679+ {
680+ return xs + ys;
681+ }
682+
683+ // append Lists
684+ if (!xs.b)
685+ {
686+ return ys;
687+ }
688+ var root = _List_Cons(xs.a, ys);
689+ xs = xs.b
690+ for (var curr = root; xs.b; xs = xs.b) // WHILE_CONS
691+ {
692+ curr = curr.b = _List_Cons(xs.a, ys);
693+ }
694+ return root;
695+}
696+
697+
698+
699+var _List_Nil = { $: '[]' };
700+
701+function _List_Cons(hd, tl) { return { $: '::', a: hd, b: tl }; }
702+
703+
704+var _List_cons = F2(_List_Cons);
705+
706+function _List_fromArray(arr)
707+{
708+ var out = _List_Nil;
709+ for (var i = arr.length; i--; )
710+ {
711+ out = _List_Cons(arr[i], out);
712+ }
713+ return out;
714+}
715+
716+function _List_toArray(xs)
717+{
718+ for (var out = []; xs.b; xs = xs.b) // WHILE_CONS
719+ {
720+ out.push(xs.a);
721+ }
722+ return out;
723+}
724+
725+var _List_map2 = F3(function(f, xs, ys)
726+{
727+ for (var arr = []; xs.b && ys.b; xs = xs.b, ys = ys.b) // WHILE_CONSES
728+ {
729+ arr.push(A2(f, xs.a, ys.a));
730+ }
731+ return _List_fromArray(arr);
732+});
733+
734+var _List_map3 = F4(function(f, xs, ys, zs)
735+{
736+ for (var arr = []; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
737+ {
738+ arr.push(A3(f, xs.a, ys.a, zs.a));
739+ }
740+ return _List_fromArray(arr);
741+});
742+
743+var _List_map4 = F5(function(f, ws, xs, ys, zs)
744+{
745+ for (var arr = []; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
746+ {
747+ arr.push(A4(f, ws.a, xs.a, ys.a, zs.a));
748+ }
749+ return _List_fromArray(arr);
750+});
751+
752+var _List_map5 = F6(function(f, vs, ws, xs, ys, zs)
753+{
754+ for (var arr = []; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
755+ {
756+ arr.push(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a));
757+ }
758+ return _List_fromArray(arr);
759+});
760+
761+var _List_sortBy = F2(function(f, xs)
762+{
763+ return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
764+ return _Utils_cmp(f(a), f(b));
765+ }));
766+});
767+
768+var _List_sortWith = F2(function(f, xs)
769+{
770+ return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
771+ var ord = A2(f, a, b);
772+ return ord === $elm$core$Basics$EQ ? 0 : ord === $elm$core$Basics$LT ? -1 : 1;
773+ }));
774+});
775+
776+
777+
778+// MATH
779+
780+var _Basics_add = F2(function(a, b) { return a + b; });
781+var _Basics_sub = F2(function(a, b) { return a - b; });
782+var _Basics_mul = F2(function(a, b) { return a * b; });
783+var _Basics_fdiv = F2(function(a, b) { return a / b; });
784+var _Basics_idiv = F2(function(a, b) { return (a / b) | 0; });
785+var _Basics_pow = F2(Math.pow);
786+
787+var _Basics_remainderBy = F2(function(b, a) { return a % b; });
788+
789+// https://www.microsoft.com/en-us/research/wp-content/uploads/2016/02/divmodnote-letter.pdf
790+var _Basics_modBy = F2(function(modulus, x)
791+{
792+ var answer = x % modulus;
793+ return modulus === 0
794+ ? _Debug_crash(11)
795+ :
796+ ((answer > 0 && modulus < 0) || (answer < 0 && modulus > 0))
797+ ? answer + modulus
798+ : answer;
799+});
800+
801+
802+// TRIGONOMETRY
803+
804+var _Basics_pi = Math.PI;
805+var _Basics_e = Math.E;
806+var _Basics_cos = Math.cos;
807+var _Basics_sin = Math.sin;
808+var _Basics_tan = Math.tan;
809+var _Basics_acos = Math.acos;
810+var _Basics_asin = Math.asin;
811+var _Basics_atan = Math.atan;
812+var _Basics_atan2 = F2(Math.atan2);
813+
814+
815+// MORE MATH
816+
817+function _Basics_toFloat(x) { return x; }
818+function _Basics_truncate(n) { return n | 0; }
819+function _Basics_isInfinite(n) { return n === Infinity || n === -Infinity; }
820+
821+var _Basics_ceiling = Math.ceil;
822+var _Basics_floor = Math.floor;
823+var _Basics_round = Math.round;
824+var _Basics_sqrt = Math.sqrt;
825+var _Basics_log = Math.log;
826+var _Basics_isNaN = isNaN;
827+
828+
829+// BOOLEANS
830+
831+function _Basics_not(bool) { return !bool; }
832+var _Basics_and = F2(function(a, b) { return a && b; });
833+var _Basics_or = F2(function(a, b) { return a || b; });
834+var _Basics_xor = F2(function(a, b) { return a !== b; });
835+
836+
837+
838+var _String_cons = F2(function(chr, str)
839+{
840+ return chr + str;
841+});
842+
843+function _String_uncons(string)
844+{
845+ var word = string.charCodeAt(0);
846+ return !isNaN(word)
847+ ? $elm$core$Maybe$Just(
848+ 0xD800 <= word && word <= 0xDBFF
849+ ? _Utils_Tuple2(_Utils_chr(string[0] + string[1]), string.slice(2))
850+ : _Utils_Tuple2(_Utils_chr(string[0]), string.slice(1))
851+ )
852+ : $elm$core$Maybe$Nothing;
853+}
854+
855+var _String_append = F2(function(a, b)
856+{
857+ return a + b;
858+});
859+
860+function _String_length(str)
861+{
862+ return str.length;
863+}
864+
865+var _String_map = F2(function(func, string)
866+{
867+ var len = string.length;
868+ var array = new Array(len);
869+ var i = 0;
870+ while (i < len)
871+ {
872+ var word = string.charCodeAt(i);
873+ if (0xD800 <= word && word <= 0xDBFF)
874+ {
875+ array[i] = func(_Utils_chr(string[i] + string[i+1]));
876+ i += 2;
877+ continue;
878+ }
879+ array[i] = func(_Utils_chr(string[i]));
880+ i++;
881+ }
882+ return array.join('');
883+});
884+
885+var _String_filter = F2(function(isGood, str)
886+{
887+ var arr = [];
888+ var len = str.length;
889+ var i = 0;
890+ while (i < len)
891+ {
892+ var char = str[i];
893+ var word = str.charCodeAt(i);
894+ i++;
895+ if (0xD800 <= word && word <= 0xDBFF)
896+ {
897+ char += str[i];
898+ i++;
899+ }
900+
901+ if (isGood(_Utils_chr(char)))
902+ {
903+ arr.push(char);
904+ }
905+ }
906+ return arr.join('');
907+});
908+
909+function _String_reverse(str)
910+{
911+ var len = str.length;
912+ var arr = new Array(len);
913+ var i = 0;
914+ while (i < len)
915+ {
916+ var word = str.charCodeAt(i);
917+ if (0xD800 <= word && word <= 0xDBFF)
918+ {
919+ arr[len - i] = str[i + 1];
920+ i++;
921+ arr[len - i] = str[i - 1];
922+ i++;
923+ }
924+ else
925+ {
926+ arr[len - i] = str[i];
927+ i++;
928+ }
929+ }
930+ return arr.join('');
931+}
932+
933+var _String_foldl = F3(function(func, state, string)
934+{
935+ var len = string.length;
936+ var i = 0;
937+ while (i < len)
938+ {
939+ var char = string[i];
940+ var word = string.charCodeAt(i);
941+ i++;
942+ if (0xD800 <= word && word <= 0xDBFF)
943+ {
944+ char += string[i];
945+ i++;
946+ }
947+ state = A2(func, _Utils_chr(char), state);
948+ }
949+ return state;
950+});
951+
952+var _String_foldr = F3(function(func, state, string)
953+{
954+ var i = string.length;
955+ while (i--)
956+ {
957+ var char = string[i];
958+ var word = string.charCodeAt(i);
959+ if (0xDC00 <= word && word <= 0xDFFF)
960+ {
961+ i--;
962+ char = string[i] + char;
963+ }
964+ state = A2(func, _Utils_chr(char), state);
965+ }
966+ return state;
967+});
968+
969+var _String_split = F2(function(sep, str)
970+{
971+ return str.split(sep);
972+});
973+
974+var _String_join = F2(function(sep, strs)
975+{
976+ return strs.join(sep);
977+});
978+
979+var _String_slice = F3(function(start, end, str) {
980+ return str.slice(start, end);
981+});
982+
983+function _String_trim(str)
984+{
985+ return str.trim();
986+}
987+
988+function _String_trimLeft(str)
989+{
990+ return str.replace(/^\s+/, '');
991+}
992+
993+function _String_trimRight(str)
994+{
995+ return str.replace(/\s+$/, '');
996+}
997+
998+function _String_words(str)
999+{
1000+ return _List_fromArray(str.trim().split(/\s+/g));
1001+}
1002+
1003+function _String_lines(str)
1004+{
1005+ return _List_fromArray(str.split(/\r\n|\r|\n/g));
1006+}
1007+
1008+function _String_toUpper(str)
1009+{
1010+ return str.toUpperCase();
1011+}
1012+
1013+function _String_toLower(str)
1014+{
1015+ return str.toLowerCase();
1016+}
1017+
1018+var _String_any = F2(function(isGood, string)
1019+{
1020+ var i = string.length;
1021+ while (i--)
1022+ {
1023+ var char = string[i];
1024+ var word = string.charCodeAt(i);
1025+ if (0xDC00 <= word && word <= 0xDFFF)
1026+ {
1027+ i--;
1028+ char = string[i] + char;
1029+ }
1030+ if (isGood(_Utils_chr(char)))
1031+ {
1032+ return true;
1033+ }
1034+ }
1035+ return false;
1036+});
1037+
1038+var _String_all = F2(function(isGood, string)
1039+{
1040+ var i = string.length;
1041+ while (i--)
1042+ {
1043+ var char = string[i];
1044+ var word = string.charCodeAt(i);
1045+ if (0xDC00 <= word && word <= 0xDFFF)
1046+ {
1047+ i--;
1048+ char = string[i] + char;
1049+ }
1050+ if (!isGood(_Utils_chr(char)))
1051+ {
1052+ return false;
1053+ }
1054+ }
1055+ return true;
1056+});
1057+
1058+var _String_contains = F2(function(sub, str)
1059+{
1060+ return str.indexOf(sub) > -1;
1061+});
1062+
1063+var _String_startsWith = F2(function(sub, str)
1064+{
1065+ return str.indexOf(sub) === 0;
1066+});
1067+
1068+var _String_endsWith = F2(function(sub, str)
1069+{
1070+ return str.length >= sub.length &&
1071+ str.lastIndexOf(sub) === str.length - sub.length;
1072+});
1073+
1074+var _String_indexes = F2(function(sub, str)
1075+{
1076+ var subLen = sub.length;
1077+
1078+ if (subLen < 1)
1079+ {
1080+ return _List_Nil;
1081+ }
1082+
1083+ var i = 0;
1084+ var is = [];
1085+
1086+ while ((i = str.indexOf(sub, i)) > -1)
1087+ {
1088+ is.push(i);
1089+ i = i + subLen;
1090+ }
1091+
1092+ return _List_fromArray(is);
1093+});
1094+
1095+
1096+// TO STRING
1097+
1098+function _String_fromNumber(number)
1099+{
1100+ return number + '';
1101+}
1102+
1103+
1104+// INT CONVERSIONS
1105+
1106+function _String_toInt(str)
1107+{
1108+ var total = 0;
1109+ var code0 = str.charCodeAt(0);
1110+ var start = code0 == 0x2B /* + */ || code0 == 0x2D /* - */ ? 1 : 0;
1111+
1112+ for (var i = start; i < str.length; ++i)
1113+ {
1114+ var code = str.charCodeAt(i);
1115+ if (code < 0x30 || 0x39 < code)
1116+ {
1117+ return $elm$core$Maybe$Nothing;
1118+ }
1119+ total = 10 * total + code - 0x30;
1120+ }
1121+
1122+ return i == start
1123+ ? $elm$core$Maybe$Nothing
1124+ : $elm$core$Maybe$Just(code0 == 0x2D ? -total : total);
1125+}
1126+
1127+
1128+// FLOAT CONVERSIONS
1129+
1130+function _String_toFloat(s)
1131+{
1132+ // check if it is a hex, octal, or binary number
1133+ if (s.length === 0 || /[\sxbo]/.test(s))
1134+ {
1135+ return $elm$core$Maybe$Nothing;
1136+ }
1137+ var n = +s;
1138+ // faster isNaN check
1139+ return n === n ? $elm$core$Maybe$Just(n) : $elm$core$Maybe$Nothing;
1140+}
1141+
1142+function _String_fromList(chars)
1143+{
1144+ return _List_toArray(chars).join('');
1145+}
1146+
1147+
1148+
1149+
1150+function _Char_toCode(char)
1151+{
1152+ var code = char.charCodeAt(0);
1153+ if (0xD800 <= code && code <= 0xDBFF)
1154+ {
1155+ return (code - 0xD800) * 0x400 + char.charCodeAt(1) - 0xDC00 + 0x10000
1156+ }
1157+ return code;
1158+}
1159+
1160+function _Char_fromCode(code)
1161+{
1162+ return _Utils_chr(
1163+ (code < 0 || 0x10FFFF < code)
1164+ ? '\uFFFD'
1165+ :
1166+ (code <= 0xFFFF)
1167+ ? String.fromCharCode(code)
1168+ :
1169+ (code -= 0x10000,
1170+ String.fromCharCode(Math.floor(code / 0x400) + 0xD800, code % 0x400 + 0xDC00)
1171+ )
1172+ );
1173+}
1174+
1175+function _Char_toUpper(char)
1176+{
1177+ return _Utils_chr(char.toUpperCase());
1178+}
1179+
1180+function _Char_toLower(char)
1181+{
1182+ return _Utils_chr(char.toLowerCase());
1183+}
1184+
1185+function _Char_toLocaleUpper(char)
1186+{
1187+ return _Utils_chr(char.toLocaleUpperCase());
1188+}
1189+
1190+function _Char_toLocaleLower(char)
1191+{
1192+ return _Utils_chr(char.toLocaleLowerCase());
1193+}
1194+
1195+
1196+
1197+/**/
1198+function _Json_errorToString(error)
1199+{
1200+ return $elm$json$Json$Decode$errorToString(error);
1201+}
1202+//*/
1203+
1204+
1205+// CORE DECODERS
1206+
1207+function _Json_succeed(msg)
1208+{
1209+ return {
1210+ $: 0,
1211+ a: msg
1212+ };
1213+}
1214+
1215+function _Json_fail(msg)
1216+{
1217+ return {
1218+ $: 1,
1219+ a: msg
1220+ };
1221+}
1222+
1223+function _Json_decodePrim(decoder)
1224+{
1225+ return { $: 2, b: decoder };
1226+}
1227+
1228+var _Json_decodeInt = _Json_decodePrim(function(value) {
1229+ return (typeof value !== 'number')
1230+ ? _Json_expecting('an INT', value)
1231+ :
1232+ (-2147483647 < value && value < 2147483647 && (value | 0) === value)
1233+ ? $elm$core$Result$Ok(value)
1234+ :
1235+ (isFinite(value) && !(value % 1))
1236+ ? $elm$core$Result$Ok(value)
1237+ : _Json_expecting('an INT', value);
1238+});
1239+
1240+var _Json_decodeBool = _Json_decodePrim(function(value) {
1241+ return (typeof value === 'boolean')
1242+ ? $elm$core$Result$Ok(value)
1243+ : _Json_expecting('a BOOL', value);
1244+});
1245+
1246+var _Json_decodeFloat = _Json_decodePrim(function(value) {
1247+ return (typeof value === 'number')
1248+ ? $elm$core$Result$Ok(value)
1249+ : _Json_expecting('a FLOAT', value);
1250+});
1251+
1252+var _Json_decodeValue = _Json_decodePrim(function(value) {
1253+ return $elm$core$Result$Ok(_Json_wrap(value));
1254+});
1255+
1256+var _Json_decodeString = _Json_decodePrim(function(value) {
1257+ return (typeof value === 'string')
1258+ ? $elm$core$Result$Ok(value)
1259+ : (value instanceof String)
1260+ ? $elm$core$Result$Ok(value + '')
1261+ : _Json_expecting('a STRING', value);
1262+});
1263+
1264+function _Json_decodeList(decoder) { return { $: 3, b: decoder }; }
1265+function _Json_decodeArray(decoder) { return { $: 4, b: decoder }; }
1266+
1267+function _Json_decodeNull(value) { return { $: 5, c: value }; }
1268+
1269+var _Json_decodeField = F2(function(field, decoder)
1270+{
1271+ return {
1272+ $: 6,
1273+ d: field,
1274+ b: decoder
1275+ };
1276+});
1277+
1278+var _Json_decodeIndex = F2(function(index, decoder)
1279+{
1280+ return {
1281+ $: 7,
1282+ e: index,
1283+ b: decoder
1284+ };
1285+});
1286+
1287+function _Json_decodeKeyValuePairs(decoder)
1288+{
1289+ return {
1290+ $: 8,
1291+ b: decoder
1292+ };
1293+}
1294+
1295+function _Json_mapMany(f, decoders)
1296+{
1297+ return {
1298+ $: 9,
1299+ f: f,
1300+ g: decoders
1301+ };
1302+}
1303+
1304+var _Json_andThen = F2(function(callback, decoder)
1305+{
1306+ return {
1307+ $: 10,
1308+ b: decoder,
1309+ h: callback
1310+ };
1311+});
1312+
1313+function _Json_oneOf(decoders)
1314+{
1315+ return {
1316+ $: 11,
1317+ g: decoders
1318+ };
1319+}
1320+
1321+
1322+// DECODING OBJECTS
1323+
1324+var _Json_map1 = F2(function(f, d1)
1325+{
1326+ return _Json_mapMany(f, [d1]);
1327+});
1328+
1329+var _Json_map2 = F3(function(f, d1, d2)
1330+{
1331+ return _Json_mapMany(f, [d1, d2]);
1332+});
1333+
1334+var _Json_map3 = F4(function(f, d1, d2, d3)
1335+{
1336+ return _Json_mapMany(f, [d1, d2, d3]);
1337+});
1338+
1339+var _Json_map4 = F5(function(f, d1, d2, d3, d4)
1340+{
1341+ return _Json_mapMany(f, [d1, d2, d3, d4]);
1342+});
1343+
1344+var _Json_map5 = F6(function(f, d1, d2, d3, d4, d5)
1345+{
1346+ return _Json_mapMany(f, [d1, d2, d3, d4, d5]);
1347+});
1348+
1349+var _Json_map6 = F7(function(f, d1, d2, d3, d4, d5, d6)
1350+{
1351+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6]);
1352+});
1353+
1354+var _Json_map7 = F8(function(f, d1, d2, d3, d4, d5, d6, d7)
1355+{
1356+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7]);
1357+});
1358+
1359+var _Json_map8 = F9(function(f, d1, d2, d3, d4, d5, d6, d7, d8)
1360+{
1361+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7, d8]);
1362+});
1363+
1364+
1365+// DECODE
1366+
1367+var _Json_runOnString = F2(function(decoder, string)
1368+{
1369+ try
1370+ {
1371+ var value = JSON.parse(string);
1372+ return _Json_runHelp(decoder, value);
1373+ }
1374+ catch (e)
1375+ {
1376+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'This is not valid JSON! ' + e.message, _Json_wrap(string)));
1377+ }
1378+});
1379+
1380+var _Json_run = F2(function(decoder, value)
1381+{
1382+ return _Json_runHelp(decoder, _Json_unwrap(value));
1383+});
1384+
1385+function _Json_runHelp(decoder, value)
1386+{
1387+ switch (decoder.$)
1388+ {
1389+ case 2:
1390+ return decoder.b(value);
1391+
1392+ case 5:
1393+ return (value === null)
1394+ ? $elm$core$Result$Ok(decoder.c)
1395+ : _Json_expecting('null', value);
1396+
1397+ case 3:
1398+ if (!_Json_isArray(value))
1399+ {
1400+ return _Json_expecting('a LIST', value);
1401+ }
1402+ return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);
1403+
1404+ case 4:
1405+ if (!_Json_isArray(value))
1406+ {
1407+ return _Json_expecting('an ARRAY', value);
1408+ }
1409+ return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);
1410+
1411+ case 6:
1412+ var field = decoder.d;
1413+ if (typeof value !== 'object' || value === null || !(field in value))
1414+ {
1415+ return _Json_expecting('an OBJECT with a field named `' + field + '`', value);
1416+ }
1417+ var result = _Json_runHelp(decoder.b, value[field]);
1418+ return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, field, result.a));
1419+
1420+ case 7:
1421+ var index = decoder.e;
1422+ if (!_Json_isArray(value))
1423+ {
1424+ return _Json_expecting('an ARRAY', value);
1425+ }
1426+ if (index >= value.length)
1427+ {
1428+ return _Json_expecting('a LONGER array. Need index ' + index + ' but only see ' + value.length + ' entries', value);
1429+ }
1430+ var result = _Json_runHelp(decoder.b, value[index]);
1431+ return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, index, result.a));
1432+
1433+ case 8:
1434+ if (typeof value !== 'object' || value === null || _Json_isArray(value))
1435+ {
1436+ return _Json_expecting('an OBJECT', value);
1437+ }
1438+
1439+ var keyValuePairs = _List_Nil;
1440+ // TODO test perf of Object.keys and switch when support is good enough
1441+ for (var key in value)
1442+ {
1443+ if (value.hasOwnProperty(key))
1444+ {
1445+ var result = _Json_runHelp(decoder.b, value[key]);
1446+ if (!$elm$core$Result$isOk(result))
1447+ {
1448+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, key, result.a));
1449+ }
1450+ keyValuePairs = _List_Cons(_Utils_Tuple2(key, result.a), keyValuePairs);
1451+ }
1452+ }
1453+ return $elm$core$Result$Ok($elm$core$List$reverse(keyValuePairs));
1454+
1455+ case 9:
1456+ var answer = decoder.f;
1457+ var decoders = decoder.g;
1458+ for (var i = 0; i < decoders.length; i++)
1459+ {
1460+ var result = _Json_runHelp(decoders[i], value);
1461+ if (!$elm$core$Result$isOk(result))
1462+ {
1463+ return result;
1464+ }
1465+ answer = answer(result.a);
1466+ }
1467+ return $elm$core$Result$Ok(answer);
1468+
1469+ case 10:
1470+ var result = _Json_runHelp(decoder.b, value);
1471+ return (!$elm$core$Result$isOk(result))
1472+ ? result
1473+ : _Json_runHelp(decoder.h(result.a), value);
1474+
1475+ case 11:
1476+ var errors = _List_Nil;
1477+ for (var temp = decoder.g; temp.b; temp = temp.b) // WHILE_CONS
1478+ {
1479+ var result = _Json_runHelp(temp.a, value);
1480+ if ($elm$core$Result$isOk(result))
1481+ {
1482+ return result;
1483+ }
1484+ errors = _List_Cons(result.a, errors);
1485+ }
1486+ return $elm$core$Result$Err($elm$json$Json$Decode$OneOf($elm$core$List$reverse(errors)));
1487+
1488+ case 1:
1489+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, decoder.a, _Json_wrap(value)));
1490+
1491+ case 0:
1492+ return $elm$core$Result$Ok(decoder.a);
1493+ }
1494+}
1495+
1496+function _Json_runArrayDecoder(decoder, value, toElmValue)
1497+{
1498+ var len = value.length;
1499+ var array = new Array(len);
1500+ for (var i = 0; i < len; i++)
1501+ {
1502+ var result = _Json_runHelp(decoder, value[i]);
1503+ if (!$elm$core$Result$isOk(result))
1504+ {
1505+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, i, result.a));
1506+ }
1507+ array[i] = result.a;
1508+ }
1509+ return $elm$core$Result$Ok(toElmValue(array));
1510+}
1511+
1512+function _Json_isArray(value)
1513+{
1514+ return Array.isArray(value) || (typeof FileList !== 'undefined' && value instanceof FileList);
1515+}
1516+
1517+function _Json_toElmArray(array)
1518+{
1519+ return A2($elm$core$Array$initialize, array.length, function(i) { return array[i]; });
1520+}
1521+
1522+function _Json_expecting(type, value)
1523+{
1524+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'Expecting ' + type, _Json_wrap(value)));
1525+}
1526+
1527+
1528+// EQUALITY
1529+
1530+function _Json_equality(x, y)
1531+{
1532+ if (x === y)
1533+ {
1534+ return true;
1535+ }
1536+
1537+ if (x.$ !== y.$)
1538+ {
1539+ return false;
1540+ }
1541+
1542+ switch (x.$)
1543+ {
1544+ case 0:
1545+ case 1:
1546+ return x.a === y.a;
1547+
1548+ case 2:
1549+ return x.b === y.b;
1550+
1551+ case 5:
1552+ return x.c === y.c;
1553+
1554+ case 3:
1555+ case 4:
1556+ case 8:
1557+ return _Json_equality(x.b, y.b);
1558+
1559+ case 6:
1560+ return x.d === y.d && _Json_equality(x.b, y.b);
1561+
1562+ case 7:
1563+ return x.e === y.e && _Json_equality(x.b, y.b);
1564+
1565+ case 9:
1566+ return x.f === y.f && _Json_listEquality(x.g, y.g);
1567+
1568+ case 10:
1569+ return x.h === y.h && _Json_equality(x.b, y.b);
1570+
1571+ case 11:
1572+ return _Json_listEquality(x.g, y.g);
1573+ }
1574+}
1575+
1576+function _Json_listEquality(aDecoders, bDecoders)
1577+{
1578+ var len = aDecoders.length;
1579+ if (len !== bDecoders.length)
1580+ {
1581+ return false;
1582+ }
1583+ for (var i = 0; i < len; i++)
1584+ {
1585+ if (!_Json_equality(aDecoders[i], bDecoders[i]))
1586+ {
1587+ return false;
1588+ }
1589+ }
1590+ return true;
1591+}
1592+
1593+
1594+// ENCODE
1595+
1596+var _Json_encode = F2(function(indentLevel, value)
1597+{
1598+ return JSON.stringify(_Json_unwrap(value), null, indentLevel) + '';
1599+});
1600+
1601+function _Json_wrap(value) { return { $: 0, a: value }; }
1602+function _Json_unwrap(value) { return value.a; }
1603+
1604+
1605+function _Json_emptyArray() { return []; }
1606+function _Json_emptyObject() { return {}; }
1607+
1608+var _Json_addField = F3(function(key, value, object)
1609+{
1610+ object[key] = _Json_unwrap(value);
1611+ return object;
1612+});
1613+
1614+function _Json_addEntry(func)
1615+{
1616+ return F2(function(entry, array)
1617+ {
1618+ array.push(_Json_unwrap(func(entry)));
1619+ return array;
1620+ });
1621+}
1622+
1623+var _Json_encodeNull = _Json_wrap(null);
1624+
1625+
1626+
1627+// TASKS
1628+
1629+function _Scheduler_succeed(value)
1630+{
1631+ return {
1632+ $: 0,
1633+ a: value
1634+ };
1635+}
1636+
1637+function _Scheduler_fail(error)
1638+{
1639+ return {
1640+ $: 1,
1641+ a: error
1642+ };
1643+}
1644+
1645+function _Scheduler_binding(callback)
1646+{
1647+ return {
1648+ $: 2,
1649+ b: callback,
1650+ c: null
1651+ };
1652+}
1653+
1654+var _Scheduler_andThen = F2(function(callback, task)
1655+{
1656+ return {
1657+ $: 3,
1658+ b: callback,
1659+ d: task
1660+ };
1661+});
1662+
1663+var _Scheduler_onError = F2(function(callback, task)
1664+{
1665+ return {
1666+ $: 4,
1667+ b: callback,
1668+ d: task
1669+ };
1670+});
1671+
1672+function _Scheduler_receive(callback)
1673+{
1674+ return {
1675+ $: 5,
1676+ b: callback
1677+ };
1678+}
1679+
1680+
1681+// PROCESSES
1682+
1683+var _Scheduler_guid = 0;
1684+
1685+function _Scheduler_rawSpawn(task)
1686+{
1687+ var proc = {
1688+ $: 0,
1689+ e: _Scheduler_guid++,
1690+ f: task,
1691+ g: null,
1692+ h: []
1693+ };
1694+
1695+ _Scheduler_enqueue(proc);
1696+
1697+ return proc;
1698+}
1699+
1700+function _Scheduler_spawn(task)
1701+{
1702+ return _Scheduler_binding(function(callback) {
1703+ callback(_Scheduler_succeed(_Scheduler_rawSpawn(task)));
1704+ });
1705+}
1706+
1707+function _Scheduler_rawSend(proc, msg)
1708+{
1709+ proc.h.push(msg);
1710+ _Scheduler_enqueue(proc);
1711+}
1712+
1713+var _Scheduler_send = F2(function(proc, msg)
1714+{
1715+ return _Scheduler_binding(function(callback) {
1716+ _Scheduler_rawSend(proc, msg);
1717+ callback(_Scheduler_succeed(_Utils_Tuple0));
1718+ });
1719+});
1720+
1721+function _Scheduler_kill(proc)
1722+{
1723+ return _Scheduler_binding(function(callback) {
1724+ var task = proc.f;
1725+ if (task.$ === 2 && task.c)
1726+ {
1727+ task.c();
1728+ }
1729+
1730+ proc.f = null;
1731+
1732+ callback(_Scheduler_succeed(_Utils_Tuple0));
1733+ });
1734+}
1735+
1736+
1737+/* STEP PROCESSES
1738+
1739+type alias Process =
1740+ { $ : tag
1741+ , id : unique_id
1742+ , root : Task
1743+ , stack : null | { $: SUCCEED | FAIL, a: callback, b: stack }
1744+ , mailbox : [msg]
1745+ }
1746+
1747+*/
1748+
1749+
1750+var _Scheduler_working = false;
1751+var _Scheduler_queue = [];
1752+
1753+
1754+function _Scheduler_enqueue(proc)
1755+{
1756+ _Scheduler_queue.push(proc);
1757+ if (_Scheduler_working)
1758+ {
1759+ return;
1760+ }
1761+ _Scheduler_working = true;
1762+ while (proc = _Scheduler_queue.shift())
1763+ {
1764+ _Scheduler_step(proc);
1765+ }
1766+ _Scheduler_working = false;
1767+}
1768+
1769+
1770+function _Scheduler_step(proc)
1771+{
1772+ while (proc.f)
1773+ {
1774+ var rootTag = proc.f.$;
1775+ if (rootTag === 0 || rootTag === 1)
1776+ {
1777+ while (proc.g && proc.g.$ !== rootTag)
1778+ {
1779+ proc.g = proc.g.i;
1780+ }
1781+ if (!proc.g)
1782+ {
1783+ return;
1784+ }
1785+ proc.f = proc.g.b(proc.f.a);
1786+ proc.g = proc.g.i;
1787+ }
1788+ else if (rootTag === 2)
1789+ {
1790+ proc.f.c = proc.f.b(function(newRoot) {
1791+ proc.f = newRoot;
1792+ _Scheduler_enqueue(proc);
1793+ });
1794+ return;
1795+ }
1796+ else if (rootTag === 5)
1797+ {
1798+ if (proc.h.length === 0)
1799+ {
1800+ return;
1801+ }
1802+ proc.f = proc.f.b(proc.h.shift());
1803+ }
1804+ else // if (rootTag === 3 || rootTag === 4)
1805+ {
1806+ proc.g = {
1807+ $: rootTag === 3 ? 0 : 1,
1808+ b: proc.f.b,
1809+ i: proc.g
1810+ };
1811+ proc.f = proc.f.d;
1812+ }
1813+ }
1814+}
1815+
1816+
1817+
1818+function _Process_sleep(time)
1819+{
1820+ return _Scheduler_binding(function(callback) {
1821+ var id = setTimeout(function() {
1822+ callback(_Scheduler_succeed(_Utils_Tuple0));
1823+ }, time);
1824+
1825+ return function() { clearTimeout(id); };
1826+ });
1827+}
1828+
1829+
1830+
1831+
1832+// PROGRAMS
1833+
1834+
1835+var _Platform_worker = F4(function(impl, flagDecoder, debugMetadata, args)
1836+{
1837+ return _Platform_initialize(
1838+ flagDecoder,
1839+ args,
1840+ impl.init,
1841+ impl.update,
1842+ impl.subscriptions,
1843+ function() { return function() {} }
1844+ );
1845+});
1846+
1847+
1848+
1849+// INITIALIZE A PROGRAM
1850+
1851+
1852+function _Platform_initialize(flagDecoder, args, init, update, subscriptions, stepperBuilder)
1853+{
1854+ var result = A2(_Json_run, flagDecoder, _Json_wrap(args ? args['flags'] : undefined));
1855+ $elm$core$Result$isOk(result) || _Debug_crash(2 /**/, _Json_errorToString(result.a) /**/);
1856+ var managers = {};
1857+ var initPair = init(result.a);
1858+ var model = initPair.a;
1859+ var stepper = stepperBuilder(sendToApp, model);
1860+ var ports = _Platform_setupEffects(managers, sendToApp);
1861+
1862+ function sendToApp(msg, viewMetadata)
1863+ {
1864+ var pair = A2(update, msg, model);
1865+ stepper(model = pair.a, viewMetadata);
1866+ _Platform_enqueueEffects(managers, pair.b, subscriptions(model));
1867+ }
1868+
1869+ _Platform_enqueueEffects(managers, initPair.b, subscriptions(model));
1870+
1871+ return ports ? { ports: ports } : {};
1872+}
1873+
1874+
1875+
1876+// TRACK PRELOADS
1877+//
1878+// This is used by code in elm/browser and elm/http
1879+// to register any HTTP requests that are triggered by init.
1880+//
1881+
1882+
1883+var _Platform_preload;
1884+
1885+
1886+function _Platform_registerPreload(url)
1887+{
1888+ _Platform_preload.add(url);
1889+}
1890+
1891+
1892+
1893+// EFFECT MANAGERS
1894+
1895+
1896+var _Platform_effectManagers = {};
1897+
1898+
1899+function _Platform_setupEffects(managers, sendToApp)
1900+{
1901+ var ports;
1902+
1903+ // setup all necessary effect managers
1904+ for (var key in _Platform_effectManagers)
1905+ {
1906+ var manager = _Platform_effectManagers[key];
1907+
1908+ if (manager.a)
1909+ {
1910+ ports = ports || {};
1911+ ports[key] = manager.a(key, sendToApp);
1912+ }
1913+
1914+ managers[key] = _Platform_instantiateManager(manager, sendToApp);
1915+ }
1916+
1917+ return ports;
1918+}
1919+
1920+
1921+function _Platform_createManager(init, onEffects, onSelfMsg, cmdMap, subMap)
1922+{
1923+ return {
1924+ b: init,
1925+ c: onEffects,
1926+ d: onSelfMsg,
1927+ e: cmdMap,
1928+ f: subMap
1929+ };
1930+}
1931+
1932+
1933+function _Platform_instantiateManager(info, sendToApp)
1934+{
1935+ var router = {
1936+ g: sendToApp,
1937+ h: undefined
1938+ };
1939+
1940+ var onEffects = info.c;
1941+ var onSelfMsg = info.d;
1942+ var cmdMap = info.e;
1943+ var subMap = info.f;
1944+
1945+ function loop(state)
1946+ {
1947+ return A2(_Scheduler_andThen, loop, _Scheduler_receive(function(msg)
1948+ {
1949+ var value = msg.a;
1950+
1951+ if (msg.$ === 0)
1952+ {
1953+ return A3(onSelfMsg, router, value, state);
1954+ }
1955+
1956+ return cmdMap && subMap
1957+ ? A4(onEffects, router, value.i, value.j, state)
1958+ : A3(onEffects, router, cmdMap ? value.i : value.j, state);
1959+ }));
1960+ }
1961+
1962+ return router.h = _Scheduler_rawSpawn(A2(_Scheduler_andThen, loop, info.b));
1963+}
1964+
1965+
1966+
1967+// ROUTING
1968+
1969+
1970+var _Platform_sendToApp = F2(function(router, msg)
1971+{
1972+ return _Scheduler_binding(function(callback)
1973+ {
1974+ router.g(msg);
1975+ callback(_Scheduler_succeed(_Utils_Tuple0));
1976+ });
1977+});
1978+
1979+
1980+var _Platform_sendToSelf = F2(function(router, msg)
1981+{
1982+ return A2(_Scheduler_send, router.h, {
1983+ $: 0,
1984+ a: msg
1985+ });
1986+});
1987+
1988+
1989+
1990+// BAGS
1991+
1992+
1993+function _Platform_leaf(home)
1994+{
1995+ return function(value)
1996+ {
1997+ return {
1998+ $: 1,
1999+ k: home,
2000+ l: value
2001+ };
2002+ };
2003+}
2004+
2005+
2006+function _Platform_batch(list)
2007+{
2008+ return {
2009+ $: 2,
2010+ m: list
2011+ };
2012+}
2013+
2014+
2015+var _Platform_map = F2(function(tagger, bag)
2016+{
2017+ return {
2018+ $: 3,
2019+ n: tagger,
2020+ o: bag
2021+ }
2022+});
2023+
2024+
2025+
2026+// PIPE BAGS INTO EFFECT MANAGERS
2027+//
2028+// Effects must be queued!
2029+//
2030+// Say your init contains a synchronous command, like Time.now or Time.here
2031+//
2032+// - This will produce a batch of effects (FX_1)
2033+// - The synchronous task triggers the subsequent `update` call
2034+// - This will produce a batch of effects (FX_2)
2035+//
2036+// If we just start dispatching FX_2, subscriptions from FX_2 can be processed
2037+// before subscriptions from FX_1. No good! Earlier versions of this code had
2038+// this problem, leading to these reports:
2039+//
2040+// https://github.com/elm/core/issues/980
2041+// https://github.com/elm/core/pull/981
2042+// https://github.com/elm/compiler/issues/1776
2043+//
2044+// The queue is necessary to avoid ordering issues for synchronous commands.
2045+
2046+
2047+// Why use true/false here? Why not just check the length of the queue?
2048+// The goal is to detect "are we currently dispatching effects?" If we
2049+// are, we need to bail and let the ongoing while loop handle things.
2050+//
2051+// Now say the queue has 1 element. When we dequeue the final element,
2052+// the queue will be empty, but we are still actively dispatching effects.
2053+// So you could get queue jumping in a really tricky category of cases.
2054+//
2055+var _Platform_effectsQueue = [];
2056+var _Platform_effectsActive = false;
2057+
2058+
2059+function _Platform_enqueueEffects(managers, cmdBag, subBag)
2060+{
2061+ _Platform_effectsQueue.push({ p: managers, q: cmdBag, r: subBag });
2062+
2063+ if (_Platform_effectsActive) return;
2064+
2065+ _Platform_effectsActive = true;
2066+ for (var fx; fx = _Platform_effectsQueue.shift(); )
2067+ {
2068+ _Platform_dispatchEffects(fx.p, fx.q, fx.r);
2069+ }
2070+ _Platform_effectsActive = false;
2071+}
2072+
2073+
2074+function _Platform_dispatchEffects(managers, cmdBag, subBag)
2075+{
2076+ var effectsDict = {};
2077+ _Platform_gatherEffects(true, cmdBag, effectsDict, null);
2078+ _Platform_gatherEffects(false, subBag, effectsDict, null);
2079+
2080+ for (var home in managers)
2081+ {
2082+ _Scheduler_rawSend(managers[home], {
2083+ $: 'fx',
2084+ a: effectsDict[home] || { i: _List_Nil, j: _List_Nil }
2085+ });
2086+ }
2087+}
2088+
2089+
2090+function _Platform_gatherEffects(isCmd, bag, effectsDict, taggers)
2091+{
2092+ switch (bag.$)
2093+ {
2094+ case 1:
2095+ var home = bag.k;
2096+ var effect = _Platform_toEffect(isCmd, home, taggers, bag.l);
2097+ effectsDict[home] = _Platform_insert(isCmd, effect, effectsDict[home]);
2098+ return;
2099+
2100+ case 2:
2101+ for (var list = bag.m; list.b; list = list.b) // WHILE_CONS
2102+ {
2103+ _Platform_gatherEffects(isCmd, list.a, effectsDict, taggers);
2104+ }
2105+ return;
2106+
2107+ case 3:
2108+ _Platform_gatherEffects(isCmd, bag.o, effectsDict, {
2109+ s: bag.n,
2110+ t: taggers
2111+ });
2112+ return;
2113+ }
2114+}
2115+
2116+
2117+function _Platform_toEffect(isCmd, home, taggers, value)
2118+{
2119+ function applyTaggers(x)
2120+ {
2121+ for (var temp = taggers; temp; temp = temp.t)
2122+ {
2123+ x = temp.s(x);
2124+ }
2125+ return x;
2126+ }
2127+
2128+ var map = isCmd
2129+ ? _Platform_effectManagers[home].e
2130+ : _Platform_effectManagers[home].f;
2131+
2132+ return A2(map, applyTaggers, value)
2133+}
2134+
2135+
2136+function _Platform_insert(isCmd, newEffect, effects)
2137+{
2138+ effects = effects || { i: _List_Nil, j: _List_Nil };
2139+
2140+ isCmd
2141+ ? (effects.i = _List_Cons(newEffect, effects.i))
2142+ : (effects.j = _List_Cons(newEffect, effects.j));
2143+
2144+ return effects;
2145+}
2146+
2147+
2148+
2149+// PORTS
2150+
2151+
2152+function _Platform_checkPortName(name)
2153+{
2154+ if (_Platform_effectManagers[name])
2155+ {
2156+ _Debug_crash(3, name)
2157+ }
2158+}
2159+
2160+
2161+
2162+// OUTGOING PORTS
2163+
2164+
2165+function _Platform_outgoingPort(name, converter)
2166+{
2167+ _Platform_checkPortName(name);
2168+ _Platform_effectManagers[name] = {
2169+ e: _Platform_outgoingPortMap,
2170+ u: converter,
2171+ a: _Platform_setupOutgoingPort
2172+ };
2173+ return _Platform_leaf(name);
2174+}
2175+
2176+
2177+var _Platform_outgoingPortMap = F2(function(tagger, value) { return value; });
2178+
2179+
2180+function _Platform_setupOutgoingPort(name)
2181+{
2182+ var subs = [];
2183+ var converter = _Platform_effectManagers[name].u;
2184+
2185+ // CREATE MANAGER
2186+
2187+ var init = _Process_sleep(0);
2188+
2189+ _Platform_effectManagers[name].b = init;
2190+ _Platform_effectManagers[name].c = F3(function(router, cmdList, state)
2191+ {
2192+ for ( ; cmdList.b; cmdList = cmdList.b) // WHILE_CONS
2193+ {
2194+ // grab a separate reference to subs in case unsubscribe is called
2195+ var currentSubs = subs;
2196+ var value = _Json_unwrap(converter(cmdList.a));
2197+ for (var i = 0; i < currentSubs.length; i++)
2198+ {
2199+ currentSubs[i](value);
2200+ }
2201+ }
2202+ return init;
2203+ });
2204+
2205+ // PUBLIC API
2206+
2207+ function subscribe(callback)
2208+ {
2209+ subs.push(callback);
2210+ }
2211+
2212+ function unsubscribe(callback)
2213+ {
2214+ // copy subs into a new array in case unsubscribe is called within a
2215+ // subscribed callback
2216+ subs = subs.slice();
2217+ var index = subs.indexOf(callback);
2218+ if (index >= 0)
2219+ {
2220+ subs.splice(index, 1);
2221+ }
2222+ }
2223+
2224+ return {
2225+ subscribe: subscribe,
2226+ unsubscribe: unsubscribe
2227+ };
2228+}
2229+
2230+
2231+
2232+// INCOMING PORTS
2233+
2234+
2235+function _Platform_incomingPort(name, converter)
2236+{
2237+ _Platform_checkPortName(name);
2238+ _Platform_effectManagers[name] = {
2239+ f: _Platform_incomingPortMap,
2240+ u: converter,
2241+ a: _Platform_setupIncomingPort
2242+ };
2243+ return _Platform_leaf(name);
2244+}
2245+
2246+
2247+var _Platform_incomingPortMap = F2(function(tagger, finalTagger)
2248+{
2249+ return function(value)
2250+ {
2251+ return tagger(finalTagger(value));
2252+ };
2253+});
2254+
2255+
2256+function _Platform_setupIncomingPort(name, sendToApp)
2257+{
2258+ var subs = _List_Nil;
2259+ var converter = _Platform_effectManagers[name].u;
2260+
2261+ // CREATE MANAGER
2262+
2263+ var init = _Scheduler_succeed(null);
2264+
2265+ _Platform_effectManagers[name].b = init;
2266+ _Platform_effectManagers[name].c = F3(function(router, subList, state)
2267+ {
2268+ subs = subList;
2269+ return init;
2270+ });
2271+
2272+ // PUBLIC API
2273+
2274+ function send(incomingValue)
2275+ {
2276+ var result = A2(_Json_run, converter, _Json_wrap(incomingValue));
2277+
2278+ $elm$core$Result$isOk(result) || _Debug_crash(4, name, result.a);
2279+
2280+ var value = result.a;
2281+ for (var temp = subs; temp.b; temp = temp.b) // WHILE_CONS
2282+ {
2283+ sendToApp(temp.a(value));
2284+ }
2285+ }
2286+
2287+ return { send: send };
2288+}
2289+
2290+
2291+
2292+// EXPORT ELM MODULES
2293+//
2294+// Have DEBUG and PROD versions so that we can (1) give nicer errors in
2295+// debug mode and (2) not pay for the bits needed for that in prod mode.
2296+//
2297+
2298+
2299+
2300+
2301+function _Platform_mergeExportsProd(obj, exports)
2302+{
2303+ for (var name in exports)
2304+ {
2305+ (name in obj)
2306+ ? (name == 'init')
2307+ ? _Debug_crash(6)
2308+ : _Platform_mergeExportsProd(obj[name], exports[name])
2309+ : (obj[name] = exports[name]);
2310+ }
2311+}
2312+
2313+
2314+function _Platform_export(exports)
2315+{
2316+ scope['Elm']
2317+ ? _Platform_mergeExportsDebug('Elm', scope['Elm'], exports)
2318+ : scope['Elm'] = exports;
2319+}
2320+
2321+
2322+function _Platform_mergeExportsDebug(moduleName, obj, exports)
2323+{
2324+ for (var name in exports)
2325+ {
2326+ (name in obj)
2327+ ? (name == 'init')
2328+ ? _Debug_crash(6, moduleName)
2329+ : _Platform_mergeExportsDebug(moduleName + '.' + name, obj[name], exports[name])
2330+ : (obj[name] = exports[name]);
2331+ }
2332+}
2333+
2334+
2335+
2336+var _Lynx_g = (typeof globalThis !== 'undefined' ? globalThis : scope);
2337+function _Lynx_papi(name) { return _Lynx_g['_' + '_' + name] || function() {}; }
2338+var _Lynx_createViewFn = _Lynx_papi('CreateView');
2339+var _Lynx_createTextFn = _Lynx_papi('CreateText');
2340+var _Lynx_createImageFn = _Lynx_papi('CreateImage');
2341+function _Lynx_createElement(tag) {
2342+ var pId = (_Lynx_g['native'] && _Lynx_g['native']['currentPageId']) || 0;
2343+ return (tag === 'text' ? _Lynx_createTextFn
2344+ : tag === 'image' ? _Lynx_createImageFn
2345+ : _Lynx_createViewFn)(pId);
2346+}
2347+var _Lynx_createRawText = _Lynx_papi('CreateRawText');
2348+var _Lynx_appendChild = _Lynx_papi('AppendElement');
2349+var _Lynx_removeElement = _Lynx_papi('RemoveElement');
2350+var _Lynx_replaceElement = _Lynx_papi('ReplaceElement');
2351+var _Lynx_insertBefore = _Lynx_papi('InsertElementBefore');
2352+var _Lynx_setAttribute = _Lynx_papi('SetAttribute');
2353+var _Lynx_getChildren = _Lynx_papi('GetChildren');
2354+var _Lynx_getParent = _Lynx_papi('GetParent');
2355+var _Lynx_addEvent = _Lynx_papi('AddEvent');
2356+var _Lynx_setInlineStyles = _Lynx_papi('SetInlineStyles');
2357+var _VirtualDom_elementMeta = new WeakMap();
2358+function _VirtualDom_getMeta(el) {
2359+ var meta = _VirtualDom_elementMeta.get(el);
2360+ if (!meta) { meta = {}; _VirtualDom_elementMeta.set(el, meta); }
2361+ return meta;
2362+}
2363+
2364+
2365+// HELPERS
2366+
2367+
2368+
2369+
2370+
2371+function _VirtualDom_appendChild(parent, child)
2372+{
2373+ _Lynx_appendChild(parent, child);
2374+}
2375+
2376+var _VirtualDom_init = F4(function(virtualNode, flagDecoder, debugMetadata, args)
2377+{
2378+ // NOTE: this function needs _Platform_export available to work
2379+ var rootPage = args['node'] || _Lynx_g['page'];
2380+ var tree = _VirtualDom_render(virtualNode, function() {});
2381+ _Lynx_appendChild(rootPage, tree);
2382+ return {};
2383+});
2384+
2385+
2386+
2387+// TEXT
2388+
2389+
2390+function _VirtualDom_text(string)
2391+{
2392+ return {
2393+ $: 0,
2394+ a: string
2395+ };
2396+}
2397+
2398+
2399+
2400+// NODE
2401+
2402+
2403+var _VirtualDom_nodeNS = F2(function(namespace, tag)
2404+{
2405+ return F2(function(factList, kidList)
2406+ {
2407+ for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
2408+ {
2409+ var kid = kidList.a;
2410+ descendantsCount += (kid.b || 0);
2411+ kids.push(kid);
2412+ }
2413+ descendantsCount += kids.length;
2414+
2415+ return {
2416+ $: 1,
2417+ c: tag,
2418+ d: _VirtualDom_organizeFacts(factList),
2419+ e: kids,
2420+ f: namespace,
2421+ b: descendantsCount
2422+ };
2423+ });
2424+});
2425+
2426+
2427+var _VirtualDom_node = _VirtualDom_nodeNS(undefined);
2428+
2429+
2430+
2431+// KEYED NODE
2432+
2433+
2434+var _VirtualDom_keyedNodeNS = F2(function(namespace, tag)
2435+{
2436+ return F2(function(factList, kidList)
2437+ {
2438+ for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
2439+ {
2440+ var kid = kidList.a;
2441+ descendantsCount += (kid.b.b || 0);
2442+ kids.push(kid);
2443+ }
2444+ descendantsCount += kids.length;
2445+
2446+ return {
2447+ $: 2,
2448+ c: tag,
2449+ d: _VirtualDom_organizeFacts(factList),
2450+ e: kids,
2451+ f: namespace,
2452+ b: descendantsCount
2453+ };
2454+ });
2455+});
2456+
2457+
2458+var _VirtualDom_keyedNode = _VirtualDom_keyedNodeNS(undefined);
2459+
2460+
2461+
2462+// CUSTOM
2463+
2464+
2465+function _VirtualDom_custom(factList, model, render, diff)
2466+{
2467+ return {
2468+ $: 3,
2469+ d: _VirtualDom_organizeFacts(factList),
2470+ g: model,
2471+ h: render,
2472+ i: diff
2473+ };
2474+}
2475+
2476+
2477+
2478+// MAP
2479+
2480+
2481+var _VirtualDom_map = F2(function(tagger, node)
2482+{
2483+ return {
2484+ $: 4,
2485+ j: tagger,
2486+ k: node,
2487+ b: 1 + (node.b || 0)
2488+ };
2489+});
2490+
2491+
2492+
2493+// LAZY
2494+
2495+
2496+function _VirtualDom_thunk(refs, thunk)
2497+{
2498+ return {
2499+ $: 5,
2500+ l: refs,
2501+ m: thunk,
2502+ k: undefined
2503+ };
2504+}
2505+
2506+var _VirtualDom_lazy = F2(function(func, a)
2507+{
2508+ return _VirtualDom_thunk([func, a], function() {
2509+ return func(a);
2510+ });
2511+});
2512+
2513+var _VirtualDom_lazy2 = F3(function(func, a, b)
2514+{
2515+ return _VirtualDom_thunk([func, a, b], function() {
2516+ return A2(func, a, b);
2517+ });
2518+});
2519+
2520+var _VirtualDom_lazy3 = F4(function(func, a, b, c)
2521+{
2522+ return _VirtualDom_thunk([func, a, b, c], function() {
2523+ return A3(func, a, b, c);
2524+ });
2525+});
2526+
2527+var _VirtualDom_lazy4 = F5(function(func, a, b, c, d)
2528+{
2529+ return _VirtualDom_thunk([func, a, b, c, d], function() {
2530+ return A4(func, a, b, c, d);
2531+ });
2532+});
2533+
2534+var _VirtualDom_lazy5 = F6(function(func, a, b, c, d, e)
2535+{
2536+ return _VirtualDom_thunk([func, a, b, c, d, e], function() {
2537+ return A5(func, a, b, c, d, e);
2538+ });
2539+});
2540+
2541+var _VirtualDom_lazy6 = F7(function(func, a, b, c, d, e, f)
2542+{
2543+ return _VirtualDom_thunk([func, a, b, c, d, e, f], function() {
2544+ return A6(func, a, b, c, d, e, f);
2545+ });
2546+});
2547+
2548+var _VirtualDom_lazy7 = F8(function(func, a, b, c, d, e, f, g)
2549+{
2550+ return _VirtualDom_thunk([func, a, b, c, d, e, f, g], function() {
2551+ return A7(func, a, b, c, d, e, f, g);
2552+ });
2553+});
2554+
2555+var _VirtualDom_lazy8 = F9(function(func, a, b, c, d, e, f, g, h)
2556+{
2557+ return _VirtualDom_thunk([func, a, b, c, d, e, f, g, h], function() {
2558+ return A8(func, a, b, c, d, e, f, g, h);
2559+ });
2560+});
2561+
2562+
2563+
2564+// FACTS
2565+
2566+
2567+var _VirtualDom_on = F2(function(key, handler)
2568+{
2569+ return {
2570+ $: 'a0',
2571+ n: key,
2572+ o: handler
2573+ };
2574+});
2575+var _VirtualDom_style = F2(function(key, value)
2576+{
2577+ return {
2578+ $: 'a1',
2579+ n: key,
2580+ o: value
2581+ };
2582+});
2583+var _VirtualDom_property = F2(function(key, value)
2584+{
2585+ return {
2586+ $: 'a2',
2587+ n: key,
2588+ o: value
2589+ };
2590+});
2591+var _VirtualDom_attribute = F2(function(key, value)
2592+{
2593+ return {
2594+ $: 'a3',
2595+ n: key,
2596+ o: value
2597+ };
2598+});
2599+var _VirtualDom_attributeNS = F3(function(namespace, key, value)
2600+{
2601+ return {
2602+ $: 'a4',
2603+ n: key,
2604+ o: { f: namespace, o: value }
2605+ };
2606+});
2607+
2608+
2609+
2610+// XSS ATTACK VECTOR CHECKS
2611+//
2612+// For some reason, tabs can appear in href protocols and it still works.
2613+// So '\tjava\tSCRIPT:alert("!!!")' and 'javascript:alert("!!!")' are the same
2614+// in practice. That is why _VirtualDom_RE_js and _VirtualDom_RE_js_html look
2615+// so freaky.
2616+//
2617+// Pulling the regular expressions out to the top level gives a slight speed
2618+// boost in small benchmarks (4-10%) but hoisting values to reduce allocation
2619+// can be unpredictable in large programs where JIT may have a harder time with
2620+// functions are not fully self-contained. The benefit is more that the js and
2621+// js_html ones are so weird that I prefer to see them near each other.
2622+
2623+
2624+
2625+
2626+
2627+function _VirtualDom_noScript(tag)
2628+{
2629+ return tag;
2630+}
2631+
2632+function _VirtualDom_noOnOrFormAction(key)
2633+{
2634+ return key;
2635+}
2636+
2637+function _VirtualDom_noInnerHtmlOrFormAction(key)
2638+{
2639+ return key;
2640+}
2641+
2642+function _VirtualDom_noJavaScriptUri(value)
2643+{
2644+ return value;
2645+}
2646+
2647+function _VirtualDom_noJavaScriptOrHtmlUri(value)
2648+{
2649+ return value;
2650+}
2651+
2652+function _VirtualDom_noJavaScriptOrHtmlJson(value)
2653+{
2654+ return value;
2655+}
2656+
2657+
2658+
2659+// MAP FACTS
2660+
2661+
2662+var _VirtualDom_mapAttribute = F2(function(func, attr)
2663+{
2664+ return (attr.$ === 'a0')
2665+ ? A2(_VirtualDom_on, attr.n, _VirtualDom_mapHandler(func, attr.o))
2666+ : attr;
2667+});
2668+
2669+function _VirtualDom_mapHandler(func, handler)
2670+{
2671+ var tag = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(handler);
2672+
2673+ // 0 = Normal
2674+ // 1 = MayStopPropagation
2675+ // 2 = MayPreventDefault
2676+ // 3 = Custom
2677+
2678+ return {
2679+ $: handler.$,
2680+ a:
2681+ !tag
2682+ ? A2($elm$json$Json$Decode$map, func, handler.a)
2683+ :
2684+ A3($elm$json$Json$Decode$map2,
2685+ tag < 3
2686+ ? _VirtualDom_mapEventTuple
2687+ : _VirtualDom_mapEventRecord,
2688+ $elm$json$Json$Decode$succeed(func),
2689+ handler.a
2690+ )
2691+ };
2692+}
2693+
2694+var _VirtualDom_mapEventTuple = F2(function(func, tuple)
2695+{
2696+ return _Utils_Tuple2(func(tuple.a), tuple.b);
2697+});
2698+
2699+var _VirtualDom_mapEventRecord = F2(function(func, record)
2700+{
2701+ return {
2702+ message: func(record.message),
2703+ stopPropagation: record.stopPropagation,
2704+ preventDefault: record.preventDefault
2705+ }
2706+});
2707+
2708+
2709+
2710+// ORGANIZE FACTS
2711+
2712+
2713+function _VirtualDom_organizeFacts(factList)
2714+{
2715+ for (var facts = {}; factList.b; factList = factList.b) // WHILE_CONS
2716+ {
2717+ var entry = factList.a;
2718+
2719+ var tag = entry.$;
2720+ var key = entry.n;
2721+ var value = entry.o;
2722+
2723+ if (tag === 'a2')
2724+ {
2725+ (key === 'className')
2726+ ? _VirtualDom_addClass(facts, key, _Json_unwrap(value))
2727+ : facts[key] = _Json_unwrap(value);
2728+
2729+ continue;
2730+ }
2731+
2732+ var subFacts = facts[tag] || (facts[tag] = {});
2733+ (tag === 'a3' && key === 'class')
2734+ ? _VirtualDom_addClass(subFacts, key, value)
2735+ : subFacts[key] = value;
2736+ }
2737+
2738+ return facts;
2739+}
2740+
2741+function _VirtualDom_addClass(object, key, newClass)
2742+{
2743+ var classes = object[key];
2744+ object[key] = classes ? classes + ' ' + newClass : newClass;
2745+}
2746+
2747+
2748+
2749+// RENDER
2750+
2751+
2752+function _VirtualDom_render(vNode, eventNode)
2753+{
2754+ var tag = vNode.$;
2755+
2756+ if (tag === 5)
2757+ {
2758+ return _VirtualDom_render(vNode.k || (vNode.k = vNode.m()), eventNode);
2759+ }
2760+
2761+ if (tag === 0)
2762+ {
2763+ return _Lynx_createRawText(vNode.a);
2764+ }
2765+
2766+ if (tag === 4)
2767+ {
2768+ var subNode = vNode.k;
2769+ var tagger = vNode.j;
2770+
2771+ while (subNode.$ === 4)
2772+ {
2773+ typeof tagger !== 'object'
2774+ ? tagger = [tagger, subNode.j]
2775+ : tagger.push(subNode.j);
2776+
2777+ subNode = subNode.k;
2778+ }
2779+
2780+ var subEventRoot = { j: tagger, p: eventNode };
2781+ var domNode = _VirtualDom_render(subNode, subEventRoot);
2782+ _VirtualDom_getMeta(domNode).elm_event_node_ref = subEventRoot;
2783+ return domNode;
2784+ }
2785+
2786+ if (tag === 3)
2787+ {
2788+ var domNode = vNode.h(vNode.g);
2789+ _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
2790+ return domNode;
2791+ }
2792+
2793+ // at this point `tag` must be 1 or 2
2794+
2795+ var domNode = _Lynx_createElement(vNode.c);
2796+
2797+ _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
2798+
2799+ for (var kids = vNode.e, i = 0; i < kids.length; i++)
2800+ {
2801+ var kid = tag === 1 ? kids[i] : kids[i].b;
2802+ if (kid.$ === 0)
2803+ {
2804+ _Lynx_appendChild(domNode, _Lynx_createRawText(kid.a));
2805+ }
2806+ else
2807+ {
2808+ _VirtualDom_appendChild(domNode, _VirtualDom_render(kid, eventNode));
2809+ }
2810+ }
2811+
2812+ return domNode;
2813+}
2814+
2815+
2816+
2817+// APPLY FACTS
2818+
2819+
2820+function _VirtualDom_applyFacts(domNode, eventNode, facts)
2821+{
2822+ for (var key in facts)
2823+ {
2824+ var value = facts[key];
2825+
2826+ key === 'a1'
2827+ ? _VirtualDom_applyStyles(domNode, value)
2828+ :
2829+ key === 'a0'
2830+ ? _VirtualDom_applyEvents(domNode, eventNode, value)
2831+ :
2832+ key === 'a3'
2833+ ? _VirtualDom_applyAttrs(domNode, value)
2834+ :
2835+ key === 'a4'
2836+ ? _VirtualDom_applyAttrsNS(domNode, value)
2837+ :
2838+ (key !== 'value' && key !== 'checked' || domNode[key] !== value) && _Lynx_setAttribute(domNode, key === 'className' ? 'class' : key, String(value));
2839+ }
2840+}
2841+
2842+
2843+
2844+// APPLY STYLES
2845+
2846+
2847+function _VirtualDom_applyStyles(domNode, styles)
2848+{
2849+ _Lynx_setInlineStyles(domNode, styles);
2850+}
2851+
2852+
2853+
2854+// APPLY ATTRS
2855+
2856+
2857+function _VirtualDom_applyAttrs(domNode, attrs)
2858+{
2859+ for (var key in attrs)
2860+ {
2861+ var value = attrs[key];
2862+ if (typeof value !== 'undefined')
2863+ {
2864+ _Lynx_setAttribute(domNode, key, value);
2865+ }
2866+ }
2867+}
2868+
2869+
2870+
2871+// APPLY NAMESPACED ATTRS
2872+
2873+
2874+function _VirtualDom_applyAttrsNS(domNode, nsAttrs)
2875+{
2876+ for (var key in nsAttrs)
2877+ {
2878+ var pair = nsAttrs[key];
2879+ var value = pair.o;
2880+
2881+ if (typeof value !== 'undefined')
2882+ {
2883+ _Lynx_setAttribute(domNode, key, value);
2884+ }
2885+ }
2886+}
2887+
2888+
2889+
2890+// APPLY EVENTS
2891+
2892+
2893+function _VirtualDom_applyEvents(domNode, eventNode, events)
2894+{
2895+ var meta = _VirtualDom_getMeta(domNode);
2896+ var allCallbacks = meta.elmFs || (meta.elmFs = {});
2897+
2898+ for (var key in events)
2899+ {
2900+ var newHandler = events[key];
2901+ var oldCallback = allCallbacks[key];
2902+
2903+ if (!newHandler)
2904+ {
2905+ allCallbacks[key] = undefined;
2906+ continue;
2907+ }
2908+
2909+ if (oldCallback)
2910+ {
2911+ var oldHandler = oldCallback.q;
2912+ if (oldHandler.$ === newHandler.$)
2913+ {
2914+ oldCallback.q = newHandler;
2915+ continue;
2916+ }
2917+ }
2918+
2919+ oldCallback = _VirtualDom_makeCallback(eventNode, newHandler);
2920+ allCallbacks[key] = oldCallback;
2921+
2922+ var lynxEventName = _VirtualDom_mapEventName(key);
2923+ var handlerType = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(newHandler);
2924+ var prefix = (handlerType === 1) ? 'catch' : 'bind';
2925+ _Lynx_addEvent(domNode, 'catchEvent', lynxEventName, { type: 'worklet', value: oldCallback });
2926+ }
2927+}
2928+
2929+function _VirtualDom_mapEventName(name)
2930+{
2931+ switch (name)
2932+ {
2933+ case 'click': return 'tap';
2934+ case 'dblclick': return 'tap';
2935+ case 'mousedown': return 'touchstart';
2936+ case 'mousemove': return 'touchmove';
2937+ case 'mouseup': return 'touchend';
2938+ default: return name;
2939+ }
2940+}
2941+
2942+
2943+
2944+// PASSIVE EVENTS
2945+
2946+
2947+
2948+// EVENT HANDLERS
2949+
2950+
2951+function _VirtualDom_makeCallback(eventNode, initialHandler)
2952+{
2953+ function callback(event)
2954+ {
2955+ var handler = callback.q;
2956+ var result = _Json_runHelp(handler.a, event);
2957+
2958+ if (!$elm$core$Result$isOk(result))
2959+ {
2960+ return;
2961+ }
2962+
2963+ var tag = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(handler);
2964+
2965+ // 0 = Normal
2966+ // 1 = MayStopPropagation
2967+ // 2 = MayPreventDefault
2968+ // 3 = Custom
2969+
2970+ var value = result.a;
2971+ var message = !tag ? value : tag < 3 ? value.a : value.message;
2972+ var stopPropagation = tag == 1 ? value.b : tag == 3 && value.stopPropagation;
2973+ var currentEventNode = eventNode;
2974+ var tagger;
2975+ var i;
2976+ while (tagger = currentEventNode.j)
2977+ {
2978+ if (typeof tagger == 'function')
2979+ {
2980+ message = tagger(message);
2981+ }
2982+ else
2983+ {
2984+ for (var i = tagger.length; i--; )
2985+ {
2986+ message = tagger[i](message);
2987+ }
2988+ }
2989+ currentEventNode = currentEventNode.p;
2990+ }
2991+ currentEventNode(message, stopPropagation); // stopPropagation implies isSync
2992+ }
2993+
2994+ callback.q = initialHandler;
2995+
2996+ return callback;
2997+}
2998+
2999+function _VirtualDom_equalEvents(x, y)
3000+{
3001+ return x.$ == y.$ && _Json_equality(x.a, y.a);
3002+}
3003+
3004+
3005+
3006+// DIFF
3007+
3008+
3009+// TODO: Should we do patches like in iOS?
3010+//
3011+// type Patch
3012+// = At Int Patch
3013+// | Batch (List Patch)
3014+// | Change ...
3015+//
3016+// How could it not be better?
3017+//
3018+function _VirtualDom_diff(x, y)
3019+{
3020+ var patches = [];
3021+ _VirtualDom_diffHelp(x, y, patches, 0);
3022+ return patches;
3023+}
3024+
3025+
3026+function _VirtualDom_pushPatch(patches, type, index, data)
3027+{
3028+ var patch = {
3029+ $: type,
3030+ r: index,
3031+ s: data,
3032+ t: undefined,
3033+ u: undefined
3034+ };
3035+ patches.push(patch);
3036+ return patch;
3037+}
3038+
3039+
3040+function _VirtualDom_diffHelp(x, y, patches, index)
3041+{
3042+ if (x === y)
3043+ {
3044+ return;
3045+ }
3046+
3047+ var xType = x.$;
3048+ var yType = y.$;
3049+
3050+ // Bail if you run into different types of nodes. Implies that the
3051+ // structure has changed significantly and it's not worth a diff.
3052+ if (xType !== yType)
3053+ {
3054+ if (xType === 1 && yType === 2)
3055+ {
3056+ y = _VirtualDom_dekey(y);
3057+ yType = 1;
3058+ }
3059+ else
3060+ {
3061+ _VirtualDom_pushPatch(patches, 0, index, y);
3062+ return;
3063+ }
3064+ }
3065+
3066+ // Now we know that both nodes are the same $.
3067+ switch (yType)
3068+ {
3069+ case 5:
3070+ var xRefs = x.l;
3071+ var yRefs = y.l;
3072+ var i = xRefs.length;
3073+ var same = i === yRefs.length;
3074+ while (same && i--)
3075+ {
3076+ same = xRefs[i] === yRefs[i];
3077+ }
3078+ if (same)
3079+ {
3080+ y.k = x.k;
3081+ return;
3082+ }
3083+ y.k = y.m();
3084+ var subPatches = [];
3085+ _VirtualDom_diffHelp(x.k, y.k, subPatches, 0);
3086+ subPatches.length > 0 && _VirtualDom_pushPatch(patches, 1, index, subPatches);
3087+ return;
3088+
3089+ case 4:
3090+ // gather nested taggers
3091+ var xTaggers = x.j;
3092+ var yTaggers = y.j;
3093+ var nesting = false;
3094+
3095+ var xSubNode = x.k;
3096+ while (xSubNode.$ === 4)
3097+ {
3098+ nesting = true;
3099+
3100+ typeof xTaggers !== 'object'
3101+ ? xTaggers = [xTaggers, xSubNode.j]
3102+ : xTaggers.push(xSubNode.j);
3103+
3104+ xSubNode = xSubNode.k;
3105+ }
3106+
3107+ var ySubNode = y.k;
3108+ while (ySubNode.$ === 4)
3109+ {
3110+ nesting = true;
3111+
3112+ typeof yTaggers !== 'object'
3113+ ? yTaggers = [yTaggers, ySubNode.j]
3114+ : yTaggers.push(ySubNode.j);
3115+
3116+ ySubNode = ySubNode.k;
3117+ }
3118+
3119+ // Just bail if different numbers of taggers. This implies the
3120+ // structure of the virtual DOM has changed.
3121+ if (nesting && xTaggers.length !== yTaggers.length)
3122+ {
3123+ _VirtualDom_pushPatch(patches, 0, index, y);
3124+ return;
3125+ }
3126+
3127+ // check if taggers are "the same"
3128+ if (nesting ? !_VirtualDom_pairwiseRefEqual(xTaggers, yTaggers) : xTaggers !== yTaggers)
3129+ {
3130+ _VirtualDom_pushPatch(patches, 2, index, yTaggers);
3131+ }
3132+
3133+ // diff everything below the taggers
3134+ _VirtualDom_diffHelp(xSubNode, ySubNode, patches, index + 1);
3135+ return;
3136+
3137+ case 0:
3138+ if (x.a !== y.a)
3139+ {
3140+ _VirtualDom_pushPatch(patches, 3, index, y.a);
3141+ }
3142+ return;
3143+
3144+ case 1:
3145+ _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKids);
3146+ return;
3147+
3148+ case 2:
3149+ _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKeyedKids);
3150+ return;
3151+
3152+ case 3:
3153+ if (x.h !== y.h)
3154+ {
3155+ _VirtualDom_pushPatch(patches, 0, index, y);
3156+ return;
3157+ }
3158+
3159+ var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
3160+ factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
3161+
3162+ var patch = y.i(x.g, y.g);
3163+ patch && _VirtualDom_pushPatch(patches, 5, index, patch);
3164+
3165+ return;
3166+ }
3167+}
3168+
3169+// assumes the incoming arrays are the same length
3170+function _VirtualDom_pairwiseRefEqual(as, bs)
3171+{
3172+ for (var i = 0; i < as.length; i++)
3173+ {
3174+ if (as[i] !== bs[i])
3175+ {
3176+ return false;
3177+ }
3178+ }
3179+
3180+ return true;
3181+}
3182+
3183+function _VirtualDom_diffNodes(x, y, patches, index, diffKids)
3184+{
3185+ // Bail if obvious indicators have changed. Implies more serious
3186+ // structural changes such that it's not worth it to diff.
3187+ if (x.c !== y.c || x.f !== y.f)
3188+ {
3189+ _VirtualDom_pushPatch(patches, 0, index, y);
3190+ return;
3191+ }
3192+
3193+ var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
3194+ factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
3195+
3196+ diffKids(x, y, patches, index);
3197+}
3198+
3199+
3200+
3201+// DIFF FACTS
3202+
3203+
3204+// TODO Instead of creating a new diff object, it's possible to just test if
3205+// there *is* a diff. During the actual patch, do the diff again and make the
3206+// modifications directly. This way, there's no new allocations. Worth it?
3207+function _VirtualDom_diffFacts(x, y, category)
3208+{
3209+ var diff;
3210+
3211+ // look for changes and removals
3212+ for (var xKey in x)
3213+ {
3214+ if (xKey === 'a1' || xKey === 'a0' || xKey === 'a3' || xKey === 'a4')
3215+ {
3216+ var subDiff = _VirtualDom_diffFacts(x[xKey], y[xKey] || {}, xKey);
3217+ if (subDiff)
3218+ {
3219+ diff = diff || {};
3220+ diff[xKey] = subDiff;
3221+ }
3222+ continue;
3223+ }
3224+
3225+ // remove if not in the new facts
3226+ if (!(xKey in y))
3227+ {
3228+ diff = diff || {};
3229+ diff[xKey] =
3230+ !category
3231+ ? (typeof x[xKey] === 'string' ? '' : null)
3232+ :
3233+ (category === 'a1')
3234+ ? ''
3235+ :
3236+ (category === 'a0' || category === 'a3')
3237+ ? undefined
3238+ :
3239+ { f: x[xKey].f, o: undefined };
3240+
3241+ continue;
3242+ }
3243+
3244+ var xValue = x[xKey];
3245+ var yValue = y[xKey];
3246+
3247+ // reference equal, so don't worry about it
3248+ if (xValue === yValue && xKey !== 'value' && xKey !== 'checked'
3249+ || category === 'a0' && _VirtualDom_equalEvents(xValue, yValue))
3250+ {
3251+ continue;
3252+ }
3253+
3254+ diff = diff || {};
3255+ diff[xKey] = yValue;
3256+ }
3257+
3258+ // add new stuff
3259+ for (var yKey in y)
3260+ {
3261+ if (!(yKey in x))
3262+ {
3263+ diff = diff || {};
3264+ diff[yKey] = y[yKey];
3265+ }
3266+ }
3267+
3268+ return diff;
3269+}
3270+
3271+
3272+
3273+// DIFF KIDS
3274+
3275+
3276+function _VirtualDom_diffKids(xParent, yParent, patches, index)
3277+{
3278+ var xKids = xParent.e;
3279+ var yKids = yParent.e;
3280+
3281+ var xLen = xKids.length;
3282+ var yLen = yKids.length;
3283+
3284+ // FIGURE OUT IF THERE ARE INSERTS OR REMOVALS
3285+
3286+ if (xLen > yLen)
3287+ {
3288+ _VirtualDom_pushPatch(patches, 6, index, {
3289+ v: yLen,
3290+ i: xLen - yLen
3291+ });
3292+ }
3293+ else if (xLen < yLen)
3294+ {
3295+ _VirtualDom_pushPatch(patches, 7, index, {
3296+ v: xLen,
3297+ e: yKids
3298+ });
3299+ }
3300+
3301+ // PAIRWISE DIFF EVERYTHING ELSE
3302+
3303+ for (var minLen = xLen < yLen ? xLen : yLen, i = 0; i < minLen; i++)
3304+ {
3305+ var xKid = xKids[i];
3306+ _VirtualDom_diffHelp(xKid, yKids[i], patches, ++index);
3307+ index += xKid.b || 0;
3308+ }
3309+}
3310+
3311+
3312+
3313+// KEYED DIFF
3314+
3315+
3316+function _VirtualDom_diffKeyedKids(xParent, yParent, patches, rootIndex)
3317+{
3318+ var localPatches = [];
3319+
3320+ var changes = {}; // Dict String Entry
3321+ var inserts = []; // Array { index : Int, entry : Entry }
3322+ // type Entry = { tag : String, vnode : VNode, index : Int, data : _ }
3323+
3324+ var xKids = xParent.e;
3325+ var yKids = yParent.e;
3326+ var xLen = xKids.length;
3327+ var yLen = yKids.length;
3328+ var xIndex = 0;
3329+ var yIndex = 0;
3330+
3331+ var index = rootIndex;
3332+
3333+ while (xIndex < xLen && yIndex < yLen)
3334+ {
3335+ var x = xKids[xIndex];
3336+ var y = yKids[yIndex];
3337+
3338+ var xKey = x.a;
3339+ var yKey = y.a;
3340+ var xNode = x.b;
3341+ var yNode = y.b;
3342+
3343+ var newMatch = undefined;
3344+ var oldMatch = undefined;
3345+
3346+ // check if keys match
3347+
3348+ if (xKey === yKey)
3349+ {
3350+ index++;
3351+ _VirtualDom_diffHelp(xNode, yNode, localPatches, index);
3352+ index += xNode.b || 0;
3353+
3354+ xIndex++;
3355+ yIndex++;
3356+ continue;
3357+ }
3358+
3359+ // look ahead 1 to detect insertions and removals.
3360+
3361+ var xNext = xKids[xIndex + 1];
3362+ var yNext = yKids[yIndex + 1];
3363+
3364+ if (xNext)
3365+ {
3366+ var xNextKey = xNext.a;
3367+ var xNextNode = xNext.b;
3368+ oldMatch = yKey === xNextKey;
3369+ }
3370+
3371+ if (yNext)
3372+ {
3373+ var yNextKey = yNext.a;
3374+ var yNextNode = yNext.b;
3375+ newMatch = xKey === yNextKey;
3376+ }
3377+
3378+
3379+ // swap x and y
3380+ if (newMatch && oldMatch)
3381+ {
3382+ index++;
3383+ _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
3384+ _VirtualDom_insertNode(changes, localPatches, xKey, yNode, yIndex, inserts);
3385+ index += xNode.b || 0;
3386+
3387+ index++;
3388+ _VirtualDom_removeNode(changes, localPatches, xKey, xNextNode, index);
3389+ index += xNextNode.b || 0;
3390+
3391+ xIndex += 2;
3392+ yIndex += 2;
3393+ continue;
3394+ }
3395+
3396+ // insert y
3397+ if (newMatch)
3398+ {
3399+ index++;
3400+ _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
3401+ _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
3402+ index += xNode.b || 0;
3403+
3404+ xIndex += 1;
3405+ yIndex += 2;
3406+ continue;
3407+ }
3408+
3409+ // remove x
3410+ if (oldMatch)
3411+ {
3412+ index++;
3413+ _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
3414+ index += xNode.b || 0;
3415+
3416+ index++;
3417+ _VirtualDom_diffHelp(xNextNode, yNode, localPatches, index);
3418+ index += xNextNode.b || 0;
3419+
3420+ xIndex += 2;
3421+ yIndex += 1;
3422+ continue;
3423+ }
3424+
3425+ // remove x, insert y
3426+ if (xNext && xNextKey === yNextKey)
3427+ {
3428+ index++;
3429+ _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
3430+ _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
3431+ index += xNode.b || 0;
3432+
3433+ index++;
3434+ _VirtualDom_diffHelp(xNextNode, yNextNode, localPatches, index);
3435+ index += xNextNode.b || 0;
3436+
3437+ xIndex += 2;
3438+ yIndex += 2;
3439+ continue;
3440+ }
3441+
3442+ break;
3443+ }
3444+
3445+ // eat up any remaining nodes with removeNode and insertNode
3446+
3447+ while (xIndex < xLen)
3448+ {
3449+ index++;
3450+ var x = xKids[xIndex];
3451+ var xNode = x.b;
3452+ _VirtualDom_removeNode(changes, localPatches, x.a, xNode, index);
3453+ index += xNode.b || 0;
3454+ xIndex++;
3455+ }
3456+
3457+ while (yIndex < yLen)
3458+ {
3459+ var endInserts = endInserts || [];
3460+ var y = yKids[yIndex];
3461+ _VirtualDom_insertNode(changes, localPatches, y.a, y.b, undefined, endInserts);
3462+ yIndex++;
3463+ }
3464+
3465+ if (localPatches.length > 0 || inserts.length > 0 || endInserts)
3466+ {
3467+ _VirtualDom_pushPatch(patches, 8, rootIndex, {
3468+ w: localPatches,
3469+ x: inserts,
3470+ y: endInserts
3471+ });
3472+ }
3473+}
3474+
3475+
3476+
3477+// CHANGES FROM KEYED DIFF
3478+
3479+
3480+var _VirtualDom_POSTFIX = '_elmW6BL';
3481+
3482+
3483+function _VirtualDom_insertNode(changes, localPatches, key, vnode, yIndex, inserts)
3484+{
3485+ var entry = changes[key];
3486+
3487+ // never seen this key before
3488+ if (!entry)
3489+ {
3490+ entry = {
3491+ c: 0,
3492+ z: vnode,
3493+ r: yIndex,
3494+ s: undefined
3495+ };
3496+
3497+ inserts.push({ r: yIndex, A: entry });
3498+ changes[key] = entry;
3499+
3500+ return;
3501+ }
3502+
3503+ // this key was removed earlier, a match!
3504+ if (entry.c === 1)
3505+ {
3506+ inserts.push({ r: yIndex, A: entry });
3507+
3508+ entry.c = 2;
3509+ var subPatches = [];
3510+ _VirtualDom_diffHelp(entry.z, vnode, subPatches, entry.r);
3511+ entry.r = yIndex;
3512+ entry.s.s = {
3513+ w: subPatches,
3514+ A: entry
3515+ };
3516+
3517+ return;
3518+ }
3519+
3520+ // this key has already been inserted or moved, a duplicate!
3521+ _VirtualDom_insertNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, yIndex, inserts);
3522+}
3523+
3524+
3525+function _VirtualDom_removeNode(changes, localPatches, key, vnode, index)
3526+{
3527+ var entry = changes[key];
3528+
3529+ // never seen this key before
3530+ if (!entry)
3531+ {
3532+ var patch = _VirtualDom_pushPatch(localPatches, 9, index, undefined);
3533+
3534+ changes[key] = {
3535+ c: 1,
3536+ z: vnode,
3537+ r: index,
3538+ s: patch
3539+ };
3540+
3541+ return;
3542+ }
3543+
3544+ // this key was inserted earlier, a match!
3545+ if (entry.c === 0)
3546+ {
3547+ entry.c = 2;
3548+ var subPatches = [];
3549+ _VirtualDom_diffHelp(vnode, entry.z, subPatches, index);
3550+
3551+ _VirtualDom_pushPatch(localPatches, 9, index, {
3552+ w: subPatches,
3553+ A: entry
3554+ });
3555+
3556+ return;
3557+ }
3558+
3559+ // this key has already been removed or moved, a duplicate!
3560+ _VirtualDom_removeNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, index);
3561+}
3562+
3563+
3564+
3565+// ADD DOM NODES
3566+//
3567+// Each DOM node has an "index" assigned in order of traversal. It is important
3568+// to minimize our crawl over the actual DOM, so these indexes (along with the
3569+// descendantsCount of virtual nodes) let us skip touching entire subtrees of
3570+// the DOM if we know there are no patches there.
3571+
3572+
3573+function _VirtualDom_addDomNodes(domNode, vNode, patches, eventNode)
3574+{
3575+ _VirtualDom_addDomNodesHelp(domNode, vNode, patches, 0, 0, vNode.b, eventNode);
3576+}
3577+
3578+
3579+// assumes `patches` is non-empty and indexes increase monotonically.
3580+function _VirtualDom_addDomNodesHelp(domNode, vNode, patches, i, low, high, eventNode)
3581+{
3582+ var patch = patches[i];
3583+ var index = patch.r;
3584+
3585+ while (index === low)
3586+ {
3587+ var patchType = patch.$;
3588+
3589+ if (patchType === 1)
3590+ {
3591+ _VirtualDom_addDomNodes(domNode, vNode.k, patch.s, eventNode);
3592+ }
3593+ else if (patchType === 8)
3594+ {
3595+ patch.t = domNode;
3596+ patch.u = eventNode;
3597+
3598+ var subPatches = patch.s.w;
3599+ if (subPatches.length > 0)
3600+ {
3601+ _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
3602+ }
3603+ }
3604+ else if (patchType === 9)
3605+ {
3606+ patch.t = domNode;
3607+ patch.u = eventNode;
3608+
3609+ var data = patch.s;
3610+ if (data)
3611+ {
3612+ data.A.s = domNode;
3613+ var subPatches = data.w;
3614+ if (subPatches.length > 0)
3615+ {
3616+ _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
3617+ }
3618+ }
3619+ }
3620+ else
3621+ {
3622+ patch.t = domNode;
3623+ patch.u = eventNode;
3624+ }
3625+
3626+ i++;
3627+
3628+ if (!(patch = patches[i]) || (index = patch.r) > high)
3629+ {
3630+ return i;
3631+ }
3632+ }
3633+
3634+ var tag = vNode.$;
3635+
3636+ if (tag === 4)
3637+ {
3638+ var subNode = vNode.k;
3639+
3640+ while (subNode.$ === 4)
3641+ {
3642+ subNode = subNode.k;
3643+ }
3644+
3645+ return _VirtualDom_addDomNodesHelp(domNode, subNode, patches, i, low + 1, high, _VirtualDom_getMeta(domNode).elm_event_node_ref);
3646+ }
3647+
3648+ // tag must be 1 or 2 at this point
3649+
3650+ var vKids = vNode.e;
3651+ var childNodes = _Lynx_getChildren(domNode);
3652+ for (var j = 0; j < vKids.length; j++)
3653+ {
3654+ low++;
3655+ var vKid = tag === 1 ? vKids[j] : vKids[j].b;
3656+ var nextLow = low + (vKid.b || 0);
3657+ if (low <= index && index <= nextLow)
3658+ {
3659+ i = _VirtualDom_addDomNodesHelp(childNodes[j], vKid, patches, i, low, nextLow, eventNode);
3660+ if (!(patch = patches[i]) || (index = patch.r) > high)
3661+ {
3662+ return i;
3663+ }
3664+ }
3665+ low = nextLow;
3666+ }
3667+ return i;
3668+}
3669+
3670+
3671+
3672+// APPLY PATCHES
3673+
3674+
3675+function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
3676+{
3677+ if (patches.length === 0)
3678+ {
3679+ return rootDomNode;
3680+ }
3681+
3682+ _VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
3683+ return _VirtualDom_applyPatchesHelp(rootDomNode, patches);
3684+}
3685+
3686+function _VirtualDom_applyPatchesHelp(rootDomNode, patches)
3687+{
3688+ for (var i = 0; i < patches.length; i++)
3689+ {
3690+ var patch = patches[i];
3691+ var localDomNode = patch.t
3692+ var newNode = _VirtualDom_applyPatch(localDomNode, patch);
3693+ if (localDomNode === rootDomNode)
3694+ {
3695+ rootDomNode = newNode;
3696+ }
3697+ }
3698+ return rootDomNode;
3699+}
3700+
3701+function _VirtualDom_applyPatch(domNode, patch)
3702+{
3703+ switch (patch.$)
3704+ {
3705+ case 0:
3706+ return _VirtualDom_applyPatchRedraw(domNode, patch.s, patch.u);
3707+
3708+ case 4:
3709+ _VirtualDom_applyFacts(domNode, patch.u, patch.s);
3710+ return domNode;
3711+
3712+ case 3:
3713+ _Lynx_setAttribute(domNode, 'text', patch.s);
3714+ return domNode;
3715+
3716+ case 1:
3717+ return _VirtualDom_applyPatchesHelp(domNode, patch.s);
3718+
3719+ case 2:
3720+ if (_VirtualDom_getMeta(domNode).elm_event_node_ref)
3721+ {
3722+ _VirtualDom_getMeta(domNode).elm_event_node_ref.j = patch.s;
3723+ }
3724+ else
3725+ {
3726+ _VirtualDom_getMeta(domNode).elm_event_node_ref = { j: patch.s, p: patch.u };
3727+ }
3728+ return domNode;
3729+
3730+ case 6:
3731+ var data = patch.s;
3732+ for (var i = 0; i < data.i; i++)
3733+ {
3734+ var children = _Lynx_getChildren(domNode);
3735+ _Lynx_removeElement(domNode, children[data.v]);
3736+ }
3737+ return domNode;
3738+
3739+ case 7:
3740+ var data = patch.s;
3741+ var kids = data.e;
3742+ for (var i = data.v; i < kids.length; i++)
3743+ {
3744+ _Lynx_appendChild(domNode, _VirtualDom_render(kids[i], patch.u));
3745+ }
3746+ return domNode;
3747+
3748+ case 9:
3749+ var data = patch.s;
3750+ if (!data)
3751+ {
3752+ _Lynx_removeElement(_Lynx_getParent(domNode), domNode);
3753+ return domNode;
3754+ }
3755+ var entry = data.A;
3756+ if (typeof entry.r !== 'undefined')
3757+ {
3758+ _Lynx_removeElement(_Lynx_getParent(domNode), domNode);
3759+ }
3760+ entry.s = _VirtualDom_applyPatchesHelp(domNode, data.w);
3761+ return domNode;
3762+
3763+ case 8:
3764+ return _VirtualDom_applyPatchReorder(domNode, patch);
3765+
3766+ case 5:
3767+ return patch.s(domNode);
3768+
3769+ default:
3770+ throw new Error('VirtualDom: unknown patch type');
3771+ }
3772+}
3773+
3774+
3775+function _VirtualDom_applyPatchRedraw(domNode, vNode, eventNode)
3776+{
3777+ var parentNode = _Lynx_getParent(domNode);
3778+ var newNode = _VirtualDom_render(vNode, eventNode);
3779+
3780+ if (!_VirtualDom_getMeta(newNode).elm_event_node_ref)
3781+ {
3782+ _VirtualDom_getMeta(newNode).elm_event_node_ref = _VirtualDom_getMeta(domNode).elm_event_node_ref;
3783+ }
3784+
3785+ if (parentNode && newNode !== domNode)
3786+ {
3787+ _Lynx_replaceElement(parentNode, newNode, domNode);
3788+ }
3789+ return newNode;
3790+}
3791+
3792+
3793+function _VirtualDom_applyPatchReorder(domNode, patch)
3794+{
3795+ var data = patch.s;
3796+
3797+ // remove end inserts
3798+ var endInsertNodes = _VirtualDom_applyPatchReorderEndInsertsHelp(data.y, patch);
3799+
3800+ // removals
3801+ domNode = _VirtualDom_applyPatchesHelp(domNode, data.w);
3802+
3803+ // inserts
3804+ var inserts = data.x;
3805+ for (var i = 0; i < inserts.length; i++)
3806+ {
3807+ var insert = inserts[i];
3808+ var entry = insert.A;
3809+ var node = entry.c === 2
3810+ ? entry.s
3811+ : _VirtualDom_render(entry.z, patch.u);
3812+ var children = _Lynx_getChildren(domNode);
3813+ _Lynx_insertBefore(domNode, node, children[insert.r]);
3814+ }
3815+
3816+ // add end inserts
3817+ if (endInsertNodes)
3818+ {
3819+ for (var i = 0; i < endInsertNodes.length; i++)
3820+ {
3821+ _Lynx_appendChild(domNode, endInsertNodes[i]);
3822+ }
3823+ }
3824+
3825+ return domNode;
3826+}
3827+
3828+
3829+function _VirtualDom_applyPatchReorderEndInsertsHelp(endInserts, patch)
3830+{
3831+ if (!endInserts)
3832+ {
3833+ return;
3834+ }
3835+
3836+ var nodes = [];
3837+ for (var i = 0; i < endInserts.length; i++)
3838+ {
3839+ var insert = endInserts[i];
3840+ var entry = insert.A;
3841+ nodes.push(entry.c === 2
3842+ ? entry.s
3843+ : _VirtualDom_render(entry.z, patch.u)
3844+ );
3845+ }
3846+ return nodes;
3847+}
3848+
3849+
3850+function _VirtualDom_dekey(keyedNode)
3851+{
3852+ var keyedKids = keyedNode.e;
3853+ var len = keyedKids.length;
3854+ var kids = new Array(len);
3855+ for (var i = 0; i < len; i++)
3856+ {
3857+ kids[i] = keyedKids[i].b;
3858+ }
3859+
3860+ return {
3861+ $: 1,
3862+ c: keyedNode.c,
3863+ d: keyedNode.d,
3864+ e: kids,
3865+ f: keyedNode.f,
3866+ b: keyedNode.b
3867+ };
3868+}
3869+
3870+
3871+
3872+// LYNXJS PAPI WRAPPERS
3873+var _Browser_lynx = (typeof globalThis !== 'undefined' ? globalThis : scope);
3874+function _Browser_newPage() {
3875+ return _Browser_lynx['page'];
3876+}
3877+function _Browser_flush() {
3878+ var fn = _Browser_lynx['_' + '_FlushElementTree'];
3879+ if (typeof fn === 'function') { fn(); }
3880+}
3881+
3882+
3883+
3884+// ELEMENT
3885+
3886+
3887+var _Browser_element = F4(function(impl, flagDecoder, debugMetadata, args)
3888+{
3889+ return _Platform_initialize(
3890+ flagDecoder,
3891+ args,
3892+ impl.init,
3893+ impl.update,
3894+ impl.subscriptions,
3895+ function(sendToApp, initialModel) {
3896+ var view = impl.view;
3897+ var domNode = args['node'] || _Browser_newPage();
3898+ var currNode = view(initialModel);
3899+ var currDomNode = _VirtualDom_render(currNode, sendToApp);
3900+ _VirtualDom_appendChild(domNode, currDomNode);
3901+ _Browser_flush();
3902+
3903+ return _Browser_makeAnimator(initialModel, function(model)
3904+ {
3905+ var nextNode = view(model);
3906+ var patches = _VirtualDom_diff(currNode, nextNode);
3907+ currDomNode = _VirtualDom_applyPatches(currDomNode, currNode, patches, sendToApp);
3908+ currNode = nextNode;
3909+ _Browser_flush();
3910+ });
3911+ }
3912+ );
3913+});
3914+
3915+
3916+
3917+// DOCUMENT
3918+
3919+
3920+var _Browser_document = F4(function(impl, flagDecoder, debugMetadata, args)
3921+{
3922+ return _Platform_initialize(
3923+ flagDecoder,
3924+ args,
3925+ impl.init,
3926+ impl.update,
3927+ impl.subscriptions,
3928+ function(sendToApp, initialModel) {
3929+ var view = impl.view;
3930+ var rootNode = args['node'] || _Browser_newPage();
3931+ var doc = view(initialModel);
3932+ var currNode = _VirtualDom_node('view')(_List_Nil)(doc.body);
3933+ var currDomNode = _VirtualDom_render(currNode, sendToApp);
3934+ _VirtualDom_appendChild(rootNode, currDomNode);
3935+ _Browser_flush();
3936+
3937+ return _Browser_makeAnimator(initialModel, function(model)
3938+ {
3939+ var doc = view(model);
3940+ var nextNode = _VirtualDom_node('view')(_List_Nil)(doc.body);
3941+ var patches = _VirtualDom_diff(currNode, nextNode);
3942+ currDomNode = _VirtualDom_applyPatches(currDomNode, currNode, patches, sendToApp);
3943+ currNode = nextNode;
3944+ _Browser_flush();
3945+ });
3946+ }
3947+ );
3948+});
3949+
3950+
3951+
3952+// ANIMATION
3953+
3954+
3955+var _Browser_cancelAnimationFrame =
3956+ function(id) { clearTimeout(id); };
3957+
3958+var _Browser_requestAnimationFrame =
3959+ function(callback) { return setTimeout(callback, 1000 / 60); };
3960+
3961+
3962+function _Browser_makeAnimator(model, draw)
3963+{
3964+ draw(model);
3965+
3966+ var state = 0;
3967+
3968+ function updateIfNeeded()
3969+ {
3970+ state = state === 1
3971+ ? 0
3972+ : ( _Browser_requestAnimationFrame(updateIfNeeded), draw(model), 1 );
3973+ }
3974+
3975+ return function(nextModel, isSync)
3976+ {
3977+ model = nextModel;
3978+
3979+ isSync
3980+ ? ( draw(model),
3981+ state === 2 && (state = 1)
3982+ )
3983+ : ( state === 0 && _Browser_requestAnimationFrame(updateIfNeeded),
3984+ state = 2
3985+ );
3986+ };
3987+}
3988+
3989+
3990+
3991+// APPLICATION
3992+
3993+
3994+function _Browser_application(impl)
3995+{
3996+ return _Browser_document({
3997+ init: function(flags)
3998+ {
3999+ return A3(impl.init, flags, _Browser_fakeUrl(), {});
4000+ },
4001+ view: impl.view,
4002+ update: impl.update,
4003+ subscriptions: impl.subscriptions
4004+ });
4005+}
4006+
4007+function _Browser_fakeUrl()
4008+{
4009+ return {
4010+ protocol: { $: 0 },
4011+ host: 'localhost',
4012+ port_: { $: 1 },
4013+ path: '/',
4014+ query: { $: 1 },
4015+ fragment: { $: 1 }
4016+ };
4017+}
4018+
4019+
4020+
4021+var _Browser_go = F2(function(key, n)
4022+{
4023+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
4024+ // no-op in LynxJS
4025+ key();
4026+ }));
4027+});
4028+
4029+var _Browser_pushUrl = F2(function(key, url)
4030+{
4031+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
4032+ // no-op in LynxJS
4033+ key();
4034+ }));
4035+});
4036+
4037+var _Browser_replaceUrl = F2(function(key, url)
4038+{
4039+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
4040+ // no-op in LynxJS
4041+ key();
4042+ }));
4043+});
4044+
4045+
4046+
4047+// GLOBAL EVENTS
4048+
4049+
4050+var _Browser_fakeNode = { addEventListener: function() {}, removeEventListener: function() {} };
4051+var _Browser_doc = typeof document !== 'undefined' ? document : _Browser_fakeNode;
4052+var _Browser_window = typeof window !== 'undefined' ? window : _Browser_fakeNode;
4053+
4054+var _Browser_on = F3(function(node, eventName, sendToSelf)
4055+{
4056+ return _Scheduler_spawn(_Scheduler_binding(function(callback)
4057+ {
4058+ return function() {};
4059+ }));
4060+});
4061+
4062+var _Browser_decodeEvent = F2(function(decoder, event)
4063+{
4064+ var result = _Json_runHelp(decoder, event);
4065+ return $elm$core$Result$isOk(result) ? $elm$core$Maybe$Just(result.a) : $elm$core$Maybe$Nothing;
4066+});
4067+
4068+
4069+
4070+// PAGE VISIBILITY
4071+
4072+
4073+function _Browser_visibilityInfo()
4074+{
4075+ return (typeof _VirtualDom_doc.hidden !== 'undefined')
4076+ ? { hidden: 'hidden', change: 'visibilitychange' }
4077+ :
4078+ (typeof _VirtualDom_doc.mozHidden !== 'undefined')
4079+ ? { hidden: 'mozHidden', change: 'mozvisibilitychange' }
4080+ :
4081+ (typeof _VirtualDom_doc.msHidden !== 'undefined')
4082+ ? { hidden: 'msHidden', change: 'msvisibilitychange' }
4083+ :
4084+ (typeof _VirtualDom_doc.webkitHidden !== 'undefined')
4085+ ? { hidden: 'webkitHidden', change: 'webkitvisibilitychange' }
4086+ : { hidden: 'hidden', change: 'visibilitychange' };
4087+}
4088+
4089+
4090+
4091+// ANIMATION FRAMES
4092+
4093+
4094+function _Browser_rAF()
4095+{
4096+ return _Scheduler_binding(function(callback)
4097+ {
4098+ var id = _Browser_requestAnimationFrame(function() {
4099+ callback(_Scheduler_succeed(Date.now()));
4100+ });
4101+
4102+ return function() {
4103+ _Browser_cancelAnimationFrame(id);
4104+ };
4105+ });
4106+}
4107+
4108+
4109+function _Browser_now()
4110+{
4111+ return _Scheduler_binding(function(callback)
4112+ {
4113+ callback(_Scheduler_succeed(Date.now()));
4114+ });
4115+}
4116+
4117+
4118+
4119+// DOM STUFF
4120+
4121+
4122+function _Browser_withNode(id, doStuff)
4123+{
4124+ return _Scheduler_binding(function(callback)
4125+ {
4126+ callback(_Scheduler_fail($lynxjs_elm$browser$Browser$Dom$NotFound(id)));
4127+ });
4128+}
4129+
4130+
4131+function _Browser_withWindow(doStuff)
4132+{
4133+ return _Scheduler_binding(function(callback)
4134+ {
4135+ _Browser_requestAnimationFrame(function() {
4136+ callback(_Scheduler_succeed(doStuff()));
4137+ });
4138+ });
4139+}
4140+
4141+
4142+// FOCUS and BLUR
4143+
4144+
4145+var _Browser_call = F2(function(functionName, id)
4146+{
4147+ return _Browser_withNode(id, function(node) {
4148+ node[functionName]();
4149+ return _Utils_Tuple0;
4150+ });
4151+});
4152+
4153+
4154+
4155+// WINDOW VIEWPORT
4156+
4157+
4158+function _Browser_getViewport()
4159+{
4160+ return {
4161+ scene: _Browser_getScene(),
4162+ viewport: {
4163+ x: _Browser_window.pageXOffset,
4164+ y: _Browser_window.pageYOffset,
4165+ width: _Browser_doc.documentElement.clientWidth,
4166+ height: _Browser_doc.documentElement.clientHeight
4167+ }
4168+ };
4169+}
4170+
4171+function _Browser_getScene()
4172+{
4173+ var body = _Browser_doc.body;
4174+ var elem = _Browser_doc.documentElement;
4175+ return {
4176+ width: Math.max(body.scrollWidth, body.offsetWidth, elem.scrollWidth, elem.offsetWidth, elem.clientWidth),
4177+ height: Math.max(body.scrollHeight, body.offsetHeight, elem.scrollHeight, elem.offsetHeight, elem.clientHeight)
4178+ };
4179+}
4180+
4181+var _Browser_setViewport = F2(function(x, y)
4182+{
4183+ return _Browser_withWindow(function()
4184+ {
4185+ _Browser_window.scroll(x, y);
4186+ return _Utils_Tuple0;
4187+ });
4188+});
4189+
4190+
4191+
4192+// ELEMENT VIEWPORT
4193+
4194+
4195+function _Browser_getViewportOf(id)
4196+{
4197+ return _Browser_withNode(id, function(node)
4198+ {
4199+ return {
4200+ scene: {
4201+ width: node.scrollWidth,
4202+ height: node.scrollHeight
4203+ },
4204+ viewport: {
4205+ x: node.scrollLeft,
4206+ y: node.scrollTop,
4207+ width: node.clientWidth,
4208+ height: node.clientHeight
4209+ }
4210+ };
4211+ });
4212+}
4213+
4214+
4215+var _Browser_setViewportOf = F3(function(id, x, y)
4216+{
4217+ return _Browser_withNode(id, function(node)
4218+ {
4219+ node.scrollLeft = x;
4220+ node.scrollTop = y;
4221+ return _Utils_Tuple0;
4222+ });
4223+});
4224+
4225+
4226+
4227+// ELEMENT
4228+
4229+
4230+function _Browser_getElement(id)
4231+{
4232+ return _Browser_withNode(id, function(node)
4233+ {
4234+ var rect = node.getBoundingClientRect();
4235+ var x = _Browser_window.pageXOffset;
4236+ var y = _Browser_window.pageYOffset;
4237+ return {
4238+ scene: _Browser_getScene(),
4239+ viewport: {
4240+ x: x,
4241+ y: y,
4242+ width: _Browser_doc.documentElement.clientWidth,
4243+ height: _Browser_doc.documentElement.clientHeight
4244+ },
4245+ element: {
4246+ x: x + rect.left,
4247+ y: y + rect.top,
4248+ width: rect.width,
4249+ height: rect.height
4250+ }
4251+ };
4252+ });
4253+}
4254+
4255+
4256+
4257+// LOAD and RELOAD
4258+
4259+
4260+function _Browser_reload(skipCache)
4261+{
4262+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
4263+ {
4264+ // no-op in LynxJS
4265+ }));
4266+}
4267+
4268+function _Browser_load(url)
4269+{
4270+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
4271+ {
4272+ try
4273+ {
4274+ // no-op in LynxJS
4275+ }
4276+ catch(err)
4277+ {
4278+ // Only Firefox can throw a NS_ERROR_MALFORMED_URI exception here.
4279+ // Other browsers reload the page, so let's be consistent about that.
4280+ // no-op in LynxJS
4281+ }
4282+ }));
4283+}
4284+function _Utils_cmp(x, y, ord) {if (typeof x !== 'object') {return x === y ? 0 : x < y ? -1 : 1; }if (x instanceof String) {var a = x.valueOf(); var b = y.valueOf();return a === b ? 0 : a < b ? -1 : 1; }if (typeof x.$ === 'undefined' || (typeof x.$ === 'string' && x.$[0] === '#')) {var keys = Object.keys(x).sort();for (var i = 0; i < keys.length; i++) {var k = keys[i];if (k === '$') continue;ord = _Utils_cmp(x[k], y[k]);if (ord) return ord; }return 0; }if (x.$ === '::' || x.$ === '[]') {for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {}return ord || (x.b ? 1 : y.b ? -1 : 0); }if (x.$ !== y.$) {return x.$ < y.$ ? -1 : 1; }var keys = Object.keys(x);for (var i = 0; i < keys.length; i++) {var k = keys[i];if (k === '$') continue;ord = _Utils_cmp(x[k], y[k]);if (ord) return ord; }return 0; }
4285+var $author$project$Main$init = {count: 0};
4286+var $elm$core$List$cons = _List_cons;
4287+var $elm$core$Elm$JsArray$foldr = _JsArray_foldr;
4288+var $elm$core$Array$foldr = F3(
4289+ function (func, baseCase, _v0) {
4290+ var tree = _v0.c;
4291+ var tail = _v0.d;
4292+ var helper = F2(
4293+ function (node, acc) {
4294+ if (node.$ === 'SubTree') {
4295+ var subTree = node.a;
4296+ return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
4297+ } else {
4298+ var values = node.a;
4299+ return A3($elm$core$Elm$JsArray$foldr, func, acc, values);
4300+ }
4301+ });
4302+ return A3(
4303+ $elm$core$Elm$JsArray$foldr,
4304+ helper,
4305+ A3($elm$core$Elm$JsArray$foldr, func, baseCase, tail),
4306+ tree);
4307+ });
4308+var $elm$core$Array$toList = function (array) {
4309+ return A3($elm$core$Array$foldr, $elm$core$List$cons, _List_Nil, array);
4310+};
4311+var $elm$core$Dict$foldr = F3(
4312+ function (func, acc, t) {
4313+ foldr:
4314+ while (true) {
4315+ if (t.$ === 'RBEmpty_elm_builtin') {
4316+ return acc;
4317+ } else {
4318+ var key = t.b;
4319+ var value = t.c;
4320+ var left = t.d;
4321+ var right = t.e;
4322+ var $temp$func = func,
4323+ $temp$acc = A3(
4324+ func,
4325+ key,
4326+ value,
4327+ A3($elm$core$Dict$foldr, func, acc, right)),
4328+ $temp$t = left;
4329+ func = $temp$func;
4330+ acc = $temp$acc;
4331+ t = $temp$t;
4332+ continue foldr;
4333+ }
4334+ }
4335+ });
4336+var $elm$core$Dict$toList = function (dict) {
4337+ return A3(
4338+ $elm$core$Dict$foldr,
4339+ F3(
4340+ function (key, value, list) {
4341+ return A2(
4342+ $elm$core$List$cons,
4343+ _Utils_Tuple2(key, value),
4344+ list);
4345+ }),
4346+ _List_Nil,
4347+ dict);
4348+};
4349+var $elm$core$Dict$keys = function (dict) {
4350+ return A3(
4351+ $elm$core$Dict$foldr,
4352+ F3(
4353+ function (key, value, keyList) {
4354+ return A2($elm$core$List$cons, key, keyList);
4355+ }),
4356+ _List_Nil,
4357+ dict);
4358+};
4359+var $elm$core$Set$toList = function (_v0) {
4360+ var dict = _v0.a;
4361+ return $elm$core$Dict$keys(dict);
4362+};
4363+var $elm$core$Basics$EQ = {$: 'EQ'};
4364+var $elm$core$Basics$GT = {$: 'GT'};
4365+var $elm$core$Basics$LT = {$: 'LT'};
4366+var $elm$core$Result$Err = function (a) {
4367+ return {$: 'Err', a: a};
4368+};
4369+var $elm$json$Json$Decode$Failure = F2(
4370+ function (a, b) {
4371+ return {$: 'Failure', a: a, b: b};
4372+ });
4373+var $elm$json$Json$Decode$Field = F2(
4374+ function (a, b) {
4375+ return {$: 'Field', a: a, b: b};
4376+ });
4377+var $elm$json$Json$Decode$Index = F2(
4378+ function (a, b) {
4379+ return {$: 'Index', a: a, b: b};
4380+ });
4381+var $elm$core$Result$Ok = function (a) {
4382+ return {$: 'Ok', a: a};
4383+};
4384+var $elm$json$Json$Decode$OneOf = function (a) {
4385+ return {$: 'OneOf', a: a};
4386+};
4387+var $elm$core$Basics$False = {$: 'False'};
4388+var $elm$core$Basics$add = _Basics_add;
4389+var $elm$core$Maybe$Just = function (a) {
4390+ return {$: 'Just', a: a};
4391+};
4392+var $elm$core$Maybe$Nothing = {$: 'Nothing'};
4393+var $elm$core$String$all = _String_all;
4394+var $elm$core$Basics$and = _Basics_and;
4395+var $elm$core$Basics$append = _Utils_append;
4396+var $elm$json$Json$Encode$encode = _Json_encode;
4397+var $elm$core$String$fromInt = _String_fromNumber;
4398+var $elm$core$String$join = F2(
4399+ function (sep, chunks) {
4400+ return A2(
4401+ _String_join,
4402+ sep,
4403+ _List_toArray(chunks));
4404+ });
4405+var $elm$core$String$split = F2(
4406+ function (sep, string) {
4407+ return _List_fromArray(
4408+ A2(_String_split, sep, string));
4409+ });
4410+var $elm$json$Json$Decode$indent = function (str) {
4411+ return A2(
4412+ $elm$core$String$join,
4413+ '\n ',
4414+ A2($elm$core$String$split, '\n', str));
4415+};
4416+var $elm$core$List$foldl = F3(
4417+ function (func, acc, list) {
4418+ foldl:
4419+ while (true) {
4420+ if (!list.b) {
4421+ return acc;
4422+ } else {
4423+ var x = list.a;
4424+ var xs = list.b;
4425+ var $temp$func = func,
4426+ $temp$acc = A2(func, x, acc),
4427+ $temp$list = xs;
4428+ func = $temp$func;
4429+ acc = $temp$acc;
4430+ list = $temp$list;
4431+ continue foldl;
4432+ }
4433+ }
4434+ });
4435+var $elm$core$List$length = function (xs) {
4436+ return A3(
4437+ $elm$core$List$foldl,
4438+ F2(
4439+ function (_v0, i) {
4440+ return i + 1;
4441+ }),
4442+ 0,
4443+ xs);
4444+};
4445+var $elm$core$List$map2 = _List_map2;
4446+var $elm$core$Basics$le = _Utils_le;
4447+var $elm$core$Basics$sub = _Basics_sub;
4448+var $elm$core$List$rangeHelp = F3(
4449+ function (lo, hi, list) {
4450+ rangeHelp:
4451+ while (true) {
4452+ if (_Utils_cmp(lo, hi) < 1) {
4453+ var $temp$lo = lo,
4454+ $temp$hi = hi - 1,
4455+ $temp$list = A2($elm$core$List$cons, hi, list);
4456+ lo = $temp$lo;
4457+ hi = $temp$hi;
4458+ list = $temp$list;
4459+ continue rangeHelp;
4460+ } else {
4461+ return list;
4462+ }
4463+ }
4464+ });
4465+var $elm$core$List$range = F2(
4466+ function (lo, hi) {
4467+ return A3($elm$core$List$rangeHelp, lo, hi, _List_Nil);
4468+ });
4469+var $elm$core$List$indexedMap = F2(
4470+ function (f, xs) {
4471+ return A3(
4472+ $elm$core$List$map2,
4473+ f,
4474+ A2(
4475+ $elm$core$List$range,
4476+ 0,
4477+ $elm$core$List$length(xs) - 1),
4478+ xs);
4479+ });
4480+var $elm$core$Char$toCode = _Char_toCode;
4481+var $elm$core$Char$isLower = function (_char) {
4482+ var code = $elm$core$Char$toCode(_char);
4483+ return (97 <= code) && (code <= 122);
4484+};
4485+var $elm$core$Char$isUpper = function (_char) {
4486+ var code = $elm$core$Char$toCode(_char);
4487+ return (code <= 90) && (65 <= code);
4488+};
4489+var $elm$core$Basics$or = _Basics_or;
4490+var $elm$core$Char$isAlpha = function (_char) {
4491+ return $elm$core$Char$isLower(_char) || $elm$core$Char$isUpper(_char);
4492+};
4493+var $elm$core$Char$isDigit = function (_char) {
4494+ var code = $elm$core$Char$toCode(_char);
4495+ return (code <= 57) && (48 <= code);
4496+};
4497+var $elm$core$Char$isAlphaNum = function (_char) {
4498+ return $elm$core$Char$isLower(_char) || ($elm$core$Char$isUpper(_char) || $elm$core$Char$isDigit(_char));
4499+};
4500+var $elm$core$List$reverse = function (list) {
4501+ return A3($elm$core$List$foldl, $elm$core$List$cons, _List_Nil, list);
4502+};
4503+var $elm$core$String$uncons = _String_uncons;
4504+var $elm$json$Json$Decode$errorOneOf = F2(
4505+ function (i, error) {
4506+ return '\n\n(' + ($elm$core$String$fromInt(i + 1) + (') ' + $elm$json$Json$Decode$indent(
4507+ $elm$json$Json$Decode$errorToString(error))));
4508+ });
4509+var $elm$json$Json$Decode$errorToString = function (error) {
4510+ return A2($elm$json$Json$Decode$errorToStringHelp, error, _List_Nil);
4511+};
4512+var $elm$json$Json$Decode$errorToStringHelp = F2(
4513+ function (error, context) {
4514+ errorToStringHelp:
4515+ while (true) {
4516+ switch (error.$) {
4517+ case 'Field':
4518+ var f = error.a;
4519+ var err = error.b;
4520+ var isSimple = function () {
4521+ var _v1 = $elm$core$String$uncons(f);
4522+ if (_v1.$ === 'Nothing') {
4523+ return false;
4524+ } else {
4525+ var _v2 = _v1.a;
4526+ var _char = _v2.a;
4527+ var rest = _v2.b;
4528+ return $elm$core$Char$isAlpha(_char) && A2($elm$core$String$all, $elm$core$Char$isAlphaNum, rest);
4529+ }
4530+ }();
4531+ var fieldName = isSimple ? ('.' + f) : ('[\'' + (f + '\']'));
4532+ var $temp$error = err,
4533+ $temp$context = A2($elm$core$List$cons, fieldName, context);
4534+ error = $temp$error;
4535+ context = $temp$context;
4536+ continue errorToStringHelp;
4537+ case 'Index':
4538+ var i = error.a;
4539+ var err = error.b;
4540+ var indexName = '[' + ($elm$core$String$fromInt(i) + ']');
4541+ var $temp$error = err,
4542+ $temp$context = A2($elm$core$List$cons, indexName, context);
4543+ error = $temp$error;
4544+ context = $temp$context;
4545+ continue errorToStringHelp;
4546+ case 'OneOf':
4547+ var errors = error.a;
4548+ if (!errors.b) {
4549+ return 'Ran into a Json.Decode.oneOf with no possibilities' + function () {
4550+ if (!context.b) {
4551+ return '!';
4552+ } else {
4553+ return ' at json' + A2(
4554+ $elm$core$String$join,
4555+ '',
4556+ $elm$core$List$reverse(context));
4557+ }
4558+ }();
4559+ } else {
4560+ if (!errors.b.b) {
4561+ var err = errors.a;
4562+ var $temp$error = err,
4563+ $temp$context = context;
4564+ error = $temp$error;
4565+ context = $temp$context;
4566+ continue errorToStringHelp;
4567+ } else {
4568+ var starter = function () {
4569+ if (!context.b) {
4570+ return 'Json.Decode.oneOf';
4571+ } else {
4572+ return 'The Json.Decode.oneOf at json' + A2(
4573+ $elm$core$String$join,
4574+ '',
4575+ $elm$core$List$reverse(context));
4576+ }
4577+ }();
4578+ var introduction = starter + (' failed in the following ' + ($elm$core$String$fromInt(
4579+ $elm$core$List$length(errors)) + ' ways:'));
4580+ return A2(
4581+ $elm$core$String$join,
4582+ '\n\n',
4583+ A2(
4584+ $elm$core$List$cons,
4585+ introduction,
4586+ A2($elm$core$List$indexedMap, $elm$json$Json$Decode$errorOneOf, errors)));
4587+ }
4588+ }
4589+ default:
4590+ var msg = error.a;
4591+ var json = error.b;
4592+ var introduction = function () {
4593+ if (!context.b) {
4594+ return 'Problem with the given value:\n\n';
4595+ } else {
4596+ return 'Problem with the value at json' + (A2(
4597+ $elm$core$String$join,
4598+ '',
4599+ $elm$core$List$reverse(context)) + ':\n\n ');
4600+ }
4601+ }();
4602+ return introduction + ($elm$json$Json$Decode$indent(
4603+ A2($elm$json$Json$Encode$encode, 4, json)) + ('\n\n' + msg));
4604+ }
4605+ }
4606+ });
4607+var $elm$core$Array$branchFactor = 32;
4608+var $elm$core$Array$Array_elm_builtin = F4(
4609+ function (a, b, c, d) {
4610+ return {$: 'Array_elm_builtin', a: a, b: b, c: c, d: d};
4611+ });
4612+var $elm$core$Elm$JsArray$empty = _JsArray_empty;
4613+var $elm$core$Basics$ceiling = _Basics_ceiling;
4614+var $elm$core$Basics$fdiv = _Basics_fdiv;
4615+var $elm$core$Basics$logBase = F2(
4616+ function (base, number) {
4617+ return _Basics_log(number) / _Basics_log(base);
4618+ });
4619+var $elm$core$Basics$toFloat = _Basics_toFloat;
4620+var $elm$core$Array$shiftStep = $elm$core$Basics$ceiling(
4621+ A2($elm$core$Basics$logBase, 2, $elm$core$Array$branchFactor));
4622+var $elm$core$Array$empty = A4($elm$core$Array$Array_elm_builtin, 0, $elm$core$Array$shiftStep, $elm$core$Elm$JsArray$empty, $elm$core$Elm$JsArray$empty);
4623+var $elm$core$Elm$JsArray$initialize = _JsArray_initialize;
4624+var $elm$core$Array$Leaf = function (a) {
4625+ return {$: 'Leaf', a: a};
4626+};
4627+var $elm$core$Basics$apL = F2(
4628+ function (f, x) {
4629+ return f(x);
4630+ });
4631+var $elm$core$Basics$apR = F2(
4632+ function (x, f) {
4633+ return f(x);
4634+ });
4635+var $elm$core$Basics$eq = _Utils_equal;
4636+var $elm$core$Basics$floor = _Basics_floor;
4637+var $elm$core$Elm$JsArray$length = _JsArray_length;
4638+var $elm$core$Basics$gt = _Utils_gt;
4639+var $elm$core$Basics$max = F2(
4640+ function (x, y) {
4641+ return (_Utils_cmp(x, y) > 0) ? x : y;
4642+ });
4643+var $elm$core$Basics$mul = _Basics_mul;
4644+var $elm$core$Array$SubTree = function (a) {
4645+ return {$: 'SubTree', a: a};
4646+};
4647+var $elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
4648+var $elm$core$Array$compressNodes = F2(
4649+ function (nodes, acc) {
4650+ compressNodes:
4651+ while (true) {
4652+ var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodes);
4653+ var node = _v0.a;
4654+ var remainingNodes = _v0.b;
4655+ var newAcc = A2(
4656+ $elm$core$List$cons,
4657+ $elm$core$Array$SubTree(node),
4658+ acc);
4659+ if (!remainingNodes.b) {
4660+ return $elm$core$List$reverse(newAcc);
4661+ } else {
4662+ var $temp$nodes = remainingNodes,
4663+ $temp$acc = newAcc;
4664+ nodes = $temp$nodes;
4665+ acc = $temp$acc;
4666+ continue compressNodes;
4667+ }
4668+ }
4669+ });
4670+var $elm$core$Tuple$first = function (_v0) {
4671+ var x = _v0.a;
4672+ return x;
4673+};
4674+var $elm$core$Array$treeFromBuilder = F2(
4675+ function (nodeList, nodeListSize) {
4676+ treeFromBuilder:
4677+ while (true) {
4678+ var newNodeSize = $elm$core$Basics$ceiling(nodeListSize / $elm$core$Array$branchFactor);
4679+ if (newNodeSize === 1) {
4680+ return A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodeList).a;
4681+ } else {
4682+ var $temp$nodeList = A2($elm$core$Array$compressNodes, nodeList, _List_Nil),
4683+ $temp$nodeListSize = newNodeSize;
4684+ nodeList = $temp$nodeList;
4685+ nodeListSize = $temp$nodeListSize;
4686+ continue treeFromBuilder;
4687+ }
4688+ }
4689+ });
4690+var $elm$core$Array$builderToArray = F2(
4691+ function (reverseNodeList, builder) {
4692+ if (!builder.nodeListSize) {
4693+ return A4(
4694+ $elm$core$Array$Array_elm_builtin,
4695+ $elm$core$Elm$JsArray$length(builder.tail),
4696+ $elm$core$Array$shiftStep,
4697+ $elm$core$Elm$JsArray$empty,
4698+ builder.tail);
4699+ } else {
4700+ var treeLen = builder.nodeListSize * $elm$core$Array$branchFactor;
4701+ var depth = $elm$core$Basics$floor(
4702+ A2($elm$core$Basics$logBase, $elm$core$Array$branchFactor, treeLen - 1));
4703+ var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.nodeList) : builder.nodeList;
4704+ var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.nodeListSize);
4705+ return A4(
4706+ $elm$core$Array$Array_elm_builtin,
4707+ $elm$core$Elm$JsArray$length(builder.tail) + treeLen,
4708+ A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep),
4709+ tree,
4710+ builder.tail);
4711+ }
4712+ });
4713+var $elm$core$Basics$idiv = _Basics_idiv;
4714+var $elm$core$Basics$lt = _Utils_lt;
4715+var $elm$core$Array$initializeHelp = F5(
4716+ function (fn, fromIndex, len, nodeList, tail) {
4717+ initializeHelp:
4718+ while (true) {
4719+ if (fromIndex < 0) {
4720+ return A2(
4721+ $elm$core$Array$builderToArray,
4722+ false,
4723+ {nodeList: nodeList, nodeListSize: (len / $elm$core$Array$branchFactor) | 0, tail: tail});
4724+ } else {
4725+ var leaf = $elm$core$Array$Leaf(
4726+ A3($elm$core$Elm$JsArray$initialize, $elm$core$Array$branchFactor, fromIndex, fn));
4727+ var $temp$fn = fn,
4728+ $temp$fromIndex = fromIndex - $elm$core$Array$branchFactor,
4729+ $temp$len = len,
4730+ $temp$nodeList = A2($elm$core$List$cons, leaf, nodeList),
4731+ $temp$tail = tail;
4732+ fn = $temp$fn;
4733+ fromIndex = $temp$fromIndex;
4734+ len = $temp$len;
4735+ nodeList = $temp$nodeList;
4736+ tail = $temp$tail;
4737+ continue initializeHelp;
4738+ }
4739+ }
4740+ });
4741+var $elm$core$Basics$remainderBy = _Basics_remainderBy;
4742+var $elm$core$Array$initialize = F2(
4743+ function (len, fn) {
4744+ if (len <= 0) {
4745+ return $elm$core$Array$empty;
4746+ } else {
4747+ var tailLen = len % $elm$core$Array$branchFactor;
4748+ var tail = A3($elm$core$Elm$JsArray$initialize, tailLen, len - tailLen, fn);
4749+ var initialFromIndex = (len - tailLen) - $elm$core$Array$branchFactor;
4750+ return A5($elm$core$Array$initializeHelp, fn, initialFromIndex, len, _List_Nil, tail);
4751+ }
4752+ });
4753+var $elm$core$Basics$True = {$: 'True'};
4754+var $elm$core$Result$isOk = function (result) {
4755+ if (result.$ === 'Ok') {
4756+ return true;
4757+ } else {
4758+ return false;
4759+ }
4760+};
4761+var $elm$json$Json$Decode$map = _Json_map1;
4762+var $elm$json$Json$Decode$map2 = _Json_map2;
4763+var $elm$json$Json$Decode$succeed = _Json_succeed;
4764+var $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
4765+ switch (handler.$) {
4766+ case 'Normal':
4767+ return 0;
4768+ case 'MayStopPropagation':
4769+ return 1;
4770+ case 'MayPreventDefault':
4771+ return 2;
4772+ default:
4773+ return 3;
4774+ }
4775+};
4776+var $elm$core$Basics$identity = function (x) {
4777+ return x;
4778+};
4779+var $lynxjs_elm$browser$Browser$Dom$NotFound = function (a) {
4780+ return {$: 'NotFound', a: a};
4781+};
4782+var $elm$core$Basics$never = function (_v0) {
4783+ never:
4784+ while (true) {
4785+ var nvr = _v0.a;
4786+ var $temp$_v0 = nvr;
4787+ _v0 = $temp$_v0;
4788+ continue never;
4789+ }
4790+};
4791+var $elm$core$Task$Perform = function (a) {
4792+ return {$: 'Perform', a: a};
4793+};
4794+var $elm$core$Task$succeed = _Scheduler_succeed;
4795+var $elm$core$Task$init = $elm$core$Task$succeed(_Utils_Tuple0);
4796+var $elm$core$List$foldrHelper = F4(
4797+ function (fn, acc, ctr, ls) {
4798+ if (!ls.b) {
4799+ return acc;
4800+ } else {
4801+ var a = ls.a;
4802+ var r1 = ls.b;
4803+ if (!r1.b) {
4804+ return A2(fn, a, acc);
4805+ } else {
4806+ var b = r1.a;
4807+ var r2 = r1.b;
4808+ if (!r2.b) {
4809+ return A2(
4810+ fn,
4811+ a,
4812+ A2(fn, b, acc));
4813+ } else {
4814+ var c = r2.a;
4815+ var r3 = r2.b;
4816+ if (!r3.b) {
4817+ return A2(
4818+ fn,
4819+ a,
4820+ A2(
4821+ fn,
4822+ b,
4823+ A2(fn, c, acc)));
4824+ } else {
4825+ var d = r3.a;
4826+ var r4 = r3.b;
4827+ var res = (ctr > 500) ? A3(
4828+ $elm$core$List$foldl,
4829+ fn,
4830+ acc,
4831+ $elm$core$List$reverse(r4)) : A4($elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
4832+ return A2(
4833+ fn,
4834+ a,
4835+ A2(
4836+ fn,
4837+ b,
4838+ A2(
4839+ fn,
4840+ c,
4841+ A2(fn, d, res))));
4842+ }
4843+ }
4844+ }
4845+ }
4846+ });
4847+var $elm$core$List$foldr = F3(
4848+ function (fn, acc, ls) {
4849+ return A4($elm$core$List$foldrHelper, fn, acc, 0, ls);
4850+ });
4851+var $elm$core$List$map = F2(
4852+ function (f, xs) {
4853+ return A3(
4854+ $elm$core$List$foldr,
4855+ F2(
4856+ function (x, acc) {
4857+ return A2(
4858+ $elm$core$List$cons,
4859+ f(x),
4860+ acc);
4861+ }),
4862+ _List_Nil,
4863+ xs);
4864+ });
4865+var $elm$core$Task$andThen = _Scheduler_andThen;
4866+var $elm$core$Task$map = F2(
4867+ function (func, taskA) {
4868+ return A2(
4869+ $elm$core$Task$andThen,
4870+ function (a) {
4871+ return $elm$core$Task$succeed(
4872+ func(a));
4873+ },
4874+ taskA);
4875+ });
4876+var $elm$core$Task$map2 = F3(
4877+ function (func, taskA, taskB) {
4878+ return A2(
4879+ $elm$core$Task$andThen,
4880+ function (a) {
4881+ return A2(
4882+ $elm$core$Task$andThen,
4883+ function (b) {
4884+ return $elm$core$Task$succeed(
4885+ A2(func, a, b));
4886+ },
4887+ taskB);
4888+ },
4889+ taskA);
4890+ });
4891+var $elm$core$Task$sequence = function (tasks) {
4892+ return A3(
4893+ $elm$core$List$foldr,
4894+ $elm$core$Task$map2($elm$core$List$cons),
4895+ $elm$core$Task$succeed(_List_Nil),
4896+ tasks);
4897+};
4898+var $elm$core$Platform$sendToApp = _Platform_sendToApp;
4899+var $elm$core$Task$spawnCmd = F2(
4900+ function (router, _v0) {
4901+ var task = _v0.a;
4902+ return _Scheduler_spawn(
4903+ A2(
4904+ $elm$core$Task$andThen,
4905+ $elm$core$Platform$sendToApp(router),
4906+ task));
4907+ });
4908+var $elm$core$Task$onEffects = F3(
4909+ function (router, commands, state) {
4910+ return A2(
4911+ $elm$core$Task$map,
4912+ function (_v0) {
4913+ return _Utils_Tuple0;
4914+ },
4915+ $elm$core$Task$sequence(
4916+ A2(
4917+ $elm$core$List$map,
4918+ $elm$core$Task$spawnCmd(router),
4919+ commands)));
4920+ });
4921+var $elm$core$Task$onSelfMsg = F3(
4922+ function (_v0, _v1, _v2) {
4923+ return $elm$core$Task$succeed(_Utils_Tuple0);
4924+ });
4925+var $elm$core$Task$cmdMap = F2(
4926+ function (tagger, _v0) {
4927+ var task = _v0.a;
4928+ return $elm$core$Task$Perform(
4929+ A2($elm$core$Task$map, tagger, task));
4930+ });
4931+_Platform_effectManagers['Task'] = _Platform_createManager($elm$core$Task$init, $elm$core$Task$onEffects, $elm$core$Task$onSelfMsg, $elm$core$Task$cmdMap);
4932+var $elm$core$Task$command = _Platform_leaf('Task');
4933+var $elm$core$Task$perform = F2(
4934+ function (toMessage, task) {
4935+ return $elm$core$Task$command(
4936+ $elm$core$Task$Perform(
4937+ A2($elm$core$Task$map, toMessage, task)));
4938+ });
4939+var $elm$core$Platform$Cmd$batch = _Platform_batch;
4940+var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil);
4941+var $elm$core$Platform$Sub$batch = _Platform_batch;
4942+var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil);
4943+var $lynxjs_elm$browser$Browser$sandbox = function (impl) {
4944+ return _Browser_element(
4945+ {
4946+ init: function (_v0) {
4947+ return _Utils_Tuple2(impl.init, $elm$core$Platform$Cmd$none);
4948+ },
4949+ subscriptions: function (_v1) {
4950+ return $elm$core$Platform$Sub$none;
4951+ },
4952+ update: F2(
4953+ function (msg, model) {
4954+ return _Utils_Tuple2(
4955+ A2(impl.update, msg, model),
4956+ $elm$core$Platform$Cmd$none);
4957+ }),
4958+ view: impl.view
4959+ });
4960+};
4961+var $author$project$Main$update = F2(
4962+ function (msg, model) {
4963+ if (msg.$ === 'Increment') {
4964+ return _Utils_update(
4965+ model,
4966+ {count: model.count + 1});
4967+ } else {
4968+ return _Utils_update(
4969+ model,
4970+ {count: model.count - 1});
4971+ }
4972+ });
4973+var $lynxjs_elm$ui$Lynx$Attributes$Center = {$: 'Center'};
4974+var $lynxjs_elm$ui$Lynx$Attributes$Column = {$: 'Column'};
4975+var $author$project$Main$Decrement = {$: 'Decrement'};
4976+var $author$project$Main$Increment = {$: 'Increment'};
4977+var $lynxjs_elm$ui$Lynx$Attributes$Row = {$: 'Row'};
4978+var $lynxjs_elm$ui$Lynx$Attributes$alignmentToString = function (a) {
4979+ switch (a.$) {
4980+ case 'Start':
4981+ return 'flex-start';
4982+ case 'Center':
4983+ return 'center';
4984+ case 'End':
4985+ return 'flex-end';
4986+ case 'SpaceBetween':
4987+ return 'space-between';
4988+ case 'SpaceAround':
4989+ return 'space-around';
4990+ case 'SpaceEvenly':
4991+ return 'space-evenly';
4992+ case 'Stretch':
4993+ return 'stretch';
4994+ default:
4995+ return 'baseline';
4996+ }
4997+};
4998+var $lynxjs_elm$virtual_dom$VirtualDom$style = _VirtualDom_style;
4999+var $lynxjs_elm$ui$Lynx$Attributes$style = $lynxjs_elm$virtual_dom$VirtualDom$style;
5000+var $lynxjs_elm$ui$Lynx$Attributes$alignItems = function (a) {
5001+ return A2(
5002+ $lynxjs_elm$ui$Lynx$Attributes$style,
5003+ 'alignItems',
5004+ $lynxjs_elm$ui$Lynx$Attributes$alignmentToString(a));
5005+};
5006+var $lynxjs_elm$ui$Lynx$Attributes$backgroundColor = $lynxjs_elm$ui$Lynx$Attributes$style('backgroundColor');
5007+var $lynxjs_elm$ui$Lynx$Attributes$pxStyle = F2(
5008+ function (key, val) {
5009+ return A2(
5010+ $lynxjs_elm$virtual_dom$VirtualDom$style,
5011+ key,
5012+ $elm$core$String$fromInt(val) + 'px');
5013+ });
5014+var $lynxjs_elm$ui$Lynx$Attributes$borderRadius = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('borderRadius');
5015+var $lynxjs_elm$ui$Lynx$Attributes$color = $lynxjs_elm$ui$Lynx$Attributes$style('color');
5016+var $lynxjs_elm$ui$Lynx$Attributes$fontSize = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('fontSize');
5017+var $lynxjs_elm$virtual_dom$VirtualDom$Normal = function (a) {
5018+ return {$: 'Normal', a: a};
5019+};
5020+var $lynxjs_elm$virtual_dom$VirtualDom$on = _VirtualDom_on;
5021+var $lynxjs_elm$ui$Lynx$Events$onTap = function (msg) {
5022+ return A2(
5023+ $lynxjs_elm$virtual_dom$VirtualDom$on,
5024+ 'tap',
5025+ $lynxjs_elm$virtual_dom$VirtualDom$Normal(
5026+ $elm$json$Json$Decode$succeed(msg)));
5027+};
5028+var $lynxjs_elm$ui$Lynx$Attributes$paddingBottom = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingBottom');
5029+var $lynxjs_elm$ui$Lynx$Attributes$paddingLeft = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingLeft');
5030+var $lynxjs_elm$ui$Lynx$Attributes$paddingRight = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingRight');
5031+var $lynxjs_elm$ui$Lynx$Attributes$paddingTop = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingTop');
5032+var $lynxjs_elm$virtual_dom$VirtualDom$node = function (tag) {
5033+ return _VirtualDom_node(
5034+ _VirtualDom_noScript(tag));
5035+};
5036+var $lynxjs_elm$ui$Lynx$text = $lynxjs_elm$virtual_dom$VirtualDom$node('text');
5037+var $lynxjs_elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
5038+var $lynxjs_elm$ui$Lynx$textContent = $lynxjs_elm$virtual_dom$VirtualDom$text;
5039+var $lynxjs_elm$ui$Lynx$view = $lynxjs_elm$virtual_dom$VirtualDom$node('view');
5040+var $author$project$Main$button = F2(
5041+ function (msg, label) {
5042+ return A2(
5043+ $lynxjs_elm$ui$Lynx$view,
5044+ _List_fromArray(
5045+ [
5046+ $lynxjs_elm$ui$Lynx$Events$onTap(msg),
5047+ $lynxjs_elm$ui$Lynx$Attributes$backgroundColor('#4a90d9'),
5048+ $lynxjs_elm$ui$Lynx$Attributes$borderRadius(8),
5049+ $lynxjs_elm$ui$Lynx$Attributes$paddingTop(12),
5050+ $lynxjs_elm$ui$Lynx$Attributes$paddingBottom(12),
5051+ $lynxjs_elm$ui$Lynx$Attributes$paddingLeft(24),
5052+ $lynxjs_elm$ui$Lynx$Attributes$paddingRight(24)
5053+ ]),
5054+ _List_fromArray(
5055+ [
5056+ A2(
5057+ $lynxjs_elm$ui$Lynx$text,
5058+ _List_fromArray(
5059+ [
5060+ $lynxjs_elm$ui$Lynx$Attributes$color('#ffffff'),
5061+ $lynxjs_elm$ui$Lynx$Attributes$fontSize(24)
5062+ ]),
5063+ _List_fromArray(
5064+ [
5065+ $lynxjs_elm$ui$Lynx$textContent(label)
5066+ ]))
5067+ ]));
5068+ });
5069+var $lynxjs_elm$ui$Lynx$Attributes$intStyle = F2(
5070+ function (key, val) {
5071+ return A2(
5072+ $lynxjs_elm$virtual_dom$VirtualDom$style,
5073+ key,
5074+ $elm$core$String$fromInt(val));
5075+ });
5076+var $lynxjs_elm$ui$Lynx$Attributes$flex = $lynxjs_elm$ui$Lynx$Attributes$intStyle('flex');
5077+var $lynxjs_elm$ui$Lynx$Attributes$flexDirection = function (d) {
5078+ return A2(
5079+ $lynxjs_elm$ui$Lynx$Attributes$style,
5080+ 'flexDirection',
5081+ function () {
5082+ switch (d.$) {
5083+ case 'Row':
5084+ return 'row';
5085+ case 'Column':
5086+ return 'column';
5087+ case 'RowReverse':
5088+ return 'row-reverse';
5089+ default:
5090+ return 'column-reverse';
5091+ }
5092+ }());
5093+};
5094+var $lynxjs_elm$ui$Lynx$Attributes$justifyContent = function (a) {
5095+ return A2(
5096+ $lynxjs_elm$ui$Lynx$Attributes$style,
5097+ 'justifyContent',
5098+ $lynxjs_elm$ui$Lynx$Attributes$alignmentToString(a));
5099+};
5100+var $lynxjs_elm$ui$Lynx$Attributes$marginLeft = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('marginLeft');
5101+var $lynxjs_elm$ui$Lynx$Attributes$marginRight = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('marginRight');
5102+var $author$project$Main$view = function (model) {
5103+ return A2(
5104+ $lynxjs_elm$ui$Lynx$view,
5105+ _List_fromArray(
5106+ [
5107+ $lynxjs_elm$ui$Lynx$Attributes$flexDirection($lynxjs_elm$ui$Lynx$Attributes$Column),
5108+ $lynxjs_elm$ui$Lynx$Attributes$alignItems($lynxjs_elm$ui$Lynx$Attributes$Center),
5109+ $lynxjs_elm$ui$Lynx$Attributes$justifyContent($lynxjs_elm$ui$Lynx$Attributes$Center),
5110+ $lynxjs_elm$ui$Lynx$Attributes$flex(1)
5111+ ]),
5112+ _List_fromArray(
5113+ [
5114+ A2(
5115+ $lynxjs_elm$ui$Lynx$view,
5116+ _List_fromArray(
5117+ [
5118+ $lynxjs_elm$ui$Lynx$Attributes$flexDirection($lynxjs_elm$ui$Lynx$Attributes$Row),
5119+ $lynxjs_elm$ui$Lynx$Attributes$alignItems($lynxjs_elm$ui$Lynx$Attributes$Center)
5120+ ]),
5121+ _List_fromArray(
5122+ [
5123+ A2($author$project$Main$button, $author$project$Main$Decrement, '-'),
5124+ A2(
5125+ $lynxjs_elm$ui$Lynx$text,
5126+ _List_fromArray(
5127+ [
5128+ $lynxjs_elm$ui$Lynx$Attributes$fontSize(32),
5129+ $lynxjs_elm$ui$Lynx$Attributes$marginLeft(20),
5130+ $lynxjs_elm$ui$Lynx$Attributes$marginRight(20)
5131+ ]),
5132+ _List_fromArray(
5133+ [
5134+ $lynxjs_elm$ui$Lynx$textContent(
5135+ $elm$core$String$fromInt(model.count))
5136+ ])),
5137+ A2($author$project$Main$button, $author$project$Main$Increment, '+')
5138+ ]))
5139+ ]));
5140+};
5141+var $author$project$Main$main = $lynxjs_elm$browser$Browser$sandbox(
5142+ {init: $author$project$Main$init, update: $author$project$Main$update, view: $author$project$Main$view});
5143+_Platform_export({'Main':{'init':$author$project$Main$main(
5144+ $elm$json$Json$Decode$succeed(_Utils_Tuple0))(0)}});}(globalThis));
examples/counter/elm.jsonnew file+24
@@ -0,0 +1,24 @@
1+{
2+ "type": "application",
3+ "source-directories": [
4+ "src"
5+ ],
6+ "elm-version": "0.19.1",
7+ "dependencies": {
8+ "direct": {
9+ "elm/core": "1.0.5",
10+ "elm/json": "1.1.3",
11+ "lynxjs-elm/browser": "1.0.0",
12+ "lynxjs-elm/ui": "1.0.0",
13+ "lynxjs-elm/virtual-dom": "1.0.0"
14+ },
15+ "indirect": {
16+ "elm/time": "1.0.0",
17+ "elm/url": "1.0.0"
18+ }
19+ },
20+ "test-dependencies": {
21+ "direct": {},
22+ "indirect": {}
23+ }
24+}
examples/counter/main.htmlnew file+5251
@@ -0,0 +1,5251 @@
1+<!DOCTYPE html>
2+<html>
3+<head>
4+<meta charset="UTF-8">
5+<meta name="viewport" content="width=device-width, initial-scale=1">
6+<title>LynxJS-Elm</title>
7+<style>
8+*, *::before, *::after { box-sizing: border-box; margin: 0; padding: 0; }
9+body { font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, sans-serif; }
10+</style>
11+</head>
12+<body>
13+<script>
14+
15+// LynxJS PAPI-to-DOM polyfill for browser preview
16+(function() {
17+ var eventMap = {
18+ 'tap': 'click',
19+ 'longpress': 'contextmenu',
20+ 'touchstart': 'touchstart',
21+ 'touchmove': 'touchmove',
22+ 'touchend': 'touchend',
23+ 'touchcancel': 'touchcancel',
24+ 'input': 'input'
25+ };
26+
27+ var g = typeof globalThis !== 'undefined' ? globalThis : window;
28+
29+ function makeEl(domTag, lynxTag) {
30+ var el = document.createElement(domTag);
31+ el.setAttribute('data-lynx-tag', lynxTag);
32+ return el;
33+ }
34+
35+ g.__CreatePage = function() {
36+ var page = document.createElement('div');
37+ page.id = 'lynx-page';
38+ document.body.appendChild(page);
39+ return page;
40+ };
41+
42+ g.__CreateView = function() { return makeEl('div', 'view'); };
43+ g.__CreateText = function() { return makeEl('span', 'text'); };
44+ g.__CreateImage = function() { return makeEl('img', 'image'); };
45+
46+ g.__CreateRawText = function(text) {
47+ var el = document.createElement('span');
48+ el.setAttribute('data-lynx-tag', 'raw-text');
49+ el.textContent = text;
50+ return el;
51+ };
52+
53+ g.__AppendElement = function(parent, child) {
54+ parent.appendChild(child);
55+ };
56+
57+ g.__RemoveElement = function(parent, child) {
58+ parent.removeChild(child);
59+ };
60+
61+ g.__ReplaceElement = function(parent, newEl, oldEl) {
62+ parent.replaceChild(newEl, oldEl);
63+ };
64+
65+ g.__InsertElementBefore = function(parent, child, ref) {
66+ parent.insertBefore(child, ref);
67+ };
68+
69+ g.__SetAttribute = function(el, key, value) {
70+ if (key === 'text') {
71+ el.textContent = value;
72+ } else if (key === 'src' && el.tagName === 'IMG') {
73+ el.src = value;
74+ } else {
75+ el.setAttribute(key, value);
76+ }
77+ };
78+
79+ g.__AddEvent = function(el, bindingName, eventName, handler) {
80+ var domEvent = eventMap[eventName] || eventName;
81+ var fn = typeof handler === 'function' ? handler : handler.value;
82+ el.addEventListener(domEvent, function(e) { fn(e); });
83+ };
84+
85+ g.__SetInlineStyles = function(el, styles) {
86+ Object.assign(el.style, styles);
87+ };
88+
89+ g.__GetChildren = function(el) {
90+ return Array.from(el.children);
91+ };
92+
93+ g.__GetParent = function(el) {
94+ return el.parentNode;
95+ };
96+
97+ g.__FlushElementTree = function() {};
98+
99+ // Set up root page so _Browser_newPage() finds it
100+ g.page = g.__CreatePage();
101+})();
102+
103+</script>
104+<script>
105+(function(scope){
106+'use strict';
107+
108+function F(arity, fun, wrapper) {
109+ wrapper.a = arity;
110+ wrapper.f = fun;
111+ return wrapper;
112+}
113+
114+function F2(fun) {
115+ return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
116+}
117+function F3(fun) {
118+ return F(3, fun, function(a) {
119+ return function(b) { return function(c) { return fun(a, b, c); }; };
120+ });
121+}
122+function F4(fun) {
123+ return F(4, fun, function(a) { return function(b) { return function(c) {
124+ return function(d) { return fun(a, b, c, d); }; }; };
125+ });
126+}
127+function F5(fun) {
128+ return F(5, fun, function(a) { return function(b) { return function(c) {
129+ return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
130+ });
131+}
132+function F6(fun) {
133+ return F(6, fun, function(a) { return function(b) { return function(c) {
134+ return function(d) { return function(e) { return function(f) {
135+ return fun(a, b, c, d, e, f); }; }; }; }; };
136+ });
137+}
138+function F7(fun) {
139+ return F(7, fun, function(a) { return function(b) { return function(c) {
140+ return function(d) { return function(e) { return function(f) {
141+ return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
142+ });
143+}
144+function F8(fun) {
145+ return F(8, fun, function(a) { return function(b) { return function(c) {
146+ return function(d) { return function(e) { return function(f) {
147+ return function(g) { return function(h) {
148+ return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
149+ });
150+}
151+function F9(fun) {
152+ return F(9, fun, function(a) { return function(b) { return function(c) {
153+ return function(d) { return function(e) { return function(f) {
154+ return function(g) { return function(h) { return function(i) {
155+ return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
156+ });
157+}
158+
159+function A2(fun, a, b) {
160+ return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
161+}
162+function A3(fun, a, b, c) {
163+ return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
164+}
165+function A4(fun, a, b, c, d) {
166+ return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
167+}
168+function A5(fun, a, b, c, d, e) {
169+ return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
170+}
171+function A6(fun, a, b, c, d, e, f) {
172+ return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
173+}
174+function A7(fun, a, b, c, d, e, f, g) {
175+ return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
176+}
177+function A8(fun, a, b, c, d, e, f, g, h) {
178+ return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
179+}
180+function A9(fun, a, b, c, d, e, f, g, h, i) {
181+ return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
182+}
183+
184+console.warn('Compiled in DEV mode. Follow the advice at https://elm-lang.org/0.19.1/optimize for better performance and smaller assets.');
185+
186+
187+var _JsArray_empty = [];
188+
189+function _JsArray_singleton(value)
190+{
191+ return [value];
192+}
193+
194+function _JsArray_length(array)
195+{
196+ return array.length;
197+}
198+
199+var _JsArray_initialize = F3(function(size, offset, func)
200+{
201+ var result = new Array(size);
202+
203+ for (var i = 0; i < size; i++)
204+ {
205+ result[i] = func(offset + i);
206+ }
207+
208+ return result;
209+});
210+
211+var _JsArray_initializeFromList = F2(function (max, ls)
212+{
213+ var result = new Array(max);
214+
215+ for (var i = 0; i < max && ls.b; i++)
216+ {
217+ result[i] = ls.a;
218+ ls = ls.b;
219+ }
220+
221+ result.length = i;
222+ return _Utils_Tuple2(result, ls);
223+});
224+
225+var _JsArray_unsafeGet = F2(function(index, array)
226+{
227+ return array[index];
228+});
229+
230+var _JsArray_unsafeSet = F3(function(index, value, array)
231+{
232+ var length = array.length;
233+ var result = new Array(length);
234+
235+ for (var i = 0; i < length; i++)
236+ {
237+ result[i] = array[i];
238+ }
239+
240+ result[index] = value;
241+ return result;
242+});
243+
244+var _JsArray_push = F2(function(value, array)
245+{
246+ var length = array.length;
247+ var result = new Array(length + 1);
248+
249+ for (var i = 0; i < length; i++)
250+ {
251+ result[i] = array[i];
252+ }
253+
254+ result[length] = value;
255+ return result;
256+});
257+
258+var _JsArray_foldl = F3(function(func, acc, array)
259+{
260+ var length = array.length;
261+
262+ for (var i = 0; i < length; i++)
263+ {
264+ acc = A2(func, array[i], acc);
265+ }
266+
267+ return acc;
268+});
269+
270+var _JsArray_foldr = F3(function(func, acc, array)
271+{
272+ for (var i = array.length - 1; i >= 0; i--)
273+ {
274+ acc = A2(func, array[i], acc);
275+ }
276+
277+ return acc;
278+});
279+
280+var _JsArray_map = F2(function(func, array)
281+{
282+ var length = array.length;
283+ var result = new Array(length);
284+
285+ for (var i = 0; i < length; i++)
286+ {
287+ result[i] = func(array[i]);
288+ }
289+
290+ return result;
291+});
292+
293+var _JsArray_indexedMap = F3(function(func, offset, array)
294+{
295+ var length = array.length;
296+ var result = new Array(length);
297+
298+ for (var i = 0; i < length; i++)
299+ {
300+ result[i] = A2(func, offset + i, array[i]);
301+ }
302+
303+ return result;
304+});
305+
306+var _JsArray_slice = F3(function(from, to, array)
307+{
308+ return array.slice(from, to);
309+});
310+
311+var _JsArray_appendN = F3(function(n, dest, source)
312+{
313+ var destLen = dest.length;
314+ var itemsToCopy = n - destLen;
315+
316+ if (itemsToCopy > source.length)
317+ {
318+ itemsToCopy = source.length;
319+ }
320+
321+ var size = destLen + itemsToCopy;
322+ var result = new Array(size);
323+
324+ for (var i = 0; i < destLen; i++)
325+ {
326+ result[i] = dest[i];
327+ }
328+
329+ for (var i = 0; i < itemsToCopy; i++)
330+ {
331+ result[i + destLen] = source[i];
332+ }
333+
334+ return result;
335+});
336+
337+
338+
339+// LOG
340+
341+
342+var _Debug_log = F2(function(tag, value)
343+{
344+ console.log(tag + ': ' + _Debug_toString(value));
345+ return value;
346+});
347+
348+
349+// TODOS
350+
351+function _Debug_todo(moduleName, region)
352+{
353+ return function(message) {
354+ _Debug_crash(8, moduleName, region, message);
355+ };
356+}
357+
358+function _Debug_todoCase(moduleName, region, value)
359+{
360+ return function(message) {
361+ _Debug_crash(9, moduleName, region, value, message);
362+ };
363+}
364+
365+
366+// TO STRING
367+
368+
369+function _Debug_toString(value)
370+{
371+ return _Debug_toAnsiString(false, value);
372+}
373+
374+function _Debug_toAnsiString(ansi, value)
375+{
376+ if (typeof value === 'function')
377+ {
378+ return _Debug_internalColor(ansi, '<function>');
379+ }
380+
381+ if (typeof value === 'boolean')
382+ {
383+ return _Debug_ctorColor(ansi, value ? 'True' : 'False');
384+ }
385+
386+ if (typeof value === 'number')
387+ {
388+ return _Debug_numberColor(ansi, value + '');
389+ }
390+
391+ if (value instanceof String)
392+ {
393+ return _Debug_charColor(ansi, "'" + _Debug_addSlashes(value, true) + "'");
394+ }
395+
396+ if (typeof value === 'string')
397+ {
398+ return _Debug_stringColor(ansi, '"' + _Debug_addSlashes(value, false) + '"');
399+ }
400+
401+ if (typeof value === 'object' && '$' in value)
402+ {
403+ var tag = value.$;
404+
405+ if (typeof tag === 'number')
406+ {
407+ return _Debug_internalColor(ansi, '<internals>');
408+ }
409+
410+ if (tag[0] === '#')
411+ {
412+ var output = [];
413+ for (var k in value)
414+ {
415+ if (k === '$') continue;
416+ output.push(_Debug_toAnsiString(ansi, value[k]));
417+ }
418+ return '(' + output.join(',') + ')';
419+ }
420+
421+ if (tag === 'Set_elm_builtin')
422+ {
423+ return _Debug_ctorColor(ansi, 'Set')
424+ + _Debug_fadeColor(ansi, '.fromList') + ' '
425+ + _Debug_toAnsiString(ansi, $elm$core$Set$toList(value));
426+ }
427+
428+ if (tag === 'RBNode_elm_builtin' || tag === 'RBEmpty_elm_builtin')
429+ {
430+ return _Debug_ctorColor(ansi, 'Dict')
431+ + _Debug_fadeColor(ansi, '.fromList') + ' '
432+ + _Debug_toAnsiString(ansi, $elm$core$Dict$toList(value));
433+ }
434+
435+ if (tag === 'Array_elm_builtin')
436+ {
437+ return _Debug_ctorColor(ansi, 'Array')
438+ + _Debug_fadeColor(ansi, '.fromList') + ' '
439+ + _Debug_toAnsiString(ansi, $elm$core$Array$toList(value));
440+ }
441+
442+ if (tag === '::' || tag === '[]')
443+ {
444+ var output = '[';
445+
446+ value.b && (output += _Debug_toAnsiString(ansi, value.a), value = value.b)
447+
448+ for (; value.b; value = value.b) // WHILE_CONS
449+ {
450+ output += ',' + _Debug_toAnsiString(ansi, value.a);
451+ }
452+ return output + ']';
453+ }
454+
455+ var output = '';
456+ for (var i in value)
457+ {
458+ if (i === '$') continue;
459+ var str = _Debug_toAnsiString(ansi, value[i]);
460+ var c0 = str[0];
461+ var parenless = c0 === '{' || c0 === '(' || c0 === '[' || c0 === '<' || c0 === '"' || str.indexOf(' ') < 0;
462+ output += ' ' + (parenless ? str : '(' + str + ')');
463+ }
464+ return _Debug_ctorColor(ansi, tag) + output;
465+ }
466+
467+ if (typeof DataView === 'function' && value instanceof DataView)
468+ {
469+ return _Debug_stringColor(ansi, '<' + value.byteLength + ' bytes>');
470+ }
471+
472+ if (typeof File !== 'undefined' && value instanceof File)
473+ {
474+ return _Debug_internalColor(ansi, '<' + value.name + '>');
475+ }
476+
477+ if (typeof value === 'object')
478+ {
479+ var output = [];
480+ for (var key in value)
481+ {
482+ var field = key[0] === '_' ? key.slice(1) : key;
483+ output.push(_Debug_fadeColor(ansi, field) + ' = ' + _Debug_toAnsiString(ansi, value[key]));
484+ }
485+ if (output.length === 0)
486+ {
487+ return '{}';
488+ }
489+ return '{ ' + output.join(', ') + ' }';
490+ }
491+
492+ return _Debug_internalColor(ansi, '<internals>');
493+}
494+
495+function _Debug_addSlashes(str, isChar)
496+{
497+ var s = str
498+ .replace(/\\/g, '\\\\')
499+ .replace(/\n/g, '\\n')
500+ .replace(/\t/g, '\\t')
501+ .replace(/\r/g, '\\r')
502+ .replace(/\v/g, '\\v')
503+ .replace(/\0/g, '\\0');
504+
505+ if (isChar)
506+ {
507+ return s.replace(/\'/g, '\\\'');
508+ }
509+ else
510+ {
511+ return s.replace(/\"/g, '\\"');
512+ }
513+}
514+
515+function _Debug_ctorColor(ansi, string)
516+{
517+ return ansi ? '\x1b[96m' + string + '\x1b[0m' : string;
518+}
519+
520+function _Debug_numberColor(ansi, string)
521+{
522+ return ansi ? '\x1b[95m' + string + '\x1b[0m' : string;
523+}
524+
525+function _Debug_stringColor(ansi, string)
526+{
527+ return ansi ? '\x1b[93m' + string + '\x1b[0m' : string;
528+}
529+
530+function _Debug_charColor(ansi, string)
531+{
532+ return ansi ? '\x1b[92m' + string + '\x1b[0m' : string;
533+}
534+
535+function _Debug_fadeColor(ansi, string)
536+{
537+ return ansi ? '\x1b[37m' + string + '\x1b[0m' : string;
538+}
539+
540+function _Debug_internalColor(ansi, string)
541+{
542+ return ansi ? '\x1b[36m' + string + '\x1b[0m' : string;
543+}
544+
545+function _Debug_toHexDigit(n)
546+{
547+ return String.fromCharCode(n < 10 ? 48 + n : 55 + n);
548+}
549+
550+
551+// CRASH
552+
553+
554+
555+
556+function _Debug_crash(identifier, fact1, fact2, fact3, fact4)
557+{
558+ switch(identifier)
559+ {
560+ case 0:
561+ throw new Error('What node should I take over? In JavaScript I need something like:\n\n Elm.Main.init({\n node: document.getElementById("elm-node")\n })\n\nYou need to do this with any Browser.sandbox or Browser.element program.');
562+
563+ case 1:
564+ throw new Error('Browser.application programs cannot handle URLs like this:\n\n ' + document.location.href + '\n\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.');
565+
566+ case 2:
567+ var jsonErrorString = fact1;
568+ throw new Error('Problem with the flags given to your Elm program on initialization.\n\n' + jsonErrorString);
569+
570+ case 3:
571+ var portName = fact1;
572+ throw new Error('There can only be one port named `' + portName + '`, but your program has multiple.');
573+
574+ case 4:
575+ var portName = fact1;
576+ var problem = fact2;
577+ throw new Error('Trying to send an unexpected type of value through port `' + portName + '`:\n' + problem);
578+
579+ case 5:
580+ throw new Error('Trying to use `(==)` on functions.\nThere is no way to know if functions are "the same" in the Elm sense.\nRead more about this at https://package.elm-lang.org/packages/elm/core/latest/Basics#== which describes why it is this way and what the better version will look like.');
581+
582+ case 6:
583+ var moduleName = fact1;
584+ throw new Error('Your page is loading multiple Elm scripts with a module named ' + moduleName + '. Maybe a duplicate script is getting loaded accidentally? If not, rename one of them so I know which is which!');
585+
586+ case 8:
587+ var moduleName = fact1;
588+ var region = fact2;
589+ var message = fact3;
590+ throw new Error('TODO in module `' + moduleName + '` ' + _Debug_regionToString(region) + '\n\n' + message);
591+
592+ case 9:
593+ var moduleName = fact1;
594+ var region = fact2;
595+ var value = fact3;
596+ var message = fact4;
597+ throw new Error(
598+ 'TODO in module `' + moduleName + '` from the `case` expression '
599+ + _Debug_regionToString(region) + '\n\nIt received the following value:\n\n '
600+ + _Debug_toString(value).replace('\n', '\n ')
601+ + '\n\nBut the branch that handles it says:\n\n ' + message.replace('\n', '\n ')
602+ );
603+
604+ case 10:
605+ throw new Error('Bug in https://github.com/elm/virtual-dom/issues');
606+
607+ case 11:
608+ throw new Error('Cannot perform mod 0. Division by zero error.');
609+ }
610+}
611+
612+function _Debug_regionToString(region)
613+{
614+ if (region.start.line === region.end.line)
615+ {
616+ return 'on line ' + region.start.line;
617+ }
618+ return 'on lines ' + region.start.line + ' through ' + region.end.line;
619+}
620+
621+
622+
623+// EQUALITY
624+
625+function _Utils_eq(x, y)
626+{
627+ for (
628+ var pair, stack = [], isEqual = _Utils_eqHelp(x, y, 0, stack);
629+ isEqual && (pair = stack.pop());
630+ isEqual = _Utils_eqHelp(pair.a, pair.b, 0, stack)
631+ )
632+ {}
633+
634+ return isEqual;
635+}
636+
637+function _Utils_eqHelp(x, y, depth, stack)
638+{
639+ if (x === y)
640+ {
641+ return true;
642+ }
643+
644+ if (typeof x !== 'object' || x === null || y === null)
645+ {
646+ typeof x === 'function' && _Debug_crash(5);
647+ return false;
648+ }
649+
650+ if (depth > 100)
651+ {
652+ stack.push(_Utils_Tuple2(x,y));
653+ return true;
654+ }
655+
656+ /**/
657+ if (x.$ === 'Set_elm_builtin')
658+ {
659+ x = $elm$core$Set$toList(x);
660+ y = $elm$core$Set$toList(y);
661+ }
662+ if (x.$ === 'RBNode_elm_builtin' || x.$ === 'RBEmpty_elm_builtin')
663+ {
664+ x = $elm$core$Dict$toList(x);
665+ y = $elm$core$Dict$toList(y);
666+ }
667+ //*/
668+
669+ /**_UNUSED/
670+ if (x.$ < 0)
671+ {
672+ x = $elm$core$Dict$toList(x);
673+ y = $elm$core$Dict$toList(y);
674+ }
675+ //*/
676+
677+ for (var key in x)
678+ {
679+ if (!_Utils_eqHelp(x[key], y[key], depth + 1, stack))
680+ {
681+ return false;
682+ }
683+ }
684+ return true;
685+}
686+
687+var _Utils_equal = F2(_Utils_eq);
688+var _Utils_notEqual = F2(function(a, b) { return !_Utils_eq(a,b); });
689+
690+
691+
692+// COMPARISONS
693+
694+// Code in Generate/JavaScript.hs, Basics.js, and List.js depends on
695+// the particular integer values assigned to LT, EQ, and GT.
696+
697+function _Utils_cmp(x, y, ord)
698+{
699+ if (typeof x !== 'object')
700+ {
701+ return x === y ? /*EQ*/ 0 : x < y ? /*LT*/ -1 : /*GT*/ 1;
702+ }
703+
704+ /**/
705+ if (x instanceof String)
706+ {
707+ var a = x.valueOf();
708+ var b = y.valueOf();
709+ return a === b ? 0 : a < b ? -1 : 1;
710+ }
711+ //*/
712+
713+ /**_UNUSED/
714+ if (typeof x.$ === 'undefined')
715+ //*/
716+ /**/
717+ if (x.$[0] === '#')
718+ //*/
719+ {
720+ return (ord = _Utils_cmp(x.a, y.a))
721+ ? ord
722+ : (ord = _Utils_cmp(x.b, y.b))
723+ ? ord
724+ : _Utils_cmp(x.c, y.c);
725+ }
726+
727+ // traverse conses until end of a list or a mismatch
728+ for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {} // WHILE_CONSES
729+ return ord || (x.b ? /*GT*/ 1 : y.b ? /*LT*/ -1 : /*EQ*/ 0);
730+}
731+
732+var _Utils_lt = F2(function(a, b) { return _Utils_cmp(a, b) < 0; });
733+var _Utils_le = F2(function(a, b) { return _Utils_cmp(a, b) < 1; });
734+var _Utils_gt = F2(function(a, b) { return _Utils_cmp(a, b) > 0; });
735+var _Utils_ge = F2(function(a, b) { return _Utils_cmp(a, b) >= 0; });
736+
737+var _Utils_compare = F2(function(x, y)
738+{
739+ var n = _Utils_cmp(x, y);
740+ return n < 0 ? $elm$core$Basics$LT : n ? $elm$core$Basics$GT : $elm$core$Basics$EQ;
741+});
742+
743+
744+// COMMON VALUES
745+
746+var _Utils_Tuple0 = { $: '#0' };
747+
748+function _Utils_Tuple2(a, b) { return { $: '#2', a: a, b: b }; }
749+
750+function _Utils_Tuple3(a, b, c) { return { $: '#3', a: a, b: b, c: c }; }
751+
752+function _Utils_chr(c) { return new String(c); }
753+
754+
755+// RECORDS
756+
757+function _Utils_update(oldRecord, updatedFields)
758+{
759+ var newRecord = {};
760+
761+ for (var key in oldRecord)
762+ {
763+ newRecord[key] = oldRecord[key];
764+ }
765+
766+ for (var key in updatedFields)
767+ {
768+ newRecord[key] = updatedFields[key];
769+ }
770+
771+ return newRecord;
772+}
773+
774+
775+// APPEND
776+
777+var _Utils_append = F2(_Utils_ap);
778+
779+function _Utils_ap(xs, ys)
780+{
781+ // append Strings
782+ if (typeof xs === 'string')
783+ {
784+ return xs + ys;
785+ }
786+
787+ // append Lists
788+ if (!xs.b)
789+ {
790+ return ys;
791+ }
792+ var root = _List_Cons(xs.a, ys);
793+ xs = xs.b
794+ for (var curr = root; xs.b; xs = xs.b) // WHILE_CONS
795+ {
796+ curr = curr.b = _List_Cons(xs.a, ys);
797+ }
798+ return root;
799+}
800+
801+
802+
803+var _List_Nil = { $: '[]' };
804+
805+function _List_Cons(hd, tl) { return { $: '::', a: hd, b: tl }; }
806+
807+
808+var _List_cons = F2(_List_Cons);
809+
810+function _List_fromArray(arr)
811+{
812+ var out = _List_Nil;
813+ for (var i = arr.length; i--; )
814+ {
815+ out = _List_Cons(arr[i], out);
816+ }
817+ return out;
818+}
819+
820+function _List_toArray(xs)
821+{
822+ for (var out = []; xs.b; xs = xs.b) // WHILE_CONS
823+ {
824+ out.push(xs.a);
825+ }
826+ return out;
827+}
828+
829+var _List_map2 = F3(function(f, xs, ys)
830+{
831+ for (var arr = []; xs.b && ys.b; xs = xs.b, ys = ys.b) // WHILE_CONSES
832+ {
833+ arr.push(A2(f, xs.a, ys.a));
834+ }
835+ return _List_fromArray(arr);
836+});
837+
838+var _List_map3 = F4(function(f, xs, ys, zs)
839+{
840+ for (var arr = []; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
841+ {
842+ arr.push(A3(f, xs.a, ys.a, zs.a));
843+ }
844+ return _List_fromArray(arr);
845+});
846+
847+var _List_map4 = F5(function(f, ws, xs, ys, zs)
848+{
849+ for (var arr = []; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
850+ {
851+ arr.push(A4(f, ws.a, xs.a, ys.a, zs.a));
852+ }
853+ return _List_fromArray(arr);
854+});
855+
856+var _List_map5 = F6(function(f, vs, ws, xs, ys, zs)
857+{
858+ for (var arr = []; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
859+ {
860+ arr.push(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a));
861+ }
862+ return _List_fromArray(arr);
863+});
864+
865+var _List_sortBy = F2(function(f, xs)
866+{
867+ return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
868+ return _Utils_cmp(f(a), f(b));
869+ }));
870+});
871+
872+var _List_sortWith = F2(function(f, xs)
873+{
874+ return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
875+ var ord = A2(f, a, b);
876+ return ord === $elm$core$Basics$EQ ? 0 : ord === $elm$core$Basics$LT ? -1 : 1;
877+ }));
878+});
879+
880+
881+
882+// MATH
883+
884+var _Basics_add = F2(function(a, b) { return a + b; });
885+var _Basics_sub = F2(function(a, b) { return a - b; });
886+var _Basics_mul = F2(function(a, b) { return a * b; });
887+var _Basics_fdiv = F2(function(a, b) { return a / b; });
888+var _Basics_idiv = F2(function(a, b) { return (a / b) | 0; });
889+var _Basics_pow = F2(Math.pow);
890+
891+var _Basics_remainderBy = F2(function(b, a) { return a % b; });
892+
893+// https://www.microsoft.com/en-us/research/wp-content/uploads/2016/02/divmodnote-letter.pdf
894+var _Basics_modBy = F2(function(modulus, x)
895+{
896+ var answer = x % modulus;
897+ return modulus === 0
898+ ? _Debug_crash(11)
899+ :
900+ ((answer > 0 && modulus < 0) || (answer < 0 && modulus > 0))
901+ ? answer + modulus
902+ : answer;
903+});
904+
905+
906+// TRIGONOMETRY
907+
908+var _Basics_pi = Math.PI;
909+var _Basics_e = Math.E;
910+var _Basics_cos = Math.cos;
911+var _Basics_sin = Math.sin;
912+var _Basics_tan = Math.tan;
913+var _Basics_acos = Math.acos;
914+var _Basics_asin = Math.asin;
915+var _Basics_atan = Math.atan;
916+var _Basics_atan2 = F2(Math.atan2);
917+
918+
919+// MORE MATH
920+
921+function _Basics_toFloat(x) { return x; }
922+function _Basics_truncate(n) { return n | 0; }
923+function _Basics_isInfinite(n) { return n === Infinity || n === -Infinity; }
924+
925+var _Basics_ceiling = Math.ceil;
926+var _Basics_floor = Math.floor;
927+var _Basics_round = Math.round;
928+var _Basics_sqrt = Math.sqrt;
929+var _Basics_log = Math.log;
930+var _Basics_isNaN = isNaN;
931+
932+
933+// BOOLEANS
934+
935+function _Basics_not(bool) { return !bool; }
936+var _Basics_and = F2(function(a, b) { return a && b; });
937+var _Basics_or = F2(function(a, b) { return a || b; });
938+var _Basics_xor = F2(function(a, b) { return a !== b; });
939+
940+
941+
942+var _String_cons = F2(function(chr, str)
943+{
944+ return chr + str;
945+});
946+
947+function _String_uncons(string)
948+{
949+ var word = string.charCodeAt(0);
950+ return !isNaN(word)
951+ ? $elm$core$Maybe$Just(
952+ 0xD800 <= word && word <= 0xDBFF
953+ ? _Utils_Tuple2(_Utils_chr(string[0] + string[1]), string.slice(2))
954+ : _Utils_Tuple2(_Utils_chr(string[0]), string.slice(1))
955+ )
956+ : $elm$core$Maybe$Nothing;
957+}
958+
959+var _String_append = F2(function(a, b)
960+{
961+ return a + b;
962+});
963+
964+function _String_length(str)
965+{
966+ return str.length;
967+}
968+
969+var _String_map = F2(function(func, string)
970+{
971+ var len = string.length;
972+ var array = new Array(len);
973+ var i = 0;
974+ while (i < len)
975+ {
976+ var word = string.charCodeAt(i);
977+ if (0xD800 <= word && word <= 0xDBFF)
978+ {
979+ array[i] = func(_Utils_chr(string[i] + string[i+1]));
980+ i += 2;
981+ continue;
982+ }
983+ array[i] = func(_Utils_chr(string[i]));
984+ i++;
985+ }
986+ return array.join('');
987+});
988+
989+var _String_filter = F2(function(isGood, str)
990+{
991+ var arr = [];
992+ var len = str.length;
993+ var i = 0;
994+ while (i < len)
995+ {
996+ var char = str[i];
997+ var word = str.charCodeAt(i);
998+ i++;
999+ if (0xD800 <= word && word <= 0xDBFF)
1000+ {
1001+ char += str[i];
1002+ i++;
1003+ }
1004+
1005+ if (isGood(_Utils_chr(char)))
1006+ {
1007+ arr.push(char);
1008+ }
1009+ }
1010+ return arr.join('');
1011+});
1012+
1013+function _String_reverse(str)
1014+{
1015+ var len = str.length;
1016+ var arr = new Array(len);
1017+ var i = 0;
1018+ while (i < len)
1019+ {
1020+ var word = str.charCodeAt(i);
1021+ if (0xD800 <= word && word <= 0xDBFF)
1022+ {
1023+ arr[len - i] = str[i + 1];
1024+ i++;
1025+ arr[len - i] = str[i - 1];
1026+ i++;
1027+ }
1028+ else
1029+ {
1030+ arr[len - i] = str[i];
1031+ i++;
1032+ }
1033+ }
1034+ return arr.join('');
1035+}
1036+
1037+var _String_foldl = F3(function(func, state, string)
1038+{
1039+ var len = string.length;
1040+ var i = 0;
1041+ while (i < len)
1042+ {
1043+ var char = string[i];
1044+ var word = string.charCodeAt(i);
1045+ i++;
1046+ if (0xD800 <= word && word <= 0xDBFF)
1047+ {
1048+ char += string[i];
1049+ i++;
1050+ }
1051+ state = A2(func, _Utils_chr(char), state);
1052+ }
1053+ return state;
1054+});
1055+
1056+var _String_foldr = F3(function(func, state, string)
1057+{
1058+ var i = string.length;
1059+ while (i--)
1060+ {
1061+ var char = string[i];
1062+ var word = string.charCodeAt(i);
1063+ if (0xDC00 <= word && word <= 0xDFFF)
1064+ {
1065+ i--;
1066+ char = string[i] + char;
1067+ }
1068+ state = A2(func, _Utils_chr(char), state);
1069+ }
1070+ return state;
1071+});
1072+
1073+var _String_split = F2(function(sep, str)
1074+{
1075+ return str.split(sep);
1076+});
1077+
1078+var _String_join = F2(function(sep, strs)
1079+{
1080+ return strs.join(sep);
1081+});
1082+
1083+var _String_slice = F3(function(start, end, str) {
1084+ return str.slice(start, end);
1085+});
1086+
1087+function _String_trim(str)
1088+{
1089+ return str.trim();
1090+}
1091+
1092+function _String_trimLeft(str)
1093+{
1094+ return str.replace(/^\s+/, '');
1095+}
1096+
1097+function _String_trimRight(str)
1098+{
1099+ return str.replace(/\s+$/, '');
1100+}
1101+
1102+function _String_words(str)
1103+{
1104+ return _List_fromArray(str.trim().split(/\s+/g));
1105+}
1106+
1107+function _String_lines(str)
1108+{
1109+ return _List_fromArray(str.split(/\r\n|\r|\n/g));
1110+}
1111+
1112+function _String_toUpper(str)
1113+{
1114+ return str.toUpperCase();
1115+}
1116+
1117+function _String_toLower(str)
1118+{
1119+ return str.toLowerCase();
1120+}
1121+
1122+var _String_any = F2(function(isGood, string)
1123+{
1124+ var i = string.length;
1125+ while (i--)
1126+ {
1127+ var char = string[i];
1128+ var word = string.charCodeAt(i);
1129+ if (0xDC00 <= word && word <= 0xDFFF)
1130+ {
1131+ i--;
1132+ char = string[i] + char;
1133+ }
1134+ if (isGood(_Utils_chr(char)))
1135+ {
1136+ return true;
1137+ }
1138+ }
1139+ return false;
1140+});
1141+
1142+var _String_all = F2(function(isGood, string)
1143+{
1144+ var i = string.length;
1145+ while (i--)
1146+ {
1147+ var char = string[i];
1148+ var word = string.charCodeAt(i);
1149+ if (0xDC00 <= word && word <= 0xDFFF)
1150+ {
1151+ i--;
1152+ char = string[i] + char;
1153+ }
1154+ if (!isGood(_Utils_chr(char)))
1155+ {
1156+ return false;
1157+ }
1158+ }
1159+ return true;
1160+});
1161+
1162+var _String_contains = F2(function(sub, str)
1163+{
1164+ return str.indexOf(sub) > -1;
1165+});
1166+
1167+var _String_startsWith = F2(function(sub, str)
1168+{
1169+ return str.indexOf(sub) === 0;
1170+});
1171+
1172+var _String_endsWith = F2(function(sub, str)
1173+{
1174+ return str.length >= sub.length &&
1175+ str.lastIndexOf(sub) === str.length - sub.length;
1176+});
1177+
1178+var _String_indexes = F2(function(sub, str)
1179+{
1180+ var subLen = sub.length;
1181+
1182+ if (subLen < 1)
1183+ {
1184+ return _List_Nil;
1185+ }
1186+
1187+ var i = 0;
1188+ var is = [];
1189+
1190+ while ((i = str.indexOf(sub, i)) > -1)
1191+ {
1192+ is.push(i);
1193+ i = i + subLen;
1194+ }
1195+
1196+ return _List_fromArray(is);
1197+});
1198+
1199+
1200+// TO STRING
1201+
1202+function _String_fromNumber(number)
1203+{
1204+ return number + '';
1205+}
1206+
1207+
1208+// INT CONVERSIONS
1209+
1210+function _String_toInt(str)
1211+{
1212+ var total = 0;
1213+ var code0 = str.charCodeAt(0);
1214+ var start = code0 == 0x2B /* + */ || code0 == 0x2D /* - */ ? 1 : 0;
1215+
1216+ for (var i = start; i < str.length; ++i)
1217+ {
1218+ var code = str.charCodeAt(i);
1219+ if (code < 0x30 || 0x39 < code)
1220+ {
1221+ return $elm$core$Maybe$Nothing;
1222+ }
1223+ total = 10 * total + code - 0x30;
1224+ }
1225+
1226+ return i == start
1227+ ? $elm$core$Maybe$Nothing
1228+ : $elm$core$Maybe$Just(code0 == 0x2D ? -total : total);
1229+}
1230+
1231+
1232+// FLOAT CONVERSIONS
1233+
1234+function _String_toFloat(s)
1235+{
1236+ // check if it is a hex, octal, or binary number
1237+ if (s.length === 0 || /[\sxbo]/.test(s))
1238+ {
1239+ return $elm$core$Maybe$Nothing;
1240+ }
1241+ var n = +s;
1242+ // faster isNaN check
1243+ return n === n ? $elm$core$Maybe$Just(n) : $elm$core$Maybe$Nothing;
1244+}
1245+
1246+function _String_fromList(chars)
1247+{
1248+ return _List_toArray(chars).join('');
1249+}
1250+
1251+
1252+
1253+
1254+function _Char_toCode(char)
1255+{
1256+ var code = char.charCodeAt(0);
1257+ if (0xD800 <= code && code <= 0xDBFF)
1258+ {
1259+ return (code - 0xD800) * 0x400 + char.charCodeAt(1) - 0xDC00 + 0x10000
1260+ }
1261+ return code;
1262+}
1263+
1264+function _Char_fromCode(code)
1265+{
1266+ return _Utils_chr(
1267+ (code < 0 || 0x10FFFF < code)
1268+ ? '\uFFFD'
1269+ :
1270+ (code <= 0xFFFF)
1271+ ? String.fromCharCode(code)
1272+ :
1273+ (code -= 0x10000,
1274+ String.fromCharCode(Math.floor(code / 0x400) + 0xD800, code % 0x400 + 0xDC00)
1275+ )
1276+ );
1277+}
1278+
1279+function _Char_toUpper(char)
1280+{
1281+ return _Utils_chr(char.toUpperCase());
1282+}
1283+
1284+function _Char_toLower(char)
1285+{
1286+ return _Utils_chr(char.toLowerCase());
1287+}
1288+
1289+function _Char_toLocaleUpper(char)
1290+{
1291+ return _Utils_chr(char.toLocaleUpperCase());
1292+}
1293+
1294+function _Char_toLocaleLower(char)
1295+{
1296+ return _Utils_chr(char.toLocaleLowerCase());
1297+}
1298+
1299+
1300+
1301+/**/
1302+function _Json_errorToString(error)
1303+{
1304+ return $elm$json$Json$Decode$errorToString(error);
1305+}
1306+//*/
1307+
1308+
1309+// CORE DECODERS
1310+
1311+function _Json_succeed(msg)
1312+{
1313+ return {
1314+ $: 0,
1315+ a: msg
1316+ };
1317+}
1318+
1319+function _Json_fail(msg)
1320+{
1321+ return {
1322+ $: 1,
1323+ a: msg
1324+ };
1325+}
1326+
1327+function _Json_decodePrim(decoder)
1328+{
1329+ return { $: 2, b: decoder };
1330+}
1331+
1332+var _Json_decodeInt = _Json_decodePrim(function(value) {
1333+ return (typeof value !== 'number')
1334+ ? _Json_expecting('an INT', value)
1335+ :
1336+ (-2147483647 < value && value < 2147483647 && (value | 0) === value)
1337+ ? $elm$core$Result$Ok(value)
1338+ :
1339+ (isFinite(value) && !(value % 1))
1340+ ? $elm$core$Result$Ok(value)
1341+ : _Json_expecting('an INT', value);
1342+});
1343+
1344+var _Json_decodeBool = _Json_decodePrim(function(value) {
1345+ return (typeof value === 'boolean')
1346+ ? $elm$core$Result$Ok(value)
1347+ : _Json_expecting('a BOOL', value);
1348+});
1349+
1350+var _Json_decodeFloat = _Json_decodePrim(function(value) {
1351+ return (typeof value === 'number')
1352+ ? $elm$core$Result$Ok(value)
1353+ : _Json_expecting('a FLOAT', value);
1354+});
1355+
1356+var _Json_decodeValue = _Json_decodePrim(function(value) {
1357+ return $elm$core$Result$Ok(_Json_wrap(value));
1358+});
1359+
1360+var _Json_decodeString = _Json_decodePrim(function(value) {
1361+ return (typeof value === 'string')
1362+ ? $elm$core$Result$Ok(value)
1363+ : (value instanceof String)
1364+ ? $elm$core$Result$Ok(value + '')
1365+ : _Json_expecting('a STRING', value);
1366+});
1367+
1368+function _Json_decodeList(decoder) { return { $: 3, b: decoder }; }
1369+function _Json_decodeArray(decoder) { return { $: 4, b: decoder }; }
1370+
1371+function _Json_decodeNull(value) { return { $: 5, c: value }; }
1372+
1373+var _Json_decodeField = F2(function(field, decoder)
1374+{
1375+ return {
1376+ $: 6,
1377+ d: field,
1378+ b: decoder
1379+ };
1380+});
1381+
1382+var _Json_decodeIndex = F2(function(index, decoder)
1383+{
1384+ return {
1385+ $: 7,
1386+ e: index,
1387+ b: decoder
1388+ };
1389+});
1390+
1391+function _Json_decodeKeyValuePairs(decoder)
1392+{
1393+ return {
1394+ $: 8,
1395+ b: decoder
1396+ };
1397+}
1398+
1399+function _Json_mapMany(f, decoders)
1400+{
1401+ return {
1402+ $: 9,
1403+ f: f,
1404+ g: decoders
1405+ };
1406+}
1407+
1408+var _Json_andThen = F2(function(callback, decoder)
1409+{
1410+ return {
1411+ $: 10,
1412+ b: decoder,
1413+ h: callback
1414+ };
1415+});
1416+
1417+function _Json_oneOf(decoders)
1418+{
1419+ return {
1420+ $: 11,
1421+ g: decoders
1422+ };
1423+}
1424+
1425+
1426+// DECODING OBJECTS
1427+
1428+var _Json_map1 = F2(function(f, d1)
1429+{
1430+ return _Json_mapMany(f, [d1]);
1431+});
1432+
1433+var _Json_map2 = F3(function(f, d1, d2)
1434+{
1435+ return _Json_mapMany(f, [d1, d2]);
1436+});
1437+
1438+var _Json_map3 = F4(function(f, d1, d2, d3)
1439+{
1440+ return _Json_mapMany(f, [d1, d2, d3]);
1441+});
1442+
1443+var _Json_map4 = F5(function(f, d1, d2, d3, d4)
1444+{
1445+ return _Json_mapMany(f, [d1, d2, d3, d4]);
1446+});
1447+
1448+var _Json_map5 = F6(function(f, d1, d2, d3, d4, d5)
1449+{
1450+ return _Json_mapMany(f, [d1, d2, d3, d4, d5]);
1451+});
1452+
1453+var _Json_map6 = F7(function(f, d1, d2, d3, d4, d5, d6)
1454+{
1455+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6]);
1456+});
1457+
1458+var _Json_map7 = F8(function(f, d1, d2, d3, d4, d5, d6, d7)
1459+{
1460+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7]);
1461+});
1462+
1463+var _Json_map8 = F9(function(f, d1, d2, d3, d4, d5, d6, d7, d8)
1464+{
1465+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7, d8]);
1466+});
1467+
1468+
1469+// DECODE
1470+
1471+var _Json_runOnString = F2(function(decoder, string)
1472+{
1473+ try
1474+ {
1475+ var value = JSON.parse(string);
1476+ return _Json_runHelp(decoder, value);
1477+ }
1478+ catch (e)
1479+ {
1480+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'This is not valid JSON! ' + e.message, _Json_wrap(string)));
1481+ }
1482+});
1483+
1484+var _Json_run = F2(function(decoder, value)
1485+{
1486+ return _Json_runHelp(decoder, _Json_unwrap(value));
1487+});
1488+
1489+function _Json_runHelp(decoder, value)
1490+{
1491+ switch (decoder.$)
1492+ {
1493+ case 2:
1494+ return decoder.b(value);
1495+
1496+ case 5:
1497+ return (value === null)
1498+ ? $elm$core$Result$Ok(decoder.c)
1499+ : _Json_expecting('null', value);
1500+
1501+ case 3:
1502+ if (!_Json_isArray(value))
1503+ {
1504+ return _Json_expecting('a LIST', value);
1505+ }
1506+ return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);
1507+
1508+ case 4:
1509+ if (!_Json_isArray(value))
1510+ {
1511+ return _Json_expecting('an ARRAY', value);
1512+ }
1513+ return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);
1514+
1515+ case 6:
1516+ var field = decoder.d;
1517+ if (typeof value !== 'object' || value === null || !(field in value))
1518+ {
1519+ return _Json_expecting('an OBJECT with a field named `' + field + '`', value);
1520+ }
1521+ var result = _Json_runHelp(decoder.b, value[field]);
1522+ return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, field, result.a));
1523+
1524+ case 7:
1525+ var index = decoder.e;
1526+ if (!_Json_isArray(value))
1527+ {
1528+ return _Json_expecting('an ARRAY', value);
1529+ }
1530+ if (index >= value.length)
1531+ {
1532+ return _Json_expecting('a LONGER array. Need index ' + index + ' but only see ' + value.length + ' entries', value);
1533+ }
1534+ var result = _Json_runHelp(decoder.b, value[index]);
1535+ return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, index, result.a));
1536+
1537+ case 8:
1538+ if (typeof value !== 'object' || value === null || _Json_isArray(value))
1539+ {
1540+ return _Json_expecting('an OBJECT', value);
1541+ }
1542+
1543+ var keyValuePairs = _List_Nil;
1544+ // TODO test perf of Object.keys and switch when support is good enough
1545+ for (var key in value)
1546+ {
1547+ if (value.hasOwnProperty(key))
1548+ {
1549+ var result = _Json_runHelp(decoder.b, value[key]);
1550+ if (!$elm$core$Result$isOk(result))
1551+ {
1552+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, key, result.a));
1553+ }
1554+ keyValuePairs = _List_Cons(_Utils_Tuple2(key, result.a), keyValuePairs);
1555+ }
1556+ }
1557+ return $elm$core$Result$Ok($elm$core$List$reverse(keyValuePairs));
1558+
1559+ case 9:
1560+ var answer = decoder.f;
1561+ var decoders = decoder.g;
1562+ for (var i = 0; i < decoders.length; i++)
1563+ {
1564+ var result = _Json_runHelp(decoders[i], value);
1565+ if (!$elm$core$Result$isOk(result))
1566+ {
1567+ return result;
1568+ }
1569+ answer = answer(result.a);
1570+ }
1571+ return $elm$core$Result$Ok(answer);
1572+
1573+ case 10:
1574+ var result = _Json_runHelp(decoder.b, value);
1575+ return (!$elm$core$Result$isOk(result))
1576+ ? result
1577+ : _Json_runHelp(decoder.h(result.a), value);
1578+
1579+ case 11:
1580+ var errors = _List_Nil;
1581+ for (var temp = decoder.g; temp.b; temp = temp.b) // WHILE_CONS
1582+ {
1583+ var result = _Json_runHelp(temp.a, value);
1584+ if ($elm$core$Result$isOk(result))
1585+ {
1586+ return result;
1587+ }
1588+ errors = _List_Cons(result.a, errors);
1589+ }
1590+ return $elm$core$Result$Err($elm$json$Json$Decode$OneOf($elm$core$List$reverse(errors)));
1591+
1592+ case 1:
1593+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, decoder.a, _Json_wrap(value)));
1594+
1595+ case 0:
1596+ return $elm$core$Result$Ok(decoder.a);
1597+ }
1598+}
1599+
1600+function _Json_runArrayDecoder(decoder, value, toElmValue)
1601+{
1602+ var len = value.length;
1603+ var array = new Array(len);
1604+ for (var i = 0; i < len; i++)
1605+ {
1606+ var result = _Json_runHelp(decoder, value[i]);
1607+ if (!$elm$core$Result$isOk(result))
1608+ {
1609+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, i, result.a));
1610+ }
1611+ array[i] = result.a;
1612+ }
1613+ return $elm$core$Result$Ok(toElmValue(array));
1614+}
1615+
1616+function _Json_isArray(value)
1617+{
1618+ return Array.isArray(value) || (typeof FileList !== 'undefined' && value instanceof FileList);
1619+}
1620+
1621+function _Json_toElmArray(array)
1622+{
1623+ return A2($elm$core$Array$initialize, array.length, function(i) { return array[i]; });
1624+}
1625+
1626+function _Json_expecting(type, value)
1627+{
1628+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'Expecting ' + type, _Json_wrap(value)));
1629+}
1630+
1631+
1632+// EQUALITY
1633+
1634+function _Json_equality(x, y)
1635+{
1636+ if (x === y)
1637+ {
1638+ return true;
1639+ }
1640+
1641+ if (x.$ !== y.$)
1642+ {
1643+ return false;
1644+ }
1645+
1646+ switch (x.$)
1647+ {
1648+ case 0:
1649+ case 1:
1650+ return x.a === y.a;
1651+
1652+ case 2:
1653+ return x.b === y.b;
1654+
1655+ case 5:
1656+ return x.c === y.c;
1657+
1658+ case 3:
1659+ case 4:
1660+ case 8:
1661+ return _Json_equality(x.b, y.b);
1662+
1663+ case 6:
1664+ return x.d === y.d && _Json_equality(x.b, y.b);
1665+
1666+ case 7:
1667+ return x.e === y.e && _Json_equality(x.b, y.b);
1668+
1669+ case 9:
1670+ return x.f === y.f && _Json_listEquality(x.g, y.g);
1671+
1672+ case 10:
1673+ return x.h === y.h && _Json_equality(x.b, y.b);
1674+
1675+ case 11:
1676+ return _Json_listEquality(x.g, y.g);
1677+ }
1678+}
1679+
1680+function _Json_listEquality(aDecoders, bDecoders)
1681+{
1682+ var len = aDecoders.length;
1683+ if (len !== bDecoders.length)
1684+ {
1685+ return false;
1686+ }
1687+ for (var i = 0; i < len; i++)
1688+ {
1689+ if (!_Json_equality(aDecoders[i], bDecoders[i]))
1690+ {
1691+ return false;
1692+ }
1693+ }
1694+ return true;
1695+}
1696+
1697+
1698+// ENCODE
1699+
1700+var _Json_encode = F2(function(indentLevel, value)
1701+{
1702+ return JSON.stringify(_Json_unwrap(value), null, indentLevel) + '';
1703+});
1704+
1705+function _Json_wrap(value) { return { $: 0, a: value }; }
1706+function _Json_unwrap(value) { return value.a; }
1707+
1708+
1709+function _Json_emptyArray() { return []; }
1710+function _Json_emptyObject() { return {}; }
1711+
1712+var _Json_addField = F3(function(key, value, object)
1713+{
1714+ object[key] = _Json_unwrap(value);
1715+ return object;
1716+});
1717+
1718+function _Json_addEntry(func)
1719+{
1720+ return F2(function(entry, array)
1721+ {
1722+ array.push(_Json_unwrap(func(entry)));
1723+ return array;
1724+ });
1725+}
1726+
1727+var _Json_encodeNull = _Json_wrap(null);
1728+
1729+
1730+
1731+// TASKS
1732+
1733+function _Scheduler_succeed(value)
1734+{
1735+ return {
1736+ $: 0,
1737+ a: value
1738+ };
1739+}
1740+
1741+function _Scheduler_fail(error)
1742+{
1743+ return {
1744+ $: 1,
1745+ a: error
1746+ };
1747+}
1748+
1749+function _Scheduler_binding(callback)
1750+{
1751+ return {
1752+ $: 2,
1753+ b: callback,
1754+ c: null
1755+ };
1756+}
1757+
1758+var _Scheduler_andThen = F2(function(callback, task)
1759+{
1760+ return {
1761+ $: 3,
1762+ b: callback,
1763+ d: task
1764+ };
1765+});
1766+
1767+var _Scheduler_onError = F2(function(callback, task)
1768+{
1769+ return {
1770+ $: 4,
1771+ b: callback,
1772+ d: task
1773+ };
1774+});
1775+
1776+function _Scheduler_receive(callback)
1777+{
1778+ return {
1779+ $: 5,
1780+ b: callback
1781+ };
1782+}
1783+
1784+
1785+// PROCESSES
1786+
1787+var _Scheduler_guid = 0;
1788+
1789+function _Scheduler_rawSpawn(task)
1790+{
1791+ var proc = {
1792+ $: 0,
1793+ e: _Scheduler_guid++,
1794+ f: task,
1795+ g: null,
1796+ h: []
1797+ };
1798+
1799+ _Scheduler_enqueue(proc);
1800+
1801+ return proc;
1802+}
1803+
1804+function _Scheduler_spawn(task)
1805+{
1806+ return _Scheduler_binding(function(callback) {
1807+ callback(_Scheduler_succeed(_Scheduler_rawSpawn(task)));
1808+ });
1809+}
1810+
1811+function _Scheduler_rawSend(proc, msg)
1812+{
1813+ proc.h.push(msg);
1814+ _Scheduler_enqueue(proc);
1815+}
1816+
1817+var _Scheduler_send = F2(function(proc, msg)
1818+{
1819+ return _Scheduler_binding(function(callback) {
1820+ _Scheduler_rawSend(proc, msg);
1821+ callback(_Scheduler_succeed(_Utils_Tuple0));
1822+ });
1823+});
1824+
1825+function _Scheduler_kill(proc)
1826+{
1827+ return _Scheduler_binding(function(callback) {
1828+ var task = proc.f;
1829+ if (task.$ === 2 && task.c)
1830+ {
1831+ task.c();
1832+ }
1833+
1834+ proc.f = null;
1835+
1836+ callback(_Scheduler_succeed(_Utils_Tuple0));
1837+ });
1838+}
1839+
1840+
1841+/* STEP PROCESSES
1842+
1843+type alias Process =
1844+ { $ : tag
1845+ , id : unique_id
1846+ , root : Task
1847+ , stack : null | { $: SUCCEED | FAIL, a: callback, b: stack }
1848+ , mailbox : [msg]
1849+ }
1850+
1851+*/
1852+
1853+
1854+var _Scheduler_working = false;
1855+var _Scheduler_queue = [];
1856+
1857+
1858+function _Scheduler_enqueue(proc)
1859+{
1860+ _Scheduler_queue.push(proc);
1861+ if (_Scheduler_working)
1862+ {
1863+ return;
1864+ }
1865+ _Scheduler_working = true;
1866+ while (proc = _Scheduler_queue.shift())
1867+ {
1868+ _Scheduler_step(proc);
1869+ }
1870+ _Scheduler_working = false;
1871+}
1872+
1873+
1874+function _Scheduler_step(proc)
1875+{
1876+ while (proc.f)
1877+ {
1878+ var rootTag = proc.f.$;
1879+ if (rootTag === 0 || rootTag === 1)
1880+ {
1881+ while (proc.g && proc.g.$ !== rootTag)
1882+ {
1883+ proc.g = proc.g.i;
1884+ }
1885+ if (!proc.g)
1886+ {
1887+ return;
1888+ }
1889+ proc.f = proc.g.b(proc.f.a);
1890+ proc.g = proc.g.i;
1891+ }
1892+ else if (rootTag === 2)
1893+ {
1894+ proc.f.c = proc.f.b(function(newRoot) {
1895+ proc.f = newRoot;
1896+ _Scheduler_enqueue(proc);
1897+ });
1898+ return;
1899+ }
1900+ else if (rootTag === 5)
1901+ {
1902+ if (proc.h.length === 0)
1903+ {
1904+ return;
1905+ }
1906+ proc.f = proc.f.b(proc.h.shift());
1907+ }
1908+ else // if (rootTag === 3 || rootTag === 4)
1909+ {
1910+ proc.g = {
1911+ $: rootTag === 3 ? 0 : 1,
1912+ b: proc.f.b,
1913+ i: proc.g
1914+ };
1915+ proc.f = proc.f.d;
1916+ }
1917+ }
1918+}
1919+
1920+
1921+
1922+function _Process_sleep(time)
1923+{
1924+ return _Scheduler_binding(function(callback) {
1925+ var id = setTimeout(function() {
1926+ callback(_Scheduler_succeed(_Utils_Tuple0));
1927+ }, time);
1928+
1929+ return function() { clearTimeout(id); };
1930+ });
1931+}
1932+
1933+
1934+
1935+
1936+// PROGRAMS
1937+
1938+
1939+var _Platform_worker = F4(function(impl, flagDecoder, debugMetadata, args)
1940+{
1941+ return _Platform_initialize(
1942+ flagDecoder,
1943+ args,
1944+ impl.init,
1945+ impl.update,
1946+ impl.subscriptions,
1947+ function() { return function() {} }
1948+ );
1949+});
1950+
1951+
1952+
1953+// INITIALIZE A PROGRAM
1954+
1955+
1956+function _Platform_initialize(flagDecoder, args, init, update, subscriptions, stepperBuilder)
1957+{
1958+ var result = A2(_Json_run, flagDecoder, _Json_wrap(args ? args['flags'] : undefined));
1959+ $elm$core$Result$isOk(result) || _Debug_crash(2 /**/, _Json_errorToString(result.a) /**/);
1960+ var managers = {};
1961+ var initPair = init(result.a);
1962+ var model = initPair.a;
1963+ var stepper = stepperBuilder(sendToApp, model);
1964+ var ports = _Platform_setupEffects(managers, sendToApp);
1965+
1966+ function sendToApp(msg, viewMetadata)
1967+ {
1968+ var pair = A2(update, msg, model);
1969+ stepper(model = pair.a, viewMetadata);
1970+ _Platform_enqueueEffects(managers, pair.b, subscriptions(model));
1971+ }
1972+
1973+ _Platform_enqueueEffects(managers, initPair.b, subscriptions(model));
1974+
1975+ return ports ? { ports: ports } : {};
1976+}
1977+
1978+
1979+
1980+// TRACK PRELOADS
1981+//
1982+// This is used by code in elm/browser and elm/http
1983+// to register any HTTP requests that are triggered by init.
1984+//
1985+
1986+
1987+var _Platform_preload;
1988+
1989+
1990+function _Platform_registerPreload(url)
1991+{
1992+ _Platform_preload.add(url);
1993+}
1994+
1995+
1996+
1997+// EFFECT MANAGERS
1998+
1999+
2000+var _Platform_effectManagers = {};
2001+
2002+
2003+function _Platform_setupEffects(managers, sendToApp)
2004+{
2005+ var ports;
2006+
2007+ // setup all necessary effect managers
2008+ for (var key in _Platform_effectManagers)
2009+ {
2010+ var manager = _Platform_effectManagers[key];
2011+
2012+ if (manager.a)
2013+ {
2014+ ports = ports || {};
2015+ ports[key] = manager.a(key, sendToApp);
2016+ }
2017+
2018+ managers[key] = _Platform_instantiateManager(manager, sendToApp);
2019+ }
2020+
2021+ return ports;
2022+}
2023+
2024+
2025+function _Platform_createManager(init, onEffects, onSelfMsg, cmdMap, subMap)
2026+{
2027+ return {
2028+ b: init,
2029+ c: onEffects,
2030+ d: onSelfMsg,
2031+ e: cmdMap,
2032+ f: subMap
2033+ };
2034+}
2035+
2036+
2037+function _Platform_instantiateManager(info, sendToApp)
2038+{
2039+ var router = {
2040+ g: sendToApp,
2041+ h: undefined
2042+ };
2043+
2044+ var onEffects = info.c;
2045+ var onSelfMsg = info.d;
2046+ var cmdMap = info.e;
2047+ var subMap = info.f;
2048+
2049+ function loop(state)
2050+ {
2051+ return A2(_Scheduler_andThen, loop, _Scheduler_receive(function(msg)
2052+ {
2053+ var value = msg.a;
2054+
2055+ if (msg.$ === 0)
2056+ {
2057+ return A3(onSelfMsg, router, value, state);
2058+ }
2059+
2060+ return cmdMap && subMap
2061+ ? A4(onEffects, router, value.i, value.j, state)
2062+ : A3(onEffects, router, cmdMap ? value.i : value.j, state);
2063+ }));
2064+ }
2065+
2066+ return router.h = _Scheduler_rawSpawn(A2(_Scheduler_andThen, loop, info.b));
2067+}
2068+
2069+
2070+
2071+// ROUTING
2072+
2073+
2074+var _Platform_sendToApp = F2(function(router, msg)
2075+{
2076+ return _Scheduler_binding(function(callback)
2077+ {
2078+ router.g(msg);
2079+ callback(_Scheduler_succeed(_Utils_Tuple0));
2080+ });
2081+});
2082+
2083+
2084+var _Platform_sendToSelf = F2(function(router, msg)
2085+{
2086+ return A2(_Scheduler_send, router.h, {
2087+ $: 0,
2088+ a: msg
2089+ });
2090+});
2091+
2092+
2093+
2094+// BAGS
2095+
2096+
2097+function _Platform_leaf(home)
2098+{
2099+ return function(value)
2100+ {
2101+ return {
2102+ $: 1,
2103+ k: home,
2104+ l: value
2105+ };
2106+ };
2107+}
2108+
2109+
2110+function _Platform_batch(list)
2111+{
2112+ return {
2113+ $: 2,
2114+ m: list
2115+ };
2116+}
2117+
2118+
2119+var _Platform_map = F2(function(tagger, bag)
2120+{
2121+ return {
2122+ $: 3,
2123+ n: tagger,
2124+ o: bag
2125+ }
2126+});
2127+
2128+
2129+
2130+// PIPE BAGS INTO EFFECT MANAGERS
2131+//
2132+// Effects must be queued!
2133+//
2134+// Say your init contains a synchronous command, like Time.now or Time.here
2135+//
2136+// - This will produce a batch of effects (FX_1)
2137+// - The synchronous task triggers the subsequent `update` call
2138+// - This will produce a batch of effects (FX_2)
2139+//
2140+// If we just start dispatching FX_2, subscriptions from FX_2 can be processed
2141+// before subscriptions from FX_1. No good! Earlier versions of this code had
2142+// this problem, leading to these reports:
2143+//
2144+// https://github.com/elm/core/issues/980
2145+// https://github.com/elm/core/pull/981
2146+// https://github.com/elm/compiler/issues/1776
2147+//
2148+// The queue is necessary to avoid ordering issues for synchronous commands.
2149+
2150+
2151+// Why use true/false here? Why not just check the length of the queue?
2152+// The goal is to detect "are we currently dispatching effects?" If we
2153+// are, we need to bail and let the ongoing while loop handle things.
2154+//
2155+// Now say the queue has 1 element. When we dequeue the final element,
2156+// the queue will be empty, but we are still actively dispatching effects.
2157+// So you could get queue jumping in a really tricky category of cases.
2158+//
2159+var _Platform_effectsQueue = [];
2160+var _Platform_effectsActive = false;
2161+
2162+
2163+function _Platform_enqueueEffects(managers, cmdBag, subBag)
2164+{
2165+ _Platform_effectsQueue.push({ p: managers, q: cmdBag, r: subBag });
2166+
2167+ if (_Platform_effectsActive) return;
2168+
2169+ _Platform_effectsActive = true;
2170+ for (var fx; fx = _Platform_effectsQueue.shift(); )
2171+ {
2172+ _Platform_dispatchEffects(fx.p, fx.q, fx.r);
2173+ }
2174+ _Platform_effectsActive = false;
2175+}
2176+
2177+
2178+function _Platform_dispatchEffects(managers, cmdBag, subBag)
2179+{
2180+ var effectsDict = {};
2181+ _Platform_gatherEffects(true, cmdBag, effectsDict, null);
2182+ _Platform_gatherEffects(false, subBag, effectsDict, null);
2183+
2184+ for (var home in managers)
2185+ {
2186+ _Scheduler_rawSend(managers[home], {
2187+ $: 'fx',
2188+ a: effectsDict[home] || { i: _List_Nil, j: _List_Nil }
2189+ });
2190+ }
2191+}
2192+
2193+
2194+function _Platform_gatherEffects(isCmd, bag, effectsDict, taggers)
2195+{
2196+ switch (bag.$)
2197+ {
2198+ case 1:
2199+ var home = bag.k;
2200+ var effect = _Platform_toEffect(isCmd, home, taggers, bag.l);
2201+ effectsDict[home] = _Platform_insert(isCmd, effect, effectsDict[home]);
2202+ return;
2203+
2204+ case 2:
2205+ for (var list = bag.m; list.b; list = list.b) // WHILE_CONS
2206+ {
2207+ _Platform_gatherEffects(isCmd, list.a, effectsDict, taggers);
2208+ }
2209+ return;
2210+
2211+ case 3:
2212+ _Platform_gatherEffects(isCmd, bag.o, effectsDict, {
2213+ s: bag.n,
2214+ t: taggers
2215+ });
2216+ return;
2217+ }
2218+}
2219+
2220+
2221+function _Platform_toEffect(isCmd, home, taggers, value)
2222+{
2223+ function applyTaggers(x)
2224+ {
2225+ for (var temp = taggers; temp; temp = temp.t)
2226+ {
2227+ x = temp.s(x);
2228+ }
2229+ return x;
2230+ }
2231+
2232+ var map = isCmd
2233+ ? _Platform_effectManagers[home].e
2234+ : _Platform_effectManagers[home].f;
2235+
2236+ return A2(map, applyTaggers, value)
2237+}
2238+
2239+
2240+function _Platform_insert(isCmd, newEffect, effects)
2241+{
2242+ effects = effects || { i: _List_Nil, j: _List_Nil };
2243+
2244+ isCmd
2245+ ? (effects.i = _List_Cons(newEffect, effects.i))
2246+ : (effects.j = _List_Cons(newEffect, effects.j));
2247+
2248+ return effects;
2249+}
2250+
2251+
2252+
2253+// PORTS
2254+
2255+
2256+function _Platform_checkPortName(name)
2257+{
2258+ if (_Platform_effectManagers[name])
2259+ {
2260+ _Debug_crash(3, name)
2261+ }
2262+}
2263+
2264+
2265+
2266+// OUTGOING PORTS
2267+
2268+
2269+function _Platform_outgoingPort(name, converter)
2270+{
2271+ _Platform_checkPortName(name);
2272+ _Platform_effectManagers[name] = {
2273+ e: _Platform_outgoingPortMap,
2274+ u: converter,
2275+ a: _Platform_setupOutgoingPort
2276+ };
2277+ return _Platform_leaf(name);
2278+}
2279+
2280+
2281+var _Platform_outgoingPortMap = F2(function(tagger, value) { return value; });
2282+
2283+
2284+function _Platform_setupOutgoingPort(name)
2285+{
2286+ var subs = [];
2287+ var converter = _Platform_effectManagers[name].u;
2288+
2289+ // CREATE MANAGER
2290+
2291+ var init = _Process_sleep(0);
2292+
2293+ _Platform_effectManagers[name].b = init;
2294+ _Platform_effectManagers[name].c = F3(function(router, cmdList, state)
2295+ {
2296+ for ( ; cmdList.b; cmdList = cmdList.b) // WHILE_CONS
2297+ {
2298+ // grab a separate reference to subs in case unsubscribe is called
2299+ var currentSubs = subs;
2300+ var value = _Json_unwrap(converter(cmdList.a));
2301+ for (var i = 0; i < currentSubs.length; i++)
2302+ {
2303+ currentSubs[i](value);
2304+ }
2305+ }
2306+ return init;
2307+ });
2308+
2309+ // PUBLIC API
2310+
2311+ function subscribe(callback)
2312+ {
2313+ subs.push(callback);
2314+ }
2315+
2316+ function unsubscribe(callback)
2317+ {
2318+ // copy subs into a new array in case unsubscribe is called within a
2319+ // subscribed callback
2320+ subs = subs.slice();
2321+ var index = subs.indexOf(callback);
2322+ if (index >= 0)
2323+ {
2324+ subs.splice(index, 1);
2325+ }
2326+ }
2327+
2328+ return {
2329+ subscribe: subscribe,
2330+ unsubscribe: unsubscribe
2331+ };
2332+}
2333+
2334+
2335+
2336+// INCOMING PORTS
2337+
2338+
2339+function _Platform_incomingPort(name, converter)
2340+{
2341+ _Platform_checkPortName(name);
2342+ _Platform_effectManagers[name] = {
2343+ f: _Platform_incomingPortMap,
2344+ u: converter,
2345+ a: _Platform_setupIncomingPort
2346+ };
2347+ return _Platform_leaf(name);
2348+}
2349+
2350+
2351+var _Platform_incomingPortMap = F2(function(tagger, finalTagger)
2352+{
2353+ return function(value)
2354+ {
2355+ return tagger(finalTagger(value));
2356+ };
2357+});
2358+
2359+
2360+function _Platform_setupIncomingPort(name, sendToApp)
2361+{
2362+ var subs = _List_Nil;
2363+ var converter = _Platform_effectManagers[name].u;
2364+
2365+ // CREATE MANAGER
2366+
2367+ var init = _Scheduler_succeed(null);
2368+
2369+ _Platform_effectManagers[name].b = init;
2370+ _Platform_effectManagers[name].c = F3(function(router, subList, state)
2371+ {
2372+ subs = subList;
2373+ return init;
2374+ });
2375+
2376+ // PUBLIC API
2377+
2378+ function send(incomingValue)
2379+ {
2380+ var result = A2(_Json_run, converter, _Json_wrap(incomingValue));
2381+
2382+ $elm$core$Result$isOk(result) || _Debug_crash(4, name, result.a);
2383+
2384+ var value = result.a;
2385+ for (var temp = subs; temp.b; temp = temp.b) // WHILE_CONS
2386+ {
2387+ sendToApp(temp.a(value));
2388+ }
2389+ }
2390+
2391+ return { send: send };
2392+}
2393+
2394+
2395+
2396+// EXPORT ELM MODULES
2397+//
2398+// Have DEBUG and PROD versions so that we can (1) give nicer errors in
2399+// debug mode and (2) not pay for the bits needed for that in prod mode.
2400+//
2401+
2402+
2403+
2404+
2405+function _Platform_mergeExportsProd(obj, exports)
2406+{
2407+ for (var name in exports)
2408+ {
2409+ (name in obj)
2410+ ? (name == 'init')
2411+ ? _Debug_crash(6)
2412+ : _Platform_mergeExportsProd(obj[name], exports[name])
2413+ : (obj[name] = exports[name]);
2414+ }
2415+}
2416+
2417+
2418+function _Platform_export(exports)
2419+{
2420+ scope['Elm']
2421+ ? _Platform_mergeExportsDebug('Elm', scope['Elm'], exports)
2422+ : scope['Elm'] = exports;
2423+}
2424+
2425+
2426+function _Platform_mergeExportsDebug(moduleName, obj, exports)
2427+{
2428+ for (var name in exports)
2429+ {
2430+ (name in obj)
2431+ ? (name == 'init')
2432+ ? _Debug_crash(6, moduleName)
2433+ : _Platform_mergeExportsDebug(moduleName + '.' + name, obj[name], exports[name])
2434+ : (obj[name] = exports[name]);
2435+ }
2436+}
2437+
2438+
2439+
2440+var _Lynx_g = (typeof globalThis !== 'undefined' ? globalThis : scope);
2441+function _Lynx_papi(name) { return _Lynx_g['_' + '_' + name] || function() {}; }
2442+var _Lynx_createViewFn = _Lynx_papi('CreateView');
2443+var _Lynx_createTextFn = _Lynx_papi('CreateText');
2444+var _Lynx_createImageFn = _Lynx_papi('CreateImage');
2445+function _Lynx_createElement(tag) {
2446+ var pId = (_Lynx_g['native'] && _Lynx_g['native']['currentPageId']) || 0;
2447+ return (tag === 'text' ? _Lynx_createTextFn
2448+ : tag === 'image' ? _Lynx_createImageFn
2449+ : _Lynx_createViewFn)(pId);
2450+}
2451+var _Lynx_createRawText = _Lynx_papi('CreateRawText');
2452+var _Lynx_appendChild = _Lynx_papi('AppendElement');
2453+var _Lynx_removeElement = _Lynx_papi('RemoveElement');
2454+var _Lynx_replaceElement = _Lynx_papi('ReplaceElement');
2455+var _Lynx_insertBefore = _Lynx_papi('InsertElementBefore');
2456+var _Lynx_setAttribute = _Lynx_papi('SetAttribute');
2457+var _Lynx_getChildren = _Lynx_papi('GetChildren');
2458+var _Lynx_getParent = _Lynx_papi('GetParent');
2459+var _Lynx_addEvent = _Lynx_papi('AddEvent');
2460+var _Lynx_setInlineStyles = _Lynx_papi('SetInlineStyles');
2461+var _VirtualDom_elementMeta = new WeakMap();
2462+function _VirtualDom_getMeta(el) {
2463+ var meta = _VirtualDom_elementMeta.get(el);
2464+ if (!meta) { meta = {}; _VirtualDom_elementMeta.set(el, meta); }
2465+ return meta;
2466+}
2467+
2468+
2469+// HELPERS
2470+
2471+
2472+
2473+
2474+
2475+function _VirtualDom_appendChild(parent, child)
2476+{
2477+ _Lynx_appendChild(parent, child);
2478+}
2479+
2480+var _VirtualDom_init = F4(function(virtualNode, flagDecoder, debugMetadata, args)
2481+{
2482+ // NOTE: this function needs _Platform_export available to work
2483+ var rootPage = args['node'] || _Lynx_g['page'];
2484+ var tree = _VirtualDom_render(virtualNode, function() {});
2485+ _Lynx_appendChild(rootPage, tree);
2486+ return {};
2487+});
2488+
2489+
2490+
2491+// TEXT
2492+
2493+
2494+function _VirtualDom_text(string)
2495+{
2496+ return {
2497+ $: 0,
2498+ a: string
2499+ };
2500+}
2501+
2502+
2503+
2504+// NODE
2505+
2506+
2507+var _VirtualDom_nodeNS = F2(function(namespace, tag)
2508+{
2509+ return F2(function(factList, kidList)
2510+ {
2511+ for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
2512+ {
2513+ var kid = kidList.a;
2514+ descendantsCount += (kid.b || 0);
2515+ kids.push(kid);
2516+ }
2517+ descendantsCount += kids.length;
2518+
2519+ return {
2520+ $: 1,
2521+ c: tag,
2522+ d: _VirtualDom_organizeFacts(factList),
2523+ e: kids,
2524+ f: namespace,
2525+ b: descendantsCount
2526+ };
2527+ });
2528+});
2529+
2530+
2531+var _VirtualDom_node = _VirtualDom_nodeNS(undefined);
2532+
2533+
2534+
2535+// KEYED NODE
2536+
2537+
2538+var _VirtualDom_keyedNodeNS = F2(function(namespace, tag)
2539+{
2540+ return F2(function(factList, kidList)
2541+ {
2542+ for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
2543+ {
2544+ var kid = kidList.a;
2545+ descendantsCount += (kid.b.b || 0);
2546+ kids.push(kid);
2547+ }
2548+ descendantsCount += kids.length;
2549+
2550+ return {
2551+ $: 2,
2552+ c: tag,
2553+ d: _VirtualDom_organizeFacts(factList),
2554+ e: kids,
2555+ f: namespace,
2556+ b: descendantsCount
2557+ };
2558+ });
2559+});
2560+
2561+
2562+var _VirtualDom_keyedNode = _VirtualDom_keyedNodeNS(undefined);
2563+
2564+
2565+
2566+// CUSTOM
2567+
2568+
2569+function _VirtualDom_custom(factList, model, render, diff)
2570+{
2571+ return {
2572+ $: 3,
2573+ d: _VirtualDom_organizeFacts(factList),
2574+ g: model,
2575+ h: render,
2576+ i: diff
2577+ };
2578+}
2579+
2580+
2581+
2582+// MAP
2583+
2584+
2585+var _VirtualDom_map = F2(function(tagger, node)
2586+{
2587+ return {
2588+ $: 4,
2589+ j: tagger,
2590+ k: node,
2591+ b: 1 + (node.b || 0)
2592+ };
2593+});
2594+
2595+
2596+
2597+// LAZY
2598+
2599+
2600+function _VirtualDom_thunk(refs, thunk)
2601+{
2602+ return {
2603+ $: 5,
2604+ l: refs,
2605+ m: thunk,
2606+ k: undefined
2607+ };
2608+}
2609+
2610+var _VirtualDom_lazy = F2(function(func, a)
2611+{
2612+ return _VirtualDom_thunk([func, a], function() {
2613+ return func(a);
2614+ });
2615+});
2616+
2617+var _VirtualDom_lazy2 = F3(function(func, a, b)
2618+{
2619+ return _VirtualDom_thunk([func, a, b], function() {
2620+ return A2(func, a, b);
2621+ });
2622+});
2623+
2624+var _VirtualDom_lazy3 = F4(function(func, a, b, c)
2625+{
2626+ return _VirtualDom_thunk([func, a, b, c], function() {
2627+ return A3(func, a, b, c);
2628+ });
2629+});
2630+
2631+var _VirtualDom_lazy4 = F5(function(func, a, b, c, d)
2632+{
2633+ return _VirtualDom_thunk([func, a, b, c, d], function() {
2634+ return A4(func, a, b, c, d);
2635+ });
2636+});
2637+
2638+var _VirtualDom_lazy5 = F6(function(func, a, b, c, d, e)
2639+{
2640+ return _VirtualDom_thunk([func, a, b, c, d, e], function() {
2641+ return A5(func, a, b, c, d, e);
2642+ });
2643+});
2644+
2645+var _VirtualDom_lazy6 = F7(function(func, a, b, c, d, e, f)
2646+{
2647+ return _VirtualDom_thunk([func, a, b, c, d, e, f], function() {
2648+ return A6(func, a, b, c, d, e, f);
2649+ });
2650+});
2651+
2652+var _VirtualDom_lazy7 = F8(function(func, a, b, c, d, e, f, g)
2653+{
2654+ return _VirtualDom_thunk([func, a, b, c, d, e, f, g], function() {
2655+ return A7(func, a, b, c, d, e, f, g);
2656+ });
2657+});
2658+
2659+var _VirtualDom_lazy8 = F9(function(func, a, b, c, d, e, f, g, h)
2660+{
2661+ return _VirtualDom_thunk([func, a, b, c, d, e, f, g, h], function() {
2662+ return A8(func, a, b, c, d, e, f, g, h);
2663+ });
2664+});
2665+
2666+
2667+
2668+// FACTS
2669+
2670+
2671+var _VirtualDom_on = F2(function(key, handler)
2672+{
2673+ return {
2674+ $: 'a0',
2675+ n: key,
2676+ o: handler
2677+ };
2678+});
2679+var _VirtualDom_style = F2(function(key, value)
2680+{
2681+ return {
2682+ $: 'a1',
2683+ n: key,
2684+ o: value
2685+ };
2686+});
2687+var _VirtualDom_property = F2(function(key, value)
2688+{
2689+ return {
2690+ $: 'a2',
2691+ n: key,
2692+ o: value
2693+ };
2694+});
2695+var _VirtualDom_attribute = F2(function(key, value)
2696+{
2697+ return {
2698+ $: 'a3',
2699+ n: key,
2700+ o: value
2701+ };
2702+});
2703+var _VirtualDom_attributeNS = F3(function(namespace, key, value)
2704+{
2705+ return {
2706+ $: 'a4',
2707+ n: key,
2708+ o: { f: namespace, o: value }
2709+ };
2710+});
2711+
2712+
2713+
2714+// XSS ATTACK VECTOR CHECKS
2715+//
2716+// For some reason, tabs can appear in href protocols and it still works.
2717+// So '\tjava\tSCRIPT:alert("!!!")' and 'javascript:alert("!!!")' are the same
2718+// in practice. That is why _VirtualDom_RE_js and _VirtualDom_RE_js_html look
2719+// so freaky.
2720+//
2721+// Pulling the regular expressions out to the top level gives a slight speed
2722+// boost in small benchmarks (4-10%) but hoisting values to reduce allocation
2723+// can be unpredictable in large programs where JIT may have a harder time with
2724+// functions are not fully self-contained. The benefit is more that the js and
2725+// js_html ones are so weird that I prefer to see them near each other.
2726+
2727+
2728+
2729+
2730+
2731+function _VirtualDom_noScript(tag)
2732+{
2733+ return tag;
2734+}
2735+
2736+function _VirtualDom_noOnOrFormAction(key)
2737+{
2738+ return key;
2739+}
2740+
2741+function _VirtualDom_noInnerHtmlOrFormAction(key)
2742+{
2743+ return key;
2744+}
2745+
2746+function _VirtualDom_noJavaScriptUri(value)
2747+{
2748+ return value;
2749+}
2750+
2751+function _VirtualDom_noJavaScriptOrHtmlUri(value)
2752+{
2753+ return value;
2754+}
2755+
2756+function _VirtualDom_noJavaScriptOrHtmlJson(value)
2757+{
2758+ return value;
2759+}
2760+
2761+
2762+
2763+// MAP FACTS
2764+
2765+
2766+var _VirtualDom_mapAttribute = F2(function(func, attr)
2767+{
2768+ return (attr.$ === 'a0')
2769+ ? A2(_VirtualDom_on, attr.n, _VirtualDom_mapHandler(func, attr.o))
2770+ : attr;
2771+});
2772+
2773+function _VirtualDom_mapHandler(func, handler)
2774+{
2775+ var tag = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(handler);
2776+
2777+ // 0 = Normal
2778+ // 1 = MayStopPropagation
2779+ // 2 = MayPreventDefault
2780+ // 3 = Custom
2781+
2782+ return {
2783+ $: handler.$,
2784+ a:
2785+ !tag
2786+ ? A2($elm$json$Json$Decode$map, func, handler.a)
2787+ :
2788+ A3($elm$json$Json$Decode$map2,
2789+ tag < 3
2790+ ? _VirtualDom_mapEventTuple
2791+ : _VirtualDom_mapEventRecord,
2792+ $elm$json$Json$Decode$succeed(func),
2793+ handler.a
2794+ )
2795+ };
2796+}
2797+
2798+var _VirtualDom_mapEventTuple = F2(function(func, tuple)
2799+{
2800+ return _Utils_Tuple2(func(tuple.a), tuple.b);
2801+});
2802+
2803+var _VirtualDom_mapEventRecord = F2(function(func, record)
2804+{
2805+ return {
2806+ message: func(record.message),
2807+ stopPropagation: record.stopPropagation,
2808+ preventDefault: record.preventDefault
2809+ }
2810+});
2811+
2812+
2813+
2814+// ORGANIZE FACTS
2815+
2816+
2817+function _VirtualDom_organizeFacts(factList)
2818+{
2819+ for (var facts = {}; factList.b; factList = factList.b) // WHILE_CONS
2820+ {
2821+ var entry = factList.a;
2822+
2823+ var tag = entry.$;
2824+ var key = entry.n;
2825+ var value = entry.o;
2826+
2827+ if (tag === 'a2')
2828+ {
2829+ (key === 'className')
2830+ ? _VirtualDom_addClass(facts, key, _Json_unwrap(value))
2831+ : facts[key] = _Json_unwrap(value);
2832+
2833+ continue;
2834+ }
2835+
2836+ var subFacts = facts[tag] || (facts[tag] = {});
2837+ (tag === 'a3' && key === 'class')
2838+ ? _VirtualDom_addClass(subFacts, key, value)
2839+ : subFacts[key] = value;
2840+ }
2841+
2842+ return facts;
2843+}
2844+
2845+function _VirtualDom_addClass(object, key, newClass)
2846+{
2847+ var classes = object[key];
2848+ object[key] = classes ? classes + ' ' + newClass : newClass;
2849+}
2850+
2851+
2852+
2853+// RENDER
2854+
2855+
2856+function _VirtualDom_render(vNode, eventNode)
2857+{
2858+ var tag = vNode.$;
2859+
2860+ if (tag === 5)
2861+ {
2862+ return _VirtualDom_render(vNode.k || (vNode.k = vNode.m()), eventNode);
2863+ }
2864+
2865+ if (tag === 0)
2866+ {
2867+ return _Lynx_createRawText(vNode.a);
2868+ }
2869+
2870+ if (tag === 4)
2871+ {
2872+ var subNode = vNode.k;
2873+ var tagger = vNode.j;
2874+
2875+ while (subNode.$ === 4)
2876+ {
2877+ typeof tagger !== 'object'
2878+ ? tagger = [tagger, subNode.j]
2879+ : tagger.push(subNode.j);
2880+
2881+ subNode = subNode.k;
2882+ }
2883+
2884+ var subEventRoot = { j: tagger, p: eventNode };
2885+ var domNode = _VirtualDom_render(subNode, subEventRoot);
2886+ _VirtualDom_getMeta(domNode).elm_event_node_ref = subEventRoot;
2887+ return domNode;
2888+ }
2889+
2890+ if (tag === 3)
2891+ {
2892+ var domNode = vNode.h(vNode.g);
2893+ _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
2894+ return domNode;
2895+ }
2896+
2897+ // at this point `tag` must be 1 or 2
2898+
2899+ var domNode = _Lynx_createElement(vNode.c);
2900+
2901+ _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
2902+
2903+ for (var kids = vNode.e, i = 0; i < kids.length; i++)
2904+ {
2905+ var kid = tag === 1 ? kids[i] : kids[i].b;
2906+ if (kid.$ === 0)
2907+ {
2908+ _Lynx_appendChild(domNode, _Lynx_createRawText(kid.a));
2909+ }
2910+ else
2911+ {
2912+ _VirtualDom_appendChild(domNode, _VirtualDom_render(kid, eventNode));
2913+ }
2914+ }
2915+
2916+ return domNode;
2917+}
2918+
2919+
2920+
2921+// APPLY FACTS
2922+
2923+
2924+function _VirtualDom_applyFacts(domNode, eventNode, facts)
2925+{
2926+ for (var key in facts)
2927+ {
2928+ var value = facts[key];
2929+
2930+ key === 'a1'
2931+ ? _VirtualDom_applyStyles(domNode, value)
2932+ :
2933+ key === 'a0'
2934+ ? _VirtualDom_applyEvents(domNode, eventNode, value)
2935+ :
2936+ key === 'a3'
2937+ ? _VirtualDom_applyAttrs(domNode, value)
2938+ :
2939+ key === 'a4'
2940+ ? _VirtualDom_applyAttrsNS(domNode, value)
2941+ :
2942+ (key !== 'value' && key !== 'checked' || domNode[key] !== value) && _Lynx_setAttribute(domNode, key === 'className' ? 'class' : key, String(value));
2943+ }
2944+}
2945+
2946+
2947+
2948+// APPLY STYLES
2949+
2950+
2951+function _VirtualDom_applyStyles(domNode, styles)
2952+{
2953+ _Lynx_setInlineStyles(domNode, styles);
2954+}
2955+
2956+
2957+
2958+// APPLY ATTRS
2959+
2960+
2961+function _VirtualDom_applyAttrs(domNode, attrs)
2962+{
2963+ for (var key in attrs)
2964+ {
2965+ var value = attrs[key];
2966+ if (typeof value !== 'undefined')
2967+ {
2968+ _Lynx_setAttribute(domNode, key, value);
2969+ }
2970+ }
2971+}
2972+
2973+
2974+
2975+// APPLY NAMESPACED ATTRS
2976+
2977+
2978+function _VirtualDom_applyAttrsNS(domNode, nsAttrs)
2979+{
2980+ for (var key in nsAttrs)
2981+ {
2982+ var pair = nsAttrs[key];
2983+ var value = pair.o;
2984+
2985+ if (typeof value !== 'undefined')
2986+ {
2987+ _Lynx_setAttribute(domNode, key, value);
2988+ }
2989+ }
2990+}
2991+
2992+
2993+
2994+// APPLY EVENTS
2995+
2996+
2997+function _VirtualDom_applyEvents(domNode, eventNode, events)
2998+{
2999+ var meta = _VirtualDom_getMeta(domNode);
3000+ var allCallbacks = meta.elmFs || (meta.elmFs = {});
3001+
3002+ for (var key in events)
3003+ {
3004+ var newHandler = events[key];
3005+ var oldCallback = allCallbacks[key];
3006+
3007+ if (!newHandler)
3008+ {
3009+ allCallbacks[key] = undefined;
3010+ continue;
3011+ }
3012+
3013+ if (oldCallback)
3014+ {
3015+ var oldHandler = oldCallback.q;
3016+ if (oldHandler.$ === newHandler.$)
3017+ {
3018+ oldCallback.q = newHandler;
3019+ continue;
3020+ }
3021+ }
3022+
3023+ oldCallback = _VirtualDom_makeCallback(eventNode, newHandler);
3024+ allCallbacks[key] = oldCallback;
3025+
3026+ var lynxEventName = _VirtualDom_mapEventName(key);
3027+ var handlerType = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(newHandler);
3028+ var prefix = (handlerType === 1) ? 'catch' : 'bind';
3029+ _Lynx_addEvent(domNode, 'catchEvent', lynxEventName, { type: 'worklet', value: oldCallback });
3030+ }
3031+}
3032+
3033+function _VirtualDom_mapEventName(name)
3034+{
3035+ switch (name)
3036+ {
3037+ case 'click': return 'tap';
3038+ case 'dblclick': return 'tap';
3039+ case 'mousedown': return 'touchstart';
3040+ case 'mousemove': return 'touchmove';
3041+ case 'mouseup': return 'touchend';
3042+ default: return name;
3043+ }
3044+}
3045+
3046+
3047+
3048+// PASSIVE EVENTS
3049+
3050+
3051+
3052+// EVENT HANDLERS
3053+
3054+
3055+function _VirtualDom_makeCallback(eventNode, initialHandler)
3056+{
3057+ function callback(event)
3058+ {
3059+ var handler = callback.q;
3060+ var result = _Json_runHelp(handler.a, event);
3061+
3062+ if (!$elm$core$Result$isOk(result))
3063+ {
3064+ return;
3065+ }
3066+
3067+ var tag = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(handler);
3068+
3069+ // 0 = Normal
3070+ // 1 = MayStopPropagation
3071+ // 2 = MayPreventDefault
3072+ // 3 = Custom
3073+
3074+ var value = result.a;
3075+ var message = !tag ? value : tag < 3 ? value.a : value.message;
3076+ var stopPropagation = tag == 1 ? value.b : tag == 3 && value.stopPropagation;
3077+ var currentEventNode = eventNode;
3078+ var tagger;
3079+ var i;
3080+ while (tagger = currentEventNode.j)
3081+ {
3082+ if (typeof tagger == 'function')
3083+ {
3084+ message = tagger(message);
3085+ }
3086+ else
3087+ {
3088+ for (var i = tagger.length; i--; )
3089+ {
3090+ message = tagger[i](message);
3091+ }
3092+ }
3093+ currentEventNode = currentEventNode.p;
3094+ }
3095+ currentEventNode(message, stopPropagation); // stopPropagation implies isSync
3096+ }
3097+
3098+ callback.q = initialHandler;
3099+
3100+ return callback;
3101+}
3102+
3103+function _VirtualDom_equalEvents(x, y)
3104+{
3105+ return x.$ == y.$ && _Json_equality(x.a, y.a);
3106+}
3107+
3108+
3109+
3110+// DIFF
3111+
3112+
3113+// TODO: Should we do patches like in iOS?
3114+//
3115+// type Patch
3116+// = At Int Patch
3117+// | Batch (List Patch)
3118+// | Change ...
3119+//
3120+// How could it not be better?
3121+//
3122+function _VirtualDom_diff(x, y)
3123+{
3124+ var patches = [];
3125+ _VirtualDom_diffHelp(x, y, patches, 0);
3126+ return patches;
3127+}
3128+
3129+
3130+function _VirtualDom_pushPatch(patches, type, index, data)
3131+{
3132+ var patch = {
3133+ $: type,
3134+ r: index,
3135+ s: data,
3136+ t: undefined,
3137+ u: undefined
3138+ };
3139+ patches.push(patch);
3140+ return patch;
3141+}
3142+
3143+
3144+function _VirtualDom_diffHelp(x, y, patches, index)
3145+{
3146+ if (x === y)
3147+ {
3148+ return;
3149+ }
3150+
3151+ var xType = x.$;
3152+ var yType = y.$;
3153+
3154+ // Bail if you run into different types of nodes. Implies that the
3155+ // structure has changed significantly and it's not worth a diff.
3156+ if (xType !== yType)
3157+ {
3158+ if (xType === 1 && yType === 2)
3159+ {
3160+ y = _VirtualDom_dekey(y);
3161+ yType = 1;
3162+ }
3163+ else
3164+ {
3165+ _VirtualDom_pushPatch(patches, 0, index, y);
3166+ return;
3167+ }
3168+ }
3169+
3170+ // Now we know that both nodes are the same $.
3171+ switch (yType)
3172+ {
3173+ case 5:
3174+ var xRefs = x.l;
3175+ var yRefs = y.l;
3176+ var i = xRefs.length;
3177+ var same = i === yRefs.length;
3178+ while (same && i--)
3179+ {
3180+ same = xRefs[i] === yRefs[i];
3181+ }
3182+ if (same)
3183+ {
3184+ y.k = x.k;
3185+ return;
3186+ }
3187+ y.k = y.m();
3188+ var subPatches = [];
3189+ _VirtualDom_diffHelp(x.k, y.k, subPatches, 0);
3190+ subPatches.length > 0 && _VirtualDom_pushPatch(patches, 1, index, subPatches);
3191+ return;
3192+
3193+ case 4:
3194+ // gather nested taggers
3195+ var xTaggers = x.j;
3196+ var yTaggers = y.j;
3197+ var nesting = false;
3198+
3199+ var xSubNode = x.k;
3200+ while (xSubNode.$ === 4)
3201+ {
3202+ nesting = true;
3203+
3204+ typeof xTaggers !== 'object'
3205+ ? xTaggers = [xTaggers, xSubNode.j]
3206+ : xTaggers.push(xSubNode.j);
3207+
3208+ xSubNode = xSubNode.k;
3209+ }
3210+
3211+ var ySubNode = y.k;
3212+ while (ySubNode.$ === 4)
3213+ {
3214+ nesting = true;
3215+
3216+ typeof yTaggers !== 'object'
3217+ ? yTaggers = [yTaggers, ySubNode.j]
3218+ : yTaggers.push(ySubNode.j);
3219+
3220+ ySubNode = ySubNode.k;
3221+ }
3222+
3223+ // Just bail if different numbers of taggers. This implies the
3224+ // structure of the virtual DOM has changed.
3225+ if (nesting && xTaggers.length !== yTaggers.length)
3226+ {
3227+ _VirtualDom_pushPatch(patches, 0, index, y);
3228+ return;
3229+ }
3230+
3231+ // check if taggers are "the same"
3232+ if (nesting ? !_VirtualDom_pairwiseRefEqual(xTaggers, yTaggers) : xTaggers !== yTaggers)
3233+ {
3234+ _VirtualDom_pushPatch(patches, 2, index, yTaggers);
3235+ }
3236+
3237+ // diff everything below the taggers
3238+ _VirtualDom_diffHelp(xSubNode, ySubNode, patches, index + 1);
3239+ return;
3240+
3241+ case 0:
3242+ if (x.a !== y.a)
3243+ {
3244+ _VirtualDom_pushPatch(patches, 3, index, y.a);
3245+ }
3246+ return;
3247+
3248+ case 1:
3249+ _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKids);
3250+ return;
3251+
3252+ case 2:
3253+ _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKeyedKids);
3254+ return;
3255+
3256+ case 3:
3257+ if (x.h !== y.h)
3258+ {
3259+ _VirtualDom_pushPatch(patches, 0, index, y);
3260+ return;
3261+ }
3262+
3263+ var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
3264+ factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
3265+
3266+ var patch = y.i(x.g, y.g);
3267+ patch && _VirtualDom_pushPatch(patches, 5, index, patch);
3268+
3269+ return;
3270+ }
3271+}
3272+
3273+// assumes the incoming arrays are the same length
3274+function _VirtualDom_pairwiseRefEqual(as, bs)
3275+{
3276+ for (var i = 0; i < as.length; i++)
3277+ {
3278+ if (as[i] !== bs[i])
3279+ {
3280+ return false;
3281+ }
3282+ }
3283+
3284+ return true;
3285+}
3286+
3287+function _VirtualDom_diffNodes(x, y, patches, index, diffKids)
3288+{
3289+ // Bail if obvious indicators have changed. Implies more serious
3290+ // structural changes such that it's not worth it to diff.
3291+ if (x.c !== y.c || x.f !== y.f)
3292+ {
3293+ _VirtualDom_pushPatch(patches, 0, index, y);
3294+ return;
3295+ }
3296+
3297+ var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
3298+ factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
3299+
3300+ diffKids(x, y, patches, index);
3301+}
3302+
3303+
3304+
3305+// DIFF FACTS
3306+
3307+
3308+// TODO Instead of creating a new diff object, it's possible to just test if
3309+// there *is* a diff. During the actual patch, do the diff again and make the
3310+// modifications directly. This way, there's no new allocations. Worth it?
3311+function _VirtualDom_diffFacts(x, y, category)
3312+{
3313+ var diff;
3314+
3315+ // look for changes and removals
3316+ for (var xKey in x)
3317+ {
3318+ if (xKey === 'a1' || xKey === 'a0' || xKey === 'a3' || xKey === 'a4')
3319+ {
3320+ var subDiff = _VirtualDom_diffFacts(x[xKey], y[xKey] || {}, xKey);
3321+ if (subDiff)
3322+ {
3323+ diff = diff || {};
3324+ diff[xKey] = subDiff;
3325+ }
3326+ continue;
3327+ }
3328+
3329+ // remove if not in the new facts
3330+ if (!(xKey in y))
3331+ {
3332+ diff = diff || {};
3333+ diff[xKey] =
3334+ !category
3335+ ? (typeof x[xKey] === 'string' ? '' : null)
3336+ :
3337+ (category === 'a1')
3338+ ? ''
3339+ :
3340+ (category === 'a0' || category === 'a3')
3341+ ? undefined
3342+ :
3343+ { f: x[xKey].f, o: undefined };
3344+
3345+ continue;
3346+ }
3347+
3348+ var xValue = x[xKey];
3349+ var yValue = y[xKey];
3350+
3351+ // reference equal, so don't worry about it
3352+ if (xValue === yValue && xKey !== 'value' && xKey !== 'checked'
3353+ || category === 'a0' && _VirtualDom_equalEvents(xValue, yValue))
3354+ {
3355+ continue;
3356+ }
3357+
3358+ diff = diff || {};
3359+ diff[xKey] = yValue;
3360+ }
3361+
3362+ // add new stuff
3363+ for (var yKey in y)
3364+ {
3365+ if (!(yKey in x))
3366+ {
3367+ diff = diff || {};
3368+ diff[yKey] = y[yKey];
3369+ }
3370+ }
3371+
3372+ return diff;
3373+}
3374+
3375+
3376+
3377+// DIFF KIDS
3378+
3379+
3380+function _VirtualDom_diffKids(xParent, yParent, patches, index)
3381+{
3382+ var xKids = xParent.e;
3383+ var yKids = yParent.e;
3384+
3385+ var xLen = xKids.length;
3386+ var yLen = yKids.length;
3387+
3388+ // FIGURE OUT IF THERE ARE INSERTS OR REMOVALS
3389+
3390+ if (xLen > yLen)
3391+ {
3392+ _VirtualDom_pushPatch(patches, 6, index, {
3393+ v: yLen,
3394+ i: xLen - yLen
3395+ });
3396+ }
3397+ else if (xLen < yLen)
3398+ {
3399+ _VirtualDom_pushPatch(patches, 7, index, {
3400+ v: xLen,
3401+ e: yKids
3402+ });
3403+ }
3404+
3405+ // PAIRWISE DIFF EVERYTHING ELSE
3406+
3407+ for (var minLen = xLen < yLen ? xLen : yLen, i = 0; i < minLen; i++)
3408+ {
3409+ var xKid = xKids[i];
3410+ _VirtualDom_diffHelp(xKid, yKids[i], patches, ++index);
3411+ index += xKid.b || 0;
3412+ }
3413+}
3414+
3415+
3416+
3417+// KEYED DIFF
3418+
3419+
3420+function _VirtualDom_diffKeyedKids(xParent, yParent, patches, rootIndex)
3421+{
3422+ var localPatches = [];
3423+
3424+ var changes = {}; // Dict String Entry
3425+ var inserts = []; // Array { index : Int, entry : Entry }
3426+ // type Entry = { tag : String, vnode : VNode, index : Int, data : _ }
3427+
3428+ var xKids = xParent.e;
3429+ var yKids = yParent.e;
3430+ var xLen = xKids.length;
3431+ var yLen = yKids.length;
3432+ var xIndex = 0;
3433+ var yIndex = 0;
3434+
3435+ var index = rootIndex;
3436+
3437+ while (xIndex < xLen && yIndex < yLen)
3438+ {
3439+ var x = xKids[xIndex];
3440+ var y = yKids[yIndex];
3441+
3442+ var xKey = x.a;
3443+ var yKey = y.a;
3444+ var xNode = x.b;
3445+ var yNode = y.b;
3446+
3447+ var newMatch = undefined;
3448+ var oldMatch = undefined;
3449+
3450+ // check if keys match
3451+
3452+ if (xKey === yKey)
3453+ {
3454+ index++;
3455+ _VirtualDom_diffHelp(xNode, yNode, localPatches, index);
3456+ index += xNode.b || 0;
3457+
3458+ xIndex++;
3459+ yIndex++;
3460+ continue;
3461+ }
3462+
3463+ // look ahead 1 to detect insertions and removals.
3464+
3465+ var xNext = xKids[xIndex + 1];
3466+ var yNext = yKids[yIndex + 1];
3467+
3468+ if (xNext)
3469+ {
3470+ var xNextKey = xNext.a;
3471+ var xNextNode = xNext.b;
3472+ oldMatch = yKey === xNextKey;
3473+ }
3474+
3475+ if (yNext)
3476+ {
3477+ var yNextKey = yNext.a;
3478+ var yNextNode = yNext.b;
3479+ newMatch = xKey === yNextKey;
3480+ }
3481+
3482+
3483+ // swap x and y
3484+ if (newMatch && oldMatch)
3485+ {
3486+ index++;
3487+ _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
3488+ _VirtualDom_insertNode(changes, localPatches, xKey, yNode, yIndex, inserts);
3489+ index += xNode.b || 0;
3490+
3491+ index++;
3492+ _VirtualDom_removeNode(changes, localPatches, xKey, xNextNode, index);
3493+ index += xNextNode.b || 0;
3494+
3495+ xIndex += 2;
3496+ yIndex += 2;
3497+ continue;
3498+ }
3499+
3500+ // insert y
3501+ if (newMatch)
3502+ {
3503+ index++;
3504+ _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
3505+ _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
3506+ index += xNode.b || 0;
3507+
3508+ xIndex += 1;
3509+ yIndex += 2;
3510+ continue;
3511+ }
3512+
3513+ // remove x
3514+ if (oldMatch)
3515+ {
3516+ index++;
3517+ _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
3518+ index += xNode.b || 0;
3519+
3520+ index++;
3521+ _VirtualDom_diffHelp(xNextNode, yNode, localPatches, index);
3522+ index += xNextNode.b || 0;
3523+
3524+ xIndex += 2;
3525+ yIndex += 1;
3526+ continue;
3527+ }
3528+
3529+ // remove x, insert y
3530+ if (xNext && xNextKey === yNextKey)
3531+ {
3532+ index++;
3533+ _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
3534+ _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
3535+ index += xNode.b || 0;
3536+
3537+ index++;
3538+ _VirtualDom_diffHelp(xNextNode, yNextNode, localPatches, index);
3539+ index += xNextNode.b || 0;
3540+
3541+ xIndex += 2;
3542+ yIndex += 2;
3543+ continue;
3544+ }
3545+
3546+ break;
3547+ }
3548+
3549+ // eat up any remaining nodes with removeNode and insertNode
3550+
3551+ while (xIndex < xLen)
3552+ {
3553+ index++;
3554+ var x = xKids[xIndex];
3555+ var xNode = x.b;
3556+ _VirtualDom_removeNode(changes, localPatches, x.a, xNode, index);
3557+ index += xNode.b || 0;
3558+ xIndex++;
3559+ }
3560+
3561+ while (yIndex < yLen)
3562+ {
3563+ var endInserts = endInserts || [];
3564+ var y = yKids[yIndex];
3565+ _VirtualDom_insertNode(changes, localPatches, y.a, y.b, undefined, endInserts);
3566+ yIndex++;
3567+ }
3568+
3569+ if (localPatches.length > 0 || inserts.length > 0 || endInserts)
3570+ {
3571+ _VirtualDom_pushPatch(patches, 8, rootIndex, {
3572+ w: localPatches,
3573+ x: inserts,
3574+ y: endInserts
3575+ });
3576+ }
3577+}
3578+
3579+
3580+
3581+// CHANGES FROM KEYED DIFF
3582+
3583+
3584+var _VirtualDom_POSTFIX = '_elmW6BL';
3585+
3586+
3587+function _VirtualDom_insertNode(changes, localPatches, key, vnode, yIndex, inserts)
3588+{
3589+ var entry = changes[key];
3590+
3591+ // never seen this key before
3592+ if (!entry)
3593+ {
3594+ entry = {
3595+ c: 0,
3596+ z: vnode,
3597+ r: yIndex,
3598+ s: undefined
3599+ };
3600+
3601+ inserts.push({ r: yIndex, A: entry });
3602+ changes[key] = entry;
3603+
3604+ return;
3605+ }
3606+
3607+ // this key was removed earlier, a match!
3608+ if (entry.c === 1)
3609+ {
3610+ inserts.push({ r: yIndex, A: entry });
3611+
3612+ entry.c = 2;
3613+ var subPatches = [];
3614+ _VirtualDom_diffHelp(entry.z, vnode, subPatches, entry.r);
3615+ entry.r = yIndex;
3616+ entry.s.s = {
3617+ w: subPatches,
3618+ A: entry
3619+ };
3620+
3621+ return;
3622+ }
3623+
3624+ // this key has already been inserted or moved, a duplicate!
3625+ _VirtualDom_insertNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, yIndex, inserts);
3626+}
3627+
3628+
3629+function _VirtualDom_removeNode(changes, localPatches, key, vnode, index)
3630+{
3631+ var entry = changes[key];
3632+
3633+ // never seen this key before
3634+ if (!entry)
3635+ {
3636+ var patch = _VirtualDom_pushPatch(localPatches, 9, index, undefined);
3637+
3638+ changes[key] = {
3639+ c: 1,
3640+ z: vnode,
3641+ r: index,
3642+ s: patch
3643+ };
3644+
3645+ return;
3646+ }
3647+
3648+ // this key was inserted earlier, a match!
3649+ if (entry.c === 0)
3650+ {
3651+ entry.c = 2;
3652+ var subPatches = [];
3653+ _VirtualDom_diffHelp(vnode, entry.z, subPatches, index);
3654+
3655+ _VirtualDom_pushPatch(localPatches, 9, index, {
3656+ w: subPatches,
3657+ A: entry
3658+ });
3659+
3660+ return;
3661+ }
3662+
3663+ // this key has already been removed or moved, a duplicate!
3664+ _VirtualDom_removeNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, index);
3665+}
3666+
3667+
3668+
3669+// ADD DOM NODES
3670+//
3671+// Each DOM node has an "index" assigned in order of traversal. It is important
3672+// to minimize our crawl over the actual DOM, so these indexes (along with the
3673+// descendantsCount of virtual nodes) let us skip touching entire subtrees of
3674+// the DOM if we know there are no patches there.
3675+
3676+
3677+function _VirtualDom_addDomNodes(domNode, vNode, patches, eventNode)
3678+{
3679+ _VirtualDom_addDomNodesHelp(domNode, vNode, patches, 0, 0, vNode.b, eventNode);
3680+}
3681+
3682+
3683+// assumes `patches` is non-empty and indexes increase monotonically.
3684+function _VirtualDom_addDomNodesHelp(domNode, vNode, patches, i, low, high, eventNode)
3685+{
3686+ var patch = patches[i];
3687+ var index = patch.r;
3688+
3689+ while (index === low)
3690+ {
3691+ var patchType = patch.$;
3692+
3693+ if (patchType === 1)
3694+ {
3695+ _VirtualDom_addDomNodes(domNode, vNode.k, patch.s, eventNode);
3696+ }
3697+ else if (patchType === 8)
3698+ {
3699+ patch.t = domNode;
3700+ patch.u = eventNode;
3701+
3702+ var subPatches = patch.s.w;
3703+ if (subPatches.length > 0)
3704+ {
3705+ _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
3706+ }
3707+ }
3708+ else if (patchType === 9)
3709+ {
3710+ patch.t = domNode;
3711+ patch.u = eventNode;
3712+
3713+ var data = patch.s;
3714+ if (data)
3715+ {
3716+ data.A.s = domNode;
3717+ var subPatches = data.w;
3718+ if (subPatches.length > 0)
3719+ {
3720+ _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
3721+ }
3722+ }
3723+ }
3724+ else
3725+ {
3726+ patch.t = domNode;
3727+ patch.u = eventNode;
3728+ }
3729+
3730+ i++;
3731+
3732+ if (!(patch = patches[i]) || (index = patch.r) > high)
3733+ {
3734+ return i;
3735+ }
3736+ }
3737+
3738+ var tag = vNode.$;
3739+
3740+ if (tag === 4)
3741+ {
3742+ var subNode = vNode.k;
3743+
3744+ while (subNode.$ === 4)
3745+ {
3746+ subNode = subNode.k;
3747+ }
3748+
3749+ return _VirtualDom_addDomNodesHelp(domNode, subNode, patches, i, low + 1, high, _VirtualDom_getMeta(domNode).elm_event_node_ref);
3750+ }
3751+
3752+ // tag must be 1 or 2 at this point
3753+
3754+ var vKids = vNode.e;
3755+ var childNodes = _Lynx_getChildren(domNode);
3756+ for (var j = 0; j < vKids.length; j++)
3757+ {
3758+ low++;
3759+ var vKid = tag === 1 ? vKids[j] : vKids[j].b;
3760+ var nextLow = low + (vKid.b || 0);
3761+ if (low <= index && index <= nextLow)
3762+ {
3763+ i = _VirtualDom_addDomNodesHelp(childNodes[j], vKid, patches, i, low, nextLow, eventNode);
3764+ if (!(patch = patches[i]) || (index = patch.r) > high)
3765+ {
3766+ return i;
3767+ }
3768+ }
3769+ low = nextLow;
3770+ }
3771+ return i;
3772+}
3773+
3774+
3775+
3776+// APPLY PATCHES
3777+
3778+
3779+function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
3780+{
3781+ if (patches.length === 0)
3782+ {
3783+ return rootDomNode;
3784+ }
3785+
3786+ _VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
3787+ return _VirtualDom_applyPatchesHelp(rootDomNode, patches);
3788+}
3789+
3790+function _VirtualDom_applyPatchesHelp(rootDomNode, patches)
3791+{
3792+ for (var i = 0; i < patches.length; i++)
3793+ {
3794+ var patch = patches[i];
3795+ var localDomNode = patch.t
3796+ var newNode = _VirtualDom_applyPatch(localDomNode, patch);
3797+ if (localDomNode === rootDomNode)
3798+ {
3799+ rootDomNode = newNode;
3800+ }
3801+ }
3802+ return rootDomNode;
3803+}
3804+
3805+function _VirtualDom_applyPatch(domNode, patch)
3806+{
3807+ switch (patch.$)
3808+ {
3809+ case 0:
3810+ return _VirtualDom_applyPatchRedraw(domNode, patch.s, patch.u);
3811+
3812+ case 4:
3813+ _VirtualDom_applyFacts(domNode, patch.u, patch.s);
3814+ return domNode;
3815+
3816+ case 3:
3817+ _Lynx_setAttribute(domNode, 'text', patch.s);
3818+ return domNode;
3819+
3820+ case 1:
3821+ return _VirtualDom_applyPatchesHelp(domNode, patch.s);
3822+
3823+ case 2:
3824+ if (_VirtualDom_getMeta(domNode).elm_event_node_ref)
3825+ {
3826+ _VirtualDom_getMeta(domNode).elm_event_node_ref.j = patch.s;
3827+ }
3828+ else
3829+ {
3830+ _VirtualDom_getMeta(domNode).elm_event_node_ref = { j: patch.s, p: patch.u };
3831+ }
3832+ return domNode;
3833+
3834+ case 6:
3835+ var data = patch.s;
3836+ for (var i = 0; i < data.i; i++)
3837+ {
3838+ var children = _Lynx_getChildren(domNode);
3839+ _Lynx_removeElement(domNode, children[data.v]);
3840+ }
3841+ return domNode;
3842+
3843+ case 7:
3844+ var data = patch.s;
3845+ var kids = data.e;
3846+ for (var i = data.v; i < kids.length; i++)
3847+ {
3848+ _Lynx_appendChild(domNode, _VirtualDom_render(kids[i], patch.u));
3849+ }
3850+ return domNode;
3851+
3852+ case 9:
3853+ var data = patch.s;
3854+ if (!data)
3855+ {
3856+ _Lynx_removeElement(_Lynx_getParent(domNode), domNode);
3857+ return domNode;
3858+ }
3859+ var entry = data.A;
3860+ if (typeof entry.r !== 'undefined')
3861+ {
3862+ _Lynx_removeElement(_Lynx_getParent(domNode), domNode);
3863+ }
3864+ entry.s = _VirtualDom_applyPatchesHelp(domNode, data.w);
3865+ return domNode;
3866+
3867+ case 8:
3868+ return _VirtualDom_applyPatchReorder(domNode, patch);
3869+
3870+ case 5:
3871+ return patch.s(domNode);
3872+
3873+ default:
3874+ throw new Error('VirtualDom: unknown patch type');
3875+ }
3876+}
3877+
3878+
3879+function _VirtualDom_applyPatchRedraw(domNode, vNode, eventNode)
3880+{
3881+ var parentNode = _Lynx_getParent(domNode);
3882+ var newNode = _VirtualDom_render(vNode, eventNode);
3883+
3884+ if (!_VirtualDom_getMeta(newNode).elm_event_node_ref)
3885+ {
3886+ _VirtualDom_getMeta(newNode).elm_event_node_ref = _VirtualDom_getMeta(domNode).elm_event_node_ref;
3887+ }
3888+
3889+ if (parentNode && newNode !== domNode)
3890+ {
3891+ _Lynx_replaceElement(parentNode, newNode, domNode);
3892+ }
3893+ return newNode;
3894+}
3895+
3896+
3897+function _VirtualDom_applyPatchReorder(domNode, patch)
3898+{
3899+ var data = patch.s;
3900+
3901+ // remove end inserts
3902+ var endInsertNodes = _VirtualDom_applyPatchReorderEndInsertsHelp(data.y, patch);
3903+
3904+ // removals
3905+ domNode = _VirtualDom_applyPatchesHelp(domNode, data.w);
3906+
3907+ // inserts
3908+ var inserts = data.x;
3909+ for (var i = 0; i < inserts.length; i++)
3910+ {
3911+ var insert = inserts[i];
3912+ var entry = insert.A;
3913+ var node = entry.c === 2
3914+ ? entry.s
3915+ : _VirtualDom_render(entry.z, patch.u);
3916+ var children = _Lynx_getChildren(domNode);
3917+ _Lynx_insertBefore(domNode, node, children[insert.r]);
3918+ }
3919+
3920+ // add end inserts
3921+ if (endInsertNodes)
3922+ {
3923+ for (var i = 0; i < endInsertNodes.length; i++)
3924+ {
3925+ _Lynx_appendChild(domNode, endInsertNodes[i]);
3926+ }
3927+ }
3928+
3929+ return domNode;
3930+}
3931+
3932+
3933+function _VirtualDom_applyPatchReorderEndInsertsHelp(endInserts, patch)
3934+{
3935+ if (!endInserts)
3936+ {
3937+ return;
3938+ }
3939+
3940+ var nodes = [];
3941+ for (var i = 0; i < endInserts.length; i++)
3942+ {
3943+ var insert = endInserts[i];
3944+ var entry = insert.A;
3945+ nodes.push(entry.c === 2
3946+ ? entry.s
3947+ : _VirtualDom_render(entry.z, patch.u)
3948+ );
3949+ }
3950+ return nodes;
3951+}
3952+
3953+
3954+function _VirtualDom_dekey(keyedNode)
3955+{
3956+ var keyedKids = keyedNode.e;
3957+ var len = keyedKids.length;
3958+ var kids = new Array(len);
3959+ for (var i = 0; i < len; i++)
3960+ {
3961+ kids[i] = keyedKids[i].b;
3962+ }
3963+
3964+ return {
3965+ $: 1,
3966+ c: keyedNode.c,
3967+ d: keyedNode.d,
3968+ e: kids,
3969+ f: keyedNode.f,
3970+ b: keyedNode.b
3971+ };
3972+}
3973+
3974+
3975+
3976+// LYNXJS PAPI WRAPPERS
3977+var _Browser_lynx = (typeof globalThis !== 'undefined' ? globalThis : scope);
3978+function _Browser_newPage() {
3979+ return _Browser_lynx['page'];
3980+}
3981+function _Browser_flush() {
3982+ var fn = _Browser_lynx['_' + '_FlushElementTree'];
3983+ if (typeof fn === 'function') { fn(); }
3984+}
3985+
3986+
3987+
3988+// ELEMENT
3989+
3990+
3991+var _Browser_element = F4(function(impl, flagDecoder, debugMetadata, args)
3992+{
3993+ return _Platform_initialize(
3994+ flagDecoder,
3995+ args,
3996+ impl.init,
3997+ impl.update,
3998+ impl.subscriptions,
3999+ function(sendToApp, initialModel) {
4000+ var view = impl.view;
4001+ var domNode = args['node'] || _Browser_newPage();
4002+ var currNode = view(initialModel);
4003+ var currDomNode = _VirtualDom_render(currNode, sendToApp);
4004+ _VirtualDom_appendChild(domNode, currDomNode);
4005+ _Browser_flush();
4006+
4007+ return _Browser_makeAnimator(initialModel, function(model)
4008+ {
4009+ var nextNode = view(model);
4010+ var patches = _VirtualDom_diff(currNode, nextNode);
4011+ currDomNode = _VirtualDom_applyPatches(currDomNode, currNode, patches, sendToApp);
4012+ currNode = nextNode;
4013+ _Browser_flush();
4014+ });
4015+ }
4016+ );
4017+});
4018+
4019+
4020+
4021+// DOCUMENT
4022+
4023+
4024+var _Browser_document = F4(function(impl, flagDecoder, debugMetadata, args)
4025+{
4026+ return _Platform_initialize(
4027+ flagDecoder,
4028+ args,
4029+ impl.init,
4030+ impl.update,
4031+ impl.subscriptions,
4032+ function(sendToApp, initialModel) {
4033+ var view = impl.view;
4034+ var rootNode = args['node'] || _Browser_newPage();
4035+ var doc = view(initialModel);
4036+ var currNode = _VirtualDom_node('view')(_List_Nil)(doc.body);
4037+ var currDomNode = _VirtualDom_render(currNode, sendToApp);
4038+ _VirtualDom_appendChild(rootNode, currDomNode);
4039+ _Browser_flush();
4040+
4041+ return _Browser_makeAnimator(initialModel, function(model)
4042+ {
4043+ var doc = view(model);
4044+ var nextNode = _VirtualDom_node('view')(_List_Nil)(doc.body);
4045+ var patches = _VirtualDom_diff(currNode, nextNode);
4046+ currDomNode = _VirtualDom_applyPatches(currDomNode, currNode, patches, sendToApp);
4047+ currNode = nextNode;
4048+ _Browser_flush();
4049+ });
4050+ }
4051+ );
4052+});
4053+
4054+
4055+
4056+// ANIMATION
4057+
4058+
4059+var _Browser_cancelAnimationFrame =
4060+ function(id) { clearTimeout(id); };
4061+
4062+var _Browser_requestAnimationFrame =
4063+ function(callback) { return setTimeout(callback, 1000 / 60); };
4064+
4065+
4066+function _Browser_makeAnimator(model, draw)
4067+{
4068+ draw(model);
4069+
4070+ var state = 0;
4071+
4072+ function updateIfNeeded()
4073+ {
4074+ state = state === 1
4075+ ? 0
4076+ : ( _Browser_requestAnimationFrame(updateIfNeeded), draw(model), 1 );
4077+ }
4078+
4079+ return function(nextModel, isSync)
4080+ {
4081+ model = nextModel;
4082+
4083+ isSync
4084+ ? ( draw(model),
4085+ state === 2 && (state = 1)
4086+ )
4087+ : ( state === 0 && _Browser_requestAnimationFrame(updateIfNeeded),
4088+ state = 2
4089+ );
4090+ };
4091+}
4092+
4093+
4094+
4095+// APPLICATION
4096+
4097+
4098+function _Browser_application(impl)
4099+{
4100+ return _Browser_document({
4101+ init: function(flags)
4102+ {
4103+ return A3(impl.init, flags, _Browser_fakeUrl(), {});
4104+ },
4105+ view: impl.view,
4106+ update: impl.update,
4107+ subscriptions: impl.subscriptions
4108+ });
4109+}
4110+
4111+function _Browser_fakeUrl()
4112+{
4113+ return {
4114+ protocol: { $: 0 },
4115+ host: 'localhost',
4116+ port_: { $: 1 },
4117+ path: '/',
4118+ query: { $: 1 },
4119+ fragment: { $: 1 }
4120+ };
4121+}
4122+
4123+
4124+
4125+var _Browser_go = F2(function(key, n)
4126+{
4127+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
4128+ // no-op in LynxJS
4129+ key();
4130+ }));
4131+});
4132+
4133+var _Browser_pushUrl = F2(function(key, url)
4134+{
4135+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
4136+ // no-op in LynxJS
4137+ key();
4138+ }));
4139+});
4140+
4141+var _Browser_replaceUrl = F2(function(key, url)
4142+{
4143+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function() {
4144+ // no-op in LynxJS
4145+ key();
4146+ }));
4147+});
4148+
4149+
4150+
4151+// GLOBAL EVENTS
4152+
4153+
4154+var _Browser_fakeNode = { addEventListener: function() {}, removeEventListener: function() {} };
4155+var _Browser_doc = typeof document !== 'undefined' ? document : _Browser_fakeNode;
4156+var _Browser_window = typeof window !== 'undefined' ? window : _Browser_fakeNode;
4157+
4158+var _Browser_on = F3(function(node, eventName, sendToSelf)
4159+{
4160+ return _Scheduler_spawn(_Scheduler_binding(function(callback)
4161+ {
4162+ return function() {};
4163+ }));
4164+});
4165+
4166+var _Browser_decodeEvent = F2(function(decoder, event)
4167+{
4168+ var result = _Json_runHelp(decoder, event);
4169+ return $elm$core$Result$isOk(result) ? $elm$core$Maybe$Just(result.a) : $elm$core$Maybe$Nothing;
4170+});
4171+
4172+
4173+
4174+// PAGE VISIBILITY
4175+
4176+
4177+function _Browser_visibilityInfo()
4178+{
4179+ return (typeof _VirtualDom_doc.hidden !== 'undefined')
4180+ ? { hidden: 'hidden', change: 'visibilitychange' }
4181+ :
4182+ (typeof _VirtualDom_doc.mozHidden !== 'undefined')
4183+ ? { hidden: 'mozHidden', change: 'mozvisibilitychange' }
4184+ :
4185+ (typeof _VirtualDom_doc.msHidden !== 'undefined')
4186+ ? { hidden: 'msHidden', change: 'msvisibilitychange' }
4187+ :
4188+ (typeof _VirtualDom_doc.webkitHidden !== 'undefined')
4189+ ? { hidden: 'webkitHidden', change: 'webkitvisibilitychange' }
4190+ : { hidden: 'hidden', change: 'visibilitychange' };
4191+}
4192+
4193+
4194+
4195+// ANIMATION FRAMES
4196+
4197+
4198+function _Browser_rAF()
4199+{
4200+ return _Scheduler_binding(function(callback)
4201+ {
4202+ var id = _Browser_requestAnimationFrame(function() {
4203+ callback(_Scheduler_succeed(Date.now()));
4204+ });
4205+
4206+ return function() {
4207+ _Browser_cancelAnimationFrame(id);
4208+ };
4209+ });
4210+}
4211+
4212+
4213+function _Browser_now()
4214+{
4215+ return _Scheduler_binding(function(callback)
4216+ {
4217+ callback(_Scheduler_succeed(Date.now()));
4218+ });
4219+}
4220+
4221+
4222+
4223+// DOM STUFF
4224+
4225+
4226+function _Browser_withNode(id, doStuff)
4227+{
4228+ return _Scheduler_binding(function(callback)
4229+ {
4230+ callback(_Scheduler_fail($lynxjs_elm$browser$Browser$Dom$NotFound(id)));
4231+ });
4232+}
4233+
4234+
4235+function _Browser_withWindow(doStuff)
4236+{
4237+ return _Scheduler_binding(function(callback)
4238+ {
4239+ _Browser_requestAnimationFrame(function() {
4240+ callback(_Scheduler_succeed(doStuff()));
4241+ });
4242+ });
4243+}
4244+
4245+
4246+// FOCUS and BLUR
4247+
4248+
4249+var _Browser_call = F2(function(functionName, id)
4250+{
4251+ return _Browser_withNode(id, function(node) {
4252+ node[functionName]();
4253+ return _Utils_Tuple0;
4254+ });
4255+});
4256+
4257+
4258+
4259+// WINDOW VIEWPORT
4260+
4261+
4262+function _Browser_getViewport()
4263+{
4264+ return {
4265+ scene: _Browser_getScene(),
4266+ viewport: {
4267+ x: _Browser_window.pageXOffset,
4268+ y: _Browser_window.pageYOffset,
4269+ width: _Browser_doc.documentElement.clientWidth,
4270+ height: _Browser_doc.documentElement.clientHeight
4271+ }
4272+ };
4273+}
4274+
4275+function _Browser_getScene()
4276+{
4277+ var body = _Browser_doc.body;
4278+ var elem = _Browser_doc.documentElement;
4279+ return {
4280+ width: Math.max(body.scrollWidth, body.offsetWidth, elem.scrollWidth, elem.offsetWidth, elem.clientWidth),
4281+ height: Math.max(body.scrollHeight, body.offsetHeight, elem.scrollHeight, elem.offsetHeight, elem.clientHeight)
4282+ };
4283+}
4284+
4285+var _Browser_setViewport = F2(function(x, y)
4286+{
4287+ return _Browser_withWindow(function()
4288+ {
4289+ _Browser_window.scroll(x, y);
4290+ return _Utils_Tuple0;
4291+ });
4292+});
4293+
4294+
4295+
4296+// ELEMENT VIEWPORT
4297+
4298+
4299+function _Browser_getViewportOf(id)
4300+{
4301+ return _Browser_withNode(id, function(node)
4302+ {
4303+ return {
4304+ scene: {
4305+ width: node.scrollWidth,
4306+ height: node.scrollHeight
4307+ },
4308+ viewport: {
4309+ x: node.scrollLeft,
4310+ y: node.scrollTop,
4311+ width: node.clientWidth,
4312+ height: node.clientHeight
4313+ }
4314+ };
4315+ });
4316+}
4317+
4318+
4319+var _Browser_setViewportOf = F3(function(id, x, y)
4320+{
4321+ return _Browser_withNode(id, function(node)
4322+ {
4323+ node.scrollLeft = x;
4324+ node.scrollTop = y;
4325+ return _Utils_Tuple0;
4326+ });
4327+});
4328+
4329+
4330+
4331+// ELEMENT
4332+
4333+
4334+function _Browser_getElement(id)
4335+{
4336+ return _Browser_withNode(id, function(node)
4337+ {
4338+ var rect = node.getBoundingClientRect();
4339+ var x = _Browser_window.pageXOffset;
4340+ var y = _Browser_window.pageYOffset;
4341+ return {
4342+ scene: _Browser_getScene(),
4343+ viewport: {
4344+ x: x,
4345+ y: y,
4346+ width: _Browser_doc.documentElement.clientWidth,
4347+ height: _Browser_doc.documentElement.clientHeight
4348+ },
4349+ element: {
4350+ x: x + rect.left,
4351+ y: y + rect.top,
4352+ width: rect.width,
4353+ height: rect.height
4354+ }
4355+ };
4356+ });
4357+}
4358+
4359+
4360+
4361+// LOAD and RELOAD
4362+
4363+
4364+function _Browser_reload(skipCache)
4365+{
4366+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
4367+ {
4368+ // no-op in LynxJS
4369+ }));
4370+}
4371+
4372+function _Browser_load(url)
4373+{
4374+ return A2($elm$core$Task$perform, $elm$core$Basics$never, _Scheduler_binding(function(callback)
4375+ {
4376+ try
4377+ {
4378+ // no-op in LynxJS
4379+ }
4380+ catch(err)
4381+ {
4382+ // Only Firefox can throw a NS_ERROR_MALFORMED_URI exception here.
4383+ // Other browsers reload the page, so let's be consistent about that.
4384+ // no-op in LynxJS
4385+ }
4386+ }));
4387+}
4388+var $author$project$Main$init = {count: 0};
4389+var $elm$core$List$cons = _List_cons;
4390+var $elm$core$Elm$JsArray$foldr = _JsArray_foldr;
4391+var $elm$core$Array$foldr = F3(
4392+ function (func, baseCase, _v0) {
4393+ var tree = _v0.c;
4394+ var tail = _v0.d;
4395+ var helper = F2(
4396+ function (node, acc) {
4397+ if (node.$ === 'SubTree') {
4398+ var subTree = node.a;
4399+ return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
4400+ } else {
4401+ var values = node.a;
4402+ return A3($elm$core$Elm$JsArray$foldr, func, acc, values);
4403+ }
4404+ });
4405+ return A3(
4406+ $elm$core$Elm$JsArray$foldr,
4407+ helper,
4408+ A3($elm$core$Elm$JsArray$foldr, func, baseCase, tail),
4409+ tree);
4410+ });
4411+var $elm$core$Array$toList = function (array) {
4412+ return A3($elm$core$Array$foldr, $elm$core$List$cons, _List_Nil, array);
4413+};
4414+var $elm$core$Dict$foldr = F3(
4415+ function (func, acc, t) {
4416+ foldr:
4417+ while (true) {
4418+ if (t.$ === 'RBEmpty_elm_builtin') {
4419+ return acc;
4420+ } else {
4421+ var key = t.b;
4422+ var value = t.c;
4423+ var left = t.d;
4424+ var right = t.e;
4425+ var $temp$func = func,
4426+ $temp$acc = A3(
4427+ func,
4428+ key,
4429+ value,
4430+ A3($elm$core$Dict$foldr, func, acc, right)),
4431+ $temp$t = left;
4432+ func = $temp$func;
4433+ acc = $temp$acc;
4434+ t = $temp$t;
4435+ continue foldr;
4436+ }
4437+ }
4438+ });
4439+var $elm$core$Dict$toList = function (dict) {
4440+ return A3(
4441+ $elm$core$Dict$foldr,
4442+ F3(
4443+ function (key, value, list) {
4444+ return A2(
4445+ $elm$core$List$cons,
4446+ _Utils_Tuple2(key, value),
4447+ list);
4448+ }),
4449+ _List_Nil,
4450+ dict);
4451+};
4452+var $elm$core$Dict$keys = function (dict) {
4453+ return A3(
4454+ $elm$core$Dict$foldr,
4455+ F3(
4456+ function (key, value, keyList) {
4457+ return A2($elm$core$List$cons, key, keyList);
4458+ }),
4459+ _List_Nil,
4460+ dict);
4461+};
4462+var $elm$core$Set$toList = function (_v0) {
4463+ var dict = _v0.a;
4464+ return $elm$core$Dict$keys(dict);
4465+};
4466+var $elm$core$Basics$EQ = {$: 'EQ'};
4467+var $elm$core$Basics$GT = {$: 'GT'};
4468+var $elm$core$Basics$LT = {$: 'LT'};
4469+var $elm$core$Result$Err = function (a) {
4470+ return {$: 'Err', a: a};
4471+};
4472+var $elm$json$Json$Decode$Failure = F2(
4473+ function (a, b) {
4474+ return {$: 'Failure', a: a, b: b};
4475+ });
4476+var $elm$json$Json$Decode$Field = F2(
4477+ function (a, b) {
4478+ return {$: 'Field', a: a, b: b};
4479+ });
4480+var $elm$json$Json$Decode$Index = F2(
4481+ function (a, b) {
4482+ return {$: 'Index', a: a, b: b};
4483+ });
4484+var $elm$core$Result$Ok = function (a) {
4485+ return {$: 'Ok', a: a};
4486+};
4487+var $elm$json$Json$Decode$OneOf = function (a) {
4488+ return {$: 'OneOf', a: a};
4489+};
4490+var $elm$core$Basics$False = {$: 'False'};
4491+var $elm$core$Basics$add = _Basics_add;
4492+var $elm$core$Maybe$Just = function (a) {
4493+ return {$: 'Just', a: a};
4494+};
4495+var $elm$core$Maybe$Nothing = {$: 'Nothing'};
4496+var $elm$core$String$all = _String_all;
4497+var $elm$core$Basics$and = _Basics_and;
4498+var $elm$core$Basics$append = _Utils_append;
4499+var $elm$json$Json$Encode$encode = _Json_encode;
4500+var $elm$core$String$fromInt = _String_fromNumber;
4501+var $elm$core$String$join = F2(
4502+ function (sep, chunks) {
4503+ return A2(
4504+ _String_join,
4505+ sep,
4506+ _List_toArray(chunks));
4507+ });
4508+var $elm$core$String$split = F2(
4509+ function (sep, string) {
4510+ return _List_fromArray(
4511+ A2(_String_split, sep, string));
4512+ });
4513+var $elm$json$Json$Decode$indent = function (str) {
4514+ return A2(
4515+ $elm$core$String$join,
4516+ '\n ',
4517+ A2($elm$core$String$split, '\n', str));
4518+};
4519+var $elm$core$List$foldl = F3(
4520+ function (func, acc, list) {
4521+ foldl:
4522+ while (true) {
4523+ if (!list.b) {
4524+ return acc;
4525+ } else {
4526+ var x = list.a;
4527+ var xs = list.b;
4528+ var $temp$func = func,
4529+ $temp$acc = A2(func, x, acc),
4530+ $temp$list = xs;
4531+ func = $temp$func;
4532+ acc = $temp$acc;
4533+ list = $temp$list;
4534+ continue foldl;
4535+ }
4536+ }
4537+ });
4538+var $elm$core$List$length = function (xs) {
4539+ return A3(
4540+ $elm$core$List$foldl,
4541+ F2(
4542+ function (_v0, i) {
4543+ return i + 1;
4544+ }),
4545+ 0,
4546+ xs);
4547+};
4548+var $elm$core$List$map2 = _List_map2;
4549+var $elm$core$Basics$le = _Utils_le;
4550+var $elm$core$Basics$sub = _Basics_sub;
4551+var $elm$core$List$rangeHelp = F3(
4552+ function (lo, hi, list) {
4553+ rangeHelp:
4554+ while (true) {
4555+ if (_Utils_cmp(lo, hi) < 1) {
4556+ var $temp$lo = lo,
4557+ $temp$hi = hi - 1,
4558+ $temp$list = A2($elm$core$List$cons, hi, list);
4559+ lo = $temp$lo;
4560+ hi = $temp$hi;
4561+ list = $temp$list;
4562+ continue rangeHelp;
4563+ } else {
4564+ return list;
4565+ }
4566+ }
4567+ });
4568+var $elm$core$List$range = F2(
4569+ function (lo, hi) {
4570+ return A3($elm$core$List$rangeHelp, lo, hi, _List_Nil);
4571+ });
4572+var $elm$core$List$indexedMap = F2(
4573+ function (f, xs) {
4574+ return A3(
4575+ $elm$core$List$map2,
4576+ f,
4577+ A2(
4578+ $elm$core$List$range,
4579+ 0,
4580+ $elm$core$List$length(xs) - 1),
4581+ xs);
4582+ });
4583+var $elm$core$Char$toCode = _Char_toCode;
4584+var $elm$core$Char$isLower = function (_char) {
4585+ var code = $elm$core$Char$toCode(_char);
4586+ return (97 <= code) && (code <= 122);
4587+};
4588+var $elm$core$Char$isUpper = function (_char) {
4589+ var code = $elm$core$Char$toCode(_char);
4590+ return (code <= 90) && (65 <= code);
4591+};
4592+var $elm$core$Basics$or = _Basics_or;
4593+var $elm$core$Char$isAlpha = function (_char) {
4594+ return $elm$core$Char$isLower(_char) || $elm$core$Char$isUpper(_char);
4595+};
4596+var $elm$core$Char$isDigit = function (_char) {
4597+ var code = $elm$core$Char$toCode(_char);
4598+ return (code <= 57) && (48 <= code);
4599+};
4600+var $elm$core$Char$isAlphaNum = function (_char) {
4601+ return $elm$core$Char$isLower(_char) || ($elm$core$Char$isUpper(_char) || $elm$core$Char$isDigit(_char));
4602+};
4603+var $elm$core$List$reverse = function (list) {
4604+ return A3($elm$core$List$foldl, $elm$core$List$cons, _List_Nil, list);
4605+};
4606+var $elm$core$String$uncons = _String_uncons;
4607+var $elm$json$Json$Decode$errorOneOf = F2(
4608+ function (i, error) {
4609+ return '\n\n(' + ($elm$core$String$fromInt(i + 1) + (') ' + $elm$json$Json$Decode$indent(
4610+ $elm$json$Json$Decode$errorToString(error))));
4611+ });
4612+var $elm$json$Json$Decode$errorToString = function (error) {
4613+ return A2($elm$json$Json$Decode$errorToStringHelp, error, _List_Nil);
4614+};
4615+var $elm$json$Json$Decode$errorToStringHelp = F2(
4616+ function (error, context) {
4617+ errorToStringHelp:
4618+ while (true) {
4619+ switch (error.$) {
4620+ case 'Field':
4621+ var f = error.a;
4622+ var err = error.b;
4623+ var isSimple = function () {
4624+ var _v1 = $elm$core$String$uncons(f);
4625+ if (_v1.$ === 'Nothing') {
4626+ return false;
4627+ } else {
4628+ var _v2 = _v1.a;
4629+ var _char = _v2.a;
4630+ var rest = _v2.b;
4631+ return $elm$core$Char$isAlpha(_char) && A2($elm$core$String$all, $elm$core$Char$isAlphaNum, rest);
4632+ }
4633+ }();
4634+ var fieldName = isSimple ? ('.' + f) : ('[\'' + (f + '\']'));
4635+ var $temp$error = err,
4636+ $temp$context = A2($elm$core$List$cons, fieldName, context);
4637+ error = $temp$error;
4638+ context = $temp$context;
4639+ continue errorToStringHelp;
4640+ case 'Index':
4641+ var i = error.a;
4642+ var err = error.b;
4643+ var indexName = '[' + ($elm$core$String$fromInt(i) + ']');
4644+ var $temp$error = err,
4645+ $temp$context = A2($elm$core$List$cons, indexName, context);
4646+ error = $temp$error;
4647+ context = $temp$context;
4648+ continue errorToStringHelp;
4649+ case 'OneOf':
4650+ var errors = error.a;
4651+ if (!errors.b) {
4652+ return 'Ran into a Json.Decode.oneOf with no possibilities' + function () {
4653+ if (!context.b) {
4654+ return '!';
4655+ } else {
4656+ return ' at json' + A2(
4657+ $elm$core$String$join,
4658+ '',
4659+ $elm$core$List$reverse(context));
4660+ }
4661+ }();
4662+ } else {
4663+ if (!errors.b.b) {
4664+ var err = errors.a;
4665+ var $temp$error = err,
4666+ $temp$context = context;
4667+ error = $temp$error;
4668+ context = $temp$context;
4669+ continue errorToStringHelp;
4670+ } else {
4671+ var starter = function () {
4672+ if (!context.b) {
4673+ return 'Json.Decode.oneOf';
4674+ } else {
4675+ return 'The Json.Decode.oneOf at json' + A2(
4676+ $elm$core$String$join,
4677+ '',
4678+ $elm$core$List$reverse(context));
4679+ }
4680+ }();
4681+ var introduction = starter + (' failed in the following ' + ($elm$core$String$fromInt(
4682+ $elm$core$List$length(errors)) + ' ways:'));
4683+ return A2(
4684+ $elm$core$String$join,
4685+ '\n\n',
4686+ A2(
4687+ $elm$core$List$cons,
4688+ introduction,
4689+ A2($elm$core$List$indexedMap, $elm$json$Json$Decode$errorOneOf, errors)));
4690+ }
4691+ }
4692+ default:
4693+ var msg = error.a;
4694+ var json = error.b;
4695+ var introduction = function () {
4696+ if (!context.b) {
4697+ return 'Problem with the given value:\n\n';
4698+ } else {
4699+ return 'Problem with the value at json' + (A2(
4700+ $elm$core$String$join,
4701+ '',
4702+ $elm$core$List$reverse(context)) + ':\n\n ');
4703+ }
4704+ }();
4705+ return introduction + ($elm$json$Json$Decode$indent(
4706+ A2($elm$json$Json$Encode$encode, 4, json)) + ('\n\n' + msg));
4707+ }
4708+ }
4709+ });
4710+var $elm$core$Array$branchFactor = 32;
4711+var $elm$core$Array$Array_elm_builtin = F4(
4712+ function (a, b, c, d) {
4713+ return {$: 'Array_elm_builtin', a: a, b: b, c: c, d: d};
4714+ });
4715+var $elm$core$Elm$JsArray$empty = _JsArray_empty;
4716+var $elm$core$Basics$ceiling = _Basics_ceiling;
4717+var $elm$core$Basics$fdiv = _Basics_fdiv;
4718+var $elm$core$Basics$logBase = F2(
4719+ function (base, number) {
4720+ return _Basics_log(number) / _Basics_log(base);
4721+ });
4722+var $elm$core$Basics$toFloat = _Basics_toFloat;
4723+var $elm$core$Array$shiftStep = $elm$core$Basics$ceiling(
4724+ A2($elm$core$Basics$logBase, 2, $elm$core$Array$branchFactor));
4725+var $elm$core$Array$empty = A4($elm$core$Array$Array_elm_builtin, 0, $elm$core$Array$shiftStep, $elm$core$Elm$JsArray$empty, $elm$core$Elm$JsArray$empty);
4726+var $elm$core$Elm$JsArray$initialize = _JsArray_initialize;
4727+var $elm$core$Array$Leaf = function (a) {
4728+ return {$: 'Leaf', a: a};
4729+};
4730+var $elm$core$Basics$apL = F2(
4731+ function (f, x) {
4732+ return f(x);
4733+ });
4734+var $elm$core$Basics$apR = F2(
4735+ function (x, f) {
4736+ return f(x);
4737+ });
4738+var $elm$core$Basics$eq = _Utils_equal;
4739+var $elm$core$Basics$floor = _Basics_floor;
4740+var $elm$core$Elm$JsArray$length = _JsArray_length;
4741+var $elm$core$Basics$gt = _Utils_gt;
4742+var $elm$core$Basics$max = F2(
4743+ function (x, y) {
4744+ return (_Utils_cmp(x, y) > 0) ? x : y;
4745+ });
4746+var $elm$core$Basics$mul = _Basics_mul;
4747+var $elm$core$Array$SubTree = function (a) {
4748+ return {$: 'SubTree', a: a};
4749+};
4750+var $elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
4751+var $elm$core$Array$compressNodes = F2(
4752+ function (nodes, acc) {
4753+ compressNodes:
4754+ while (true) {
4755+ var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodes);
4756+ var node = _v0.a;
4757+ var remainingNodes = _v0.b;
4758+ var newAcc = A2(
4759+ $elm$core$List$cons,
4760+ $elm$core$Array$SubTree(node),
4761+ acc);
4762+ if (!remainingNodes.b) {
4763+ return $elm$core$List$reverse(newAcc);
4764+ } else {
4765+ var $temp$nodes = remainingNodes,
4766+ $temp$acc = newAcc;
4767+ nodes = $temp$nodes;
4768+ acc = $temp$acc;
4769+ continue compressNodes;
4770+ }
4771+ }
4772+ });
4773+var $elm$core$Tuple$first = function (_v0) {
4774+ var x = _v0.a;
4775+ return x;
4776+};
4777+var $elm$core$Array$treeFromBuilder = F2(
4778+ function (nodeList, nodeListSize) {
4779+ treeFromBuilder:
4780+ while (true) {
4781+ var newNodeSize = $elm$core$Basics$ceiling(nodeListSize / $elm$core$Array$branchFactor);
4782+ if (newNodeSize === 1) {
4783+ return A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodeList).a;
4784+ } else {
4785+ var $temp$nodeList = A2($elm$core$Array$compressNodes, nodeList, _List_Nil),
4786+ $temp$nodeListSize = newNodeSize;
4787+ nodeList = $temp$nodeList;
4788+ nodeListSize = $temp$nodeListSize;
4789+ continue treeFromBuilder;
4790+ }
4791+ }
4792+ });
4793+var $elm$core$Array$builderToArray = F2(
4794+ function (reverseNodeList, builder) {
4795+ if (!builder.nodeListSize) {
4796+ return A4(
4797+ $elm$core$Array$Array_elm_builtin,
4798+ $elm$core$Elm$JsArray$length(builder.tail),
4799+ $elm$core$Array$shiftStep,
4800+ $elm$core$Elm$JsArray$empty,
4801+ builder.tail);
4802+ } else {
4803+ var treeLen = builder.nodeListSize * $elm$core$Array$branchFactor;
4804+ var depth = $elm$core$Basics$floor(
4805+ A2($elm$core$Basics$logBase, $elm$core$Array$branchFactor, treeLen - 1));
4806+ var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.nodeList) : builder.nodeList;
4807+ var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.nodeListSize);
4808+ return A4(
4809+ $elm$core$Array$Array_elm_builtin,
4810+ $elm$core$Elm$JsArray$length(builder.tail) + treeLen,
4811+ A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep),
4812+ tree,
4813+ builder.tail);
4814+ }
4815+ });
4816+var $elm$core$Basics$idiv = _Basics_idiv;
4817+var $elm$core$Basics$lt = _Utils_lt;
4818+var $elm$core$Array$initializeHelp = F5(
4819+ function (fn, fromIndex, len, nodeList, tail) {
4820+ initializeHelp:
4821+ while (true) {
4822+ if (fromIndex < 0) {
4823+ return A2(
4824+ $elm$core$Array$builderToArray,
4825+ false,
4826+ {nodeList: nodeList, nodeListSize: (len / $elm$core$Array$branchFactor) | 0, tail: tail});
4827+ } else {
4828+ var leaf = $elm$core$Array$Leaf(
4829+ A3($elm$core$Elm$JsArray$initialize, $elm$core$Array$branchFactor, fromIndex, fn));
4830+ var $temp$fn = fn,
4831+ $temp$fromIndex = fromIndex - $elm$core$Array$branchFactor,
4832+ $temp$len = len,
4833+ $temp$nodeList = A2($elm$core$List$cons, leaf, nodeList),
4834+ $temp$tail = tail;
4835+ fn = $temp$fn;
4836+ fromIndex = $temp$fromIndex;
4837+ len = $temp$len;
4838+ nodeList = $temp$nodeList;
4839+ tail = $temp$tail;
4840+ continue initializeHelp;
4841+ }
4842+ }
4843+ });
4844+var $elm$core$Basics$remainderBy = _Basics_remainderBy;
4845+var $elm$core$Array$initialize = F2(
4846+ function (len, fn) {
4847+ if (len <= 0) {
4848+ return $elm$core$Array$empty;
4849+ } else {
4850+ var tailLen = len % $elm$core$Array$branchFactor;
4851+ var tail = A3($elm$core$Elm$JsArray$initialize, tailLen, len - tailLen, fn);
4852+ var initialFromIndex = (len - tailLen) - $elm$core$Array$branchFactor;
4853+ return A5($elm$core$Array$initializeHelp, fn, initialFromIndex, len, _List_Nil, tail);
4854+ }
4855+ });
4856+var $elm$core$Basics$True = {$: 'True'};
4857+var $elm$core$Result$isOk = function (result) {
4858+ if (result.$ === 'Ok') {
4859+ return true;
4860+ } else {
4861+ return false;
4862+ }
4863+};
4864+var $elm$json$Json$Decode$map = _Json_map1;
4865+var $elm$json$Json$Decode$map2 = _Json_map2;
4866+var $elm$json$Json$Decode$succeed = _Json_succeed;
4867+var $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
4868+ switch (handler.$) {
4869+ case 'Normal':
4870+ return 0;
4871+ case 'MayStopPropagation':
4872+ return 1;
4873+ case 'MayPreventDefault':
4874+ return 2;
4875+ default:
4876+ return 3;
4877+ }
4878+};
4879+var $elm$core$Basics$identity = function (x) {
4880+ return x;
4881+};
4882+var $lynxjs_elm$browser$Browser$Dom$NotFound = function (a) {
4883+ return {$: 'NotFound', a: a};
4884+};
4885+var $elm$core$Basics$never = function (_v0) {
4886+ never:
4887+ while (true) {
4888+ var nvr = _v0.a;
4889+ var $temp$_v0 = nvr;
4890+ _v0 = $temp$_v0;
4891+ continue never;
4892+ }
4893+};
4894+var $elm$core$Task$Perform = function (a) {
4895+ return {$: 'Perform', a: a};
4896+};
4897+var $elm$core$Task$succeed = _Scheduler_succeed;
4898+var $elm$core$Task$init = $elm$core$Task$succeed(_Utils_Tuple0);
4899+var $elm$core$List$foldrHelper = F4(
4900+ function (fn, acc, ctr, ls) {
4901+ if (!ls.b) {
4902+ return acc;
4903+ } else {
4904+ var a = ls.a;
4905+ var r1 = ls.b;
4906+ if (!r1.b) {
4907+ return A2(fn, a, acc);
4908+ } else {
4909+ var b = r1.a;
4910+ var r2 = r1.b;
4911+ if (!r2.b) {
4912+ return A2(
4913+ fn,
4914+ a,
4915+ A2(fn, b, acc));
4916+ } else {
4917+ var c = r2.a;
4918+ var r3 = r2.b;
4919+ if (!r3.b) {
4920+ return A2(
4921+ fn,
4922+ a,
4923+ A2(
4924+ fn,
4925+ b,
4926+ A2(fn, c, acc)));
4927+ } else {
4928+ var d = r3.a;
4929+ var r4 = r3.b;
4930+ var res = (ctr > 500) ? A3(
4931+ $elm$core$List$foldl,
4932+ fn,
4933+ acc,
4934+ $elm$core$List$reverse(r4)) : A4($elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
4935+ return A2(
4936+ fn,
4937+ a,
4938+ A2(
4939+ fn,
4940+ b,
4941+ A2(
4942+ fn,
4943+ c,
4944+ A2(fn, d, res))));
4945+ }
4946+ }
4947+ }
4948+ }
4949+ });
4950+var $elm$core$List$foldr = F3(
4951+ function (fn, acc, ls) {
4952+ return A4($elm$core$List$foldrHelper, fn, acc, 0, ls);
4953+ });
4954+var $elm$core$List$map = F2(
4955+ function (f, xs) {
4956+ return A3(
4957+ $elm$core$List$foldr,
4958+ F2(
4959+ function (x, acc) {
4960+ return A2(
4961+ $elm$core$List$cons,
4962+ f(x),
4963+ acc);
4964+ }),
4965+ _List_Nil,
4966+ xs);
4967+ });
4968+var $elm$core$Task$andThen = _Scheduler_andThen;
4969+var $elm$core$Task$map = F2(
4970+ function (func, taskA) {
4971+ return A2(
4972+ $elm$core$Task$andThen,
4973+ function (a) {
4974+ return $elm$core$Task$succeed(
4975+ func(a));
4976+ },
4977+ taskA);
4978+ });
4979+var $elm$core$Task$map2 = F3(
4980+ function (func, taskA, taskB) {
4981+ return A2(
4982+ $elm$core$Task$andThen,
4983+ function (a) {
4984+ return A2(
4985+ $elm$core$Task$andThen,
4986+ function (b) {
4987+ return $elm$core$Task$succeed(
4988+ A2(func, a, b));
4989+ },
4990+ taskB);
4991+ },
4992+ taskA);
4993+ });
4994+var $elm$core$Task$sequence = function (tasks) {
4995+ return A3(
4996+ $elm$core$List$foldr,
4997+ $elm$core$Task$map2($elm$core$List$cons),
4998+ $elm$core$Task$succeed(_List_Nil),
4999+ tasks);
5000+};
5001+var $elm$core$Platform$sendToApp = _Platform_sendToApp;
5002+var $elm$core$Task$spawnCmd = F2(
5003+ function (router, _v0) {
5004+ var task = _v0.a;
5005+ return _Scheduler_spawn(
5006+ A2(
5007+ $elm$core$Task$andThen,
5008+ $elm$core$Platform$sendToApp(router),
5009+ task));
5010+ });
5011+var $elm$core$Task$onEffects = F3(
5012+ function (router, commands, state) {
5013+ return A2(
5014+ $elm$core$Task$map,
5015+ function (_v0) {
5016+ return _Utils_Tuple0;
5017+ },
5018+ $elm$core$Task$sequence(
5019+ A2(
5020+ $elm$core$List$map,
5021+ $elm$core$Task$spawnCmd(router),
5022+ commands)));
5023+ });
5024+var $elm$core$Task$onSelfMsg = F3(
5025+ function (_v0, _v1, _v2) {
5026+ return $elm$core$Task$succeed(_Utils_Tuple0);
5027+ });
5028+var $elm$core$Task$cmdMap = F2(
5029+ function (tagger, _v0) {
5030+ var task = _v0.a;
5031+ return $elm$core$Task$Perform(
5032+ A2($elm$core$Task$map, tagger, task));
5033+ });
5034+_Platform_effectManagers['Task'] = _Platform_createManager($elm$core$Task$init, $elm$core$Task$onEffects, $elm$core$Task$onSelfMsg, $elm$core$Task$cmdMap);
5035+var $elm$core$Task$command = _Platform_leaf('Task');
5036+var $elm$core$Task$perform = F2(
5037+ function (toMessage, task) {
5038+ return $elm$core$Task$command(
5039+ $elm$core$Task$Perform(
5040+ A2($elm$core$Task$map, toMessage, task)));
5041+ });
5042+var $elm$core$Platform$Cmd$batch = _Platform_batch;
5043+var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil);
5044+var $elm$core$Platform$Sub$batch = _Platform_batch;
5045+var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil);
5046+var $lynxjs_elm$browser$Browser$sandbox = function (impl) {
5047+ return _Browser_element(
5048+ {
5049+ init: function (_v0) {
5050+ return _Utils_Tuple2(impl.init, $elm$core$Platform$Cmd$none);
5051+ },
5052+ subscriptions: function (_v1) {
5053+ return $elm$core$Platform$Sub$none;
5054+ },
5055+ update: F2(
5056+ function (msg, model) {
5057+ return _Utils_Tuple2(
5058+ A2(impl.update, msg, model),
5059+ $elm$core$Platform$Cmd$none);
5060+ }),
5061+ view: impl.view
5062+ });
5063+};
5064+var $author$project$Main$update = F2(
5065+ function (msg, model) {
5066+ if (msg.$ === 'Increment') {
5067+ return _Utils_update(
5068+ model,
5069+ {count: model.count + 1});
5070+ } else {
5071+ return _Utils_update(
5072+ model,
5073+ {count: model.count - 1});
5074+ }
5075+ });
5076+var $lynxjs_elm$ui$Lynx$Attributes$Center = {$: 'Center'};
5077+var $lynxjs_elm$ui$Lynx$Attributes$Column = {$: 'Column'};
5078+var $author$project$Main$Decrement = {$: 'Decrement'};
5079+var $author$project$Main$Increment = {$: 'Increment'};
5080+var $lynxjs_elm$ui$Lynx$Attributes$Row = {$: 'Row'};
5081+var $lynxjs_elm$ui$Lynx$Attributes$alignmentToString = function (a) {
5082+ switch (a.$) {
5083+ case 'Start':
5084+ return 'flex-start';
5085+ case 'Center':
5086+ return 'center';
5087+ case 'End':
5088+ return 'flex-end';
5089+ case 'SpaceBetween':
5090+ return 'space-between';
5091+ case 'SpaceAround':
5092+ return 'space-around';
5093+ case 'SpaceEvenly':
5094+ return 'space-evenly';
5095+ case 'Stretch':
5096+ return 'stretch';
5097+ default:
5098+ return 'baseline';
5099+ }
5100+};
5101+var $lynxjs_elm$virtual_dom$VirtualDom$style = _VirtualDom_style;
5102+var $lynxjs_elm$ui$Lynx$Attributes$style = $lynxjs_elm$virtual_dom$VirtualDom$style;
5103+var $lynxjs_elm$ui$Lynx$Attributes$alignItems = function (a) {
5104+ return A2(
5105+ $lynxjs_elm$ui$Lynx$Attributes$style,
5106+ 'alignItems',
5107+ $lynxjs_elm$ui$Lynx$Attributes$alignmentToString(a));
5108+};
5109+var $lynxjs_elm$ui$Lynx$Attributes$backgroundColor = $lynxjs_elm$ui$Lynx$Attributes$style('backgroundColor');
5110+var $lynxjs_elm$ui$Lynx$Attributes$pxStyle = F2(
5111+ function (key, val) {
5112+ return A2(
5113+ $lynxjs_elm$virtual_dom$VirtualDom$style,
5114+ key,
5115+ $elm$core$String$fromInt(val) + 'px');
5116+ });
5117+var $lynxjs_elm$ui$Lynx$Attributes$borderRadius = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('borderRadius');
5118+var $lynxjs_elm$ui$Lynx$Attributes$color = $lynxjs_elm$ui$Lynx$Attributes$style('color');
5119+var $lynxjs_elm$ui$Lynx$Attributes$fontSize = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('fontSize');
5120+var $lynxjs_elm$virtual_dom$VirtualDom$Normal = function (a) {
5121+ return {$: 'Normal', a: a};
5122+};
5123+var $lynxjs_elm$virtual_dom$VirtualDom$on = _VirtualDom_on;
5124+var $lynxjs_elm$ui$Lynx$Events$onTap = function (msg) {
5125+ return A2(
5126+ $lynxjs_elm$virtual_dom$VirtualDom$on,
5127+ 'tap',
5128+ $lynxjs_elm$virtual_dom$VirtualDom$Normal(
5129+ $elm$json$Json$Decode$succeed(msg)));
5130+};
5131+var $lynxjs_elm$ui$Lynx$Attributes$paddingBottom = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingBottom');
5132+var $lynxjs_elm$ui$Lynx$Attributes$paddingLeft = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingLeft');
5133+var $lynxjs_elm$ui$Lynx$Attributes$paddingRight = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingRight');
5134+var $lynxjs_elm$ui$Lynx$Attributes$paddingTop = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('paddingTop');
5135+var $lynxjs_elm$virtual_dom$VirtualDom$node = function (tag) {
5136+ return _VirtualDom_node(
5137+ _VirtualDom_noScript(tag));
5138+};
5139+var $lynxjs_elm$ui$Lynx$text = $lynxjs_elm$virtual_dom$VirtualDom$node('text');
5140+var $lynxjs_elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
5141+var $lynxjs_elm$ui$Lynx$textContent = $lynxjs_elm$virtual_dom$VirtualDom$text;
5142+var $lynxjs_elm$ui$Lynx$view = $lynxjs_elm$virtual_dom$VirtualDom$node('view');
5143+var $author$project$Main$button = F2(
5144+ function (msg, label) {
5145+ return A2(
5146+ $lynxjs_elm$ui$Lynx$view,
5147+ _List_fromArray(
5148+ [
5149+ $lynxjs_elm$ui$Lynx$Events$onTap(msg),
5150+ $lynxjs_elm$ui$Lynx$Attributes$backgroundColor('#4a90d9'),
5151+ $lynxjs_elm$ui$Lynx$Attributes$borderRadius(8),
5152+ $lynxjs_elm$ui$Lynx$Attributes$paddingTop(12),
5153+ $lynxjs_elm$ui$Lynx$Attributes$paddingBottom(12),
5154+ $lynxjs_elm$ui$Lynx$Attributes$paddingLeft(24),
5155+ $lynxjs_elm$ui$Lynx$Attributes$paddingRight(24)
5156+ ]),
5157+ _List_fromArray(
5158+ [
5159+ A2(
5160+ $lynxjs_elm$ui$Lynx$text,
5161+ _List_fromArray(
5162+ [
5163+ $lynxjs_elm$ui$Lynx$Attributes$color('#ffffff'),
5164+ $lynxjs_elm$ui$Lynx$Attributes$fontSize(24)
5165+ ]),
5166+ _List_fromArray(
5167+ [
5168+ $lynxjs_elm$ui$Lynx$textContent(label)
5169+ ]))
5170+ ]));
5171+ });
5172+var $lynxjs_elm$ui$Lynx$Attributes$intStyle = F2(
5173+ function (key, val) {
5174+ return A2(
5175+ $lynxjs_elm$virtual_dom$VirtualDom$style,
5176+ key,
5177+ $elm$core$String$fromInt(val));
5178+ });
5179+var $lynxjs_elm$ui$Lynx$Attributes$flex = $lynxjs_elm$ui$Lynx$Attributes$intStyle('flex');
5180+var $lynxjs_elm$ui$Lynx$Attributes$flexDirection = function (d) {
5181+ return A2(
5182+ $lynxjs_elm$ui$Lynx$Attributes$style,
5183+ 'flexDirection',
5184+ function () {
5185+ switch (d.$) {
5186+ case 'Row':
5187+ return 'row';
5188+ case 'Column':
5189+ return 'column';
5190+ case 'RowReverse':
5191+ return 'row-reverse';
5192+ default:
5193+ return 'column-reverse';
5194+ }
5195+ }());
5196+};
5197+var $lynxjs_elm$ui$Lynx$Attributes$justifyContent = function (a) {
5198+ return A2(
5199+ $lynxjs_elm$ui$Lynx$Attributes$style,
5200+ 'justifyContent',
5201+ $lynxjs_elm$ui$Lynx$Attributes$alignmentToString(a));
5202+};
5203+var $lynxjs_elm$ui$Lynx$Attributes$marginLeft = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('marginLeft');
5204+var $lynxjs_elm$ui$Lynx$Attributes$marginRight = $lynxjs_elm$ui$Lynx$Attributes$pxStyle('marginRight');
5205+var $author$project$Main$view = function (model) {
5206+ return A2(
5207+ $lynxjs_elm$ui$Lynx$view,
5208+ _List_fromArray(
5209+ [
5210+ $lynxjs_elm$ui$Lynx$Attributes$flexDirection($lynxjs_elm$ui$Lynx$Attributes$Column),
5211+ $lynxjs_elm$ui$Lynx$Attributes$alignItems($lynxjs_elm$ui$Lynx$Attributes$Center),
5212+ $lynxjs_elm$ui$Lynx$Attributes$justifyContent($lynxjs_elm$ui$Lynx$Attributes$Center),
5213+ $lynxjs_elm$ui$Lynx$Attributes$flex(1)
5214+ ]),
5215+ _List_fromArray(
5216+ [
5217+ A2(
5218+ $lynxjs_elm$ui$Lynx$view,
5219+ _List_fromArray(
5220+ [
5221+ $lynxjs_elm$ui$Lynx$Attributes$flexDirection($lynxjs_elm$ui$Lynx$Attributes$Row),
5222+ $lynxjs_elm$ui$Lynx$Attributes$alignItems($lynxjs_elm$ui$Lynx$Attributes$Center)
5223+ ]),
5224+ _List_fromArray(
5225+ [
5226+ A2($author$project$Main$button, $author$project$Main$Decrement, '-'),
5227+ A2(
5228+ $lynxjs_elm$ui$Lynx$text,
5229+ _List_fromArray(
5230+ [
5231+ $lynxjs_elm$ui$Lynx$Attributes$fontSize(32),
5232+ $lynxjs_elm$ui$Lynx$Attributes$marginLeft(20),
5233+ $lynxjs_elm$ui$Lynx$Attributes$marginRight(20)
5234+ ]),
5235+ _List_fromArray(
5236+ [
5237+ $lynxjs_elm$ui$Lynx$textContent(
5238+ $elm$core$String$fromInt(model.count))
5239+ ])),
5240+ A2($author$project$Main$button, $author$project$Main$Increment, '+')
5241+ ]))
5242+ ]));
5243+};
5244+var $author$project$Main$main = $lynxjs_elm$browser$Browser$sandbox(
5245+ {init: $author$project$Main$init, update: $author$project$Main$update, view: $author$project$Main$view});
5246+_Platform_export({'Main':{'init':$author$project$Main$main(
5247+ $elm$json$Json$Decode$succeed(_Utils_Tuple0))(0)}});}(globalThis));
5248+var app = Elm.Main.init({});
5249+</script>
5250+</body>
5251+</html>
examples/counter/main.lynx.bundlenew file

Binary file not shown.

examples/counter/src/Main.elmnew file+105
@@ -0,0 +1,105 @@
1+module Main exposing (main)
2+
3+{-| Phase 2-4 verification: TEA with events.
4+Counter app with increment/decrement via tap events.
5+-}
6+
7+import Browser
8+import Lynx
9+import Lynx.Attributes as Attr exposing (Alignment(..), FlexDirection(..))
10+import Lynx.Events exposing (onTap)
11+import VirtualDom exposing (Node)
12+
13+
14+
15+-- MAIN
16+
17+
18+main : Program () Model Msg
19+main =
20+ Browser.sandbox
21+ { init = init
22+ , view = view
23+ , update = update
24+ }
25+
26+
27+
28+-- MODEL
29+
30+
31+type alias Model =
32+ { count : Int
33+ }
34+
35+
36+init : Model
37+init =
38+ { count = 0
39+ }
40+
41+
42+
43+-- UPDATE
44+
45+
46+type Msg
47+ = Increment
48+ | Decrement
49+
50+
51+update : Msg -> Model -> Model
52+update msg model =
53+ case msg of
54+ Increment ->
55+ { model | count = model.count + 1 }
56+
57+ Decrement ->
58+ { model | count = model.count - 1 }
59+
60+
61+
62+-- VIEW
63+
64+
65+view : Model -> Node Msg
66+view model =
67+ Lynx.view
68+ [ Attr.flexDirection Column
69+ , Attr.alignItems Center
70+ , Attr.justifyContent Center
71+ , Attr.flex 1
72+ ]
73+ [ Lynx.view
74+ [ Attr.flexDirection Row
75+ , Attr.alignItems Center
76+ ]
77+ [ button Decrement "-"
78+ , Lynx.text
79+ [ Attr.fontSize 32
80+ , Attr.marginLeft 20
81+ , Attr.marginRight 20
82+ ]
83+ [ Lynx.textContent (String.fromInt model.count) ]
84+ , button Increment "+"
85+ ]
86+ ]
87+
88+
89+button : Msg -> String -> Node Msg
90+button msg label =
91+ Lynx.view
92+ [ onTap msg
93+ , Attr.backgroundColor "#4a90d9"
94+ , Attr.borderRadius 8
95+ , Attr.paddingTop 12
96+ , Attr.paddingBottom 12
97+ , Attr.paddingLeft 24
98+ , Attr.paddingRight 24
99+ ]
100+ [ Lynx.text
101+ [ Attr.color "#ffffff"
102+ , Attr.fontSize 24
103+ ]
104+ [ Lynx.textContent label ]
105+ ]
examples/hello-world/elm.jsnew file+3697
@@ -0,0 +1,3697 @@
1+(function(scope){
2+'use strict';
3+
4+function F(arity, fun, wrapper) {
5+ wrapper.a = arity;
6+ wrapper.f = fun;
7+ return wrapper;
8+}
9+
10+function F2(fun) {
11+ return F(2, fun, function(a) { return function(b) { return fun(a,b); }; })
12+}
13+function F3(fun) {
14+ return F(3, fun, function(a) {
15+ return function(b) { return function(c) { return fun(a, b, c); }; };
16+ });
17+}
18+function F4(fun) {
19+ return F(4, fun, function(a) { return function(b) { return function(c) {
20+ return function(d) { return fun(a, b, c, d); }; }; };
21+ });
22+}
23+function F5(fun) {
24+ return F(5, fun, function(a) { return function(b) { return function(c) {
25+ return function(d) { return function(e) { return fun(a, b, c, d, e); }; }; }; };
26+ });
27+}
28+function F6(fun) {
29+ return F(6, fun, function(a) { return function(b) { return function(c) {
30+ return function(d) { return function(e) { return function(f) {
31+ return fun(a, b, c, d, e, f); }; }; }; }; };
32+ });
33+}
34+function F7(fun) {
35+ return F(7, fun, function(a) { return function(b) { return function(c) {
36+ return function(d) { return function(e) { return function(f) {
37+ return function(g) { return fun(a, b, c, d, e, f, g); }; }; }; }; }; };
38+ });
39+}
40+function F8(fun) {
41+ return F(8, fun, function(a) { return function(b) { return function(c) {
42+ return function(d) { return function(e) { return function(f) {
43+ return function(g) { return function(h) {
44+ return fun(a, b, c, d, e, f, g, h); }; }; }; }; }; }; };
45+ });
46+}
47+function F9(fun) {
48+ return F(9, fun, function(a) { return function(b) { return function(c) {
49+ return function(d) { return function(e) { return function(f) {
50+ return function(g) { return function(h) { return function(i) {
51+ return fun(a, b, c, d, e, f, g, h, i); }; }; }; }; }; }; }; };
52+ });
53+}
54+
55+function A2(fun, a, b) {
56+ return fun.a === 2 ? fun.f(a, b) : fun(a)(b);
57+}
58+function A3(fun, a, b, c) {
59+ return fun.a === 3 ? fun.f(a, b, c) : fun(a)(b)(c);
60+}
61+function A4(fun, a, b, c, d) {
62+ return fun.a === 4 ? fun.f(a, b, c, d) : fun(a)(b)(c)(d);
63+}
64+function A5(fun, a, b, c, d, e) {
65+ return fun.a === 5 ? fun.f(a, b, c, d, e) : fun(a)(b)(c)(d)(e);
66+}
67+function A6(fun, a, b, c, d, e, f) {
68+ return fun.a === 6 ? fun.f(a, b, c, d, e, f) : fun(a)(b)(c)(d)(e)(f);
69+}
70+function A7(fun, a, b, c, d, e, f, g) {
71+ return fun.a === 7 ? fun.f(a, b, c, d, e, f, g) : fun(a)(b)(c)(d)(e)(f)(g);
72+}
73+function A8(fun, a, b, c, d, e, f, g, h) {
74+ return fun.a === 8 ? fun.f(a, b, c, d, e, f, g, h) : fun(a)(b)(c)(d)(e)(f)(g)(h);
75+}
76+function A9(fun, a, b, c, d, e, f, g, h, i) {
77+ return fun.a === 9 ? fun.f(a, b, c, d, e, f, g, h, i) : fun(a)(b)(c)(d)(e)(f)(g)(h)(i);
78+}
79+
80+console.warn('Compiled in DEV mode. Follow the advice at https://elm-lang.org/0.19.1/optimize for better performance and smaller assets.');
81+
82+
83+var _JsArray_empty = [];
84+
85+function _JsArray_singleton(value)
86+{
87+ return [value];
88+}
89+
90+function _JsArray_length(array)
91+{
92+ return array.length;
93+}
94+
95+var _JsArray_initialize = F3(function(size, offset, func)
96+{
97+ var result = new Array(size);
98+
99+ for (var i = 0; i < size; i++)
100+ {
101+ result[i] = func(offset + i);
102+ }
103+
104+ return result;
105+});
106+
107+var _JsArray_initializeFromList = F2(function (max, ls)
108+{
109+ var result = new Array(max);
110+
111+ for (var i = 0; i < max && ls.b; i++)
112+ {
113+ result[i] = ls.a;
114+ ls = ls.b;
115+ }
116+
117+ result.length = i;
118+ return _Utils_Tuple2(result, ls);
119+});
120+
121+var _JsArray_unsafeGet = F2(function(index, array)
122+{
123+ return array[index];
124+});
125+
126+var _JsArray_unsafeSet = F3(function(index, value, array)
127+{
128+ var length = array.length;
129+ var result = new Array(length);
130+
131+ for (var i = 0; i < length; i++)
132+ {
133+ result[i] = array[i];
134+ }
135+
136+ result[index] = value;
137+ return result;
138+});
139+
140+var _JsArray_push = F2(function(value, array)
141+{
142+ var length = array.length;
143+ var result = new Array(length + 1);
144+
145+ for (var i = 0; i < length; i++)
146+ {
147+ result[i] = array[i];
148+ }
149+
150+ result[length] = value;
151+ return result;
152+});
153+
154+var _JsArray_foldl = F3(function(func, acc, array)
155+{
156+ var length = array.length;
157+
158+ for (var i = 0; i < length; i++)
159+ {
160+ acc = A2(func, array[i], acc);
161+ }
162+
163+ return acc;
164+});
165+
166+var _JsArray_foldr = F3(function(func, acc, array)
167+{
168+ for (var i = array.length - 1; i >= 0; i--)
169+ {
170+ acc = A2(func, array[i], acc);
171+ }
172+
173+ return acc;
174+});
175+
176+var _JsArray_map = F2(function(func, array)
177+{
178+ var length = array.length;
179+ var result = new Array(length);
180+
181+ for (var i = 0; i < length; i++)
182+ {
183+ result[i] = func(array[i]);
184+ }
185+
186+ return result;
187+});
188+
189+var _JsArray_indexedMap = F3(function(func, offset, array)
190+{
191+ var length = array.length;
192+ var result = new Array(length);
193+
194+ for (var i = 0; i < length; i++)
195+ {
196+ result[i] = A2(func, offset + i, array[i]);
197+ }
198+
199+ return result;
200+});
201+
202+var _JsArray_slice = F3(function(from, to, array)
203+{
204+ return array.slice(from, to);
205+});
206+
207+var _JsArray_appendN = F3(function(n, dest, source)
208+{
209+ var destLen = dest.length;
210+ var itemsToCopy = n - destLen;
211+
212+ if (itemsToCopy > source.length)
213+ {
214+ itemsToCopy = source.length;
215+ }
216+
217+ var size = destLen + itemsToCopy;
218+ var result = new Array(size);
219+
220+ for (var i = 0; i < destLen; i++)
221+ {
222+ result[i] = dest[i];
223+ }
224+
225+ for (var i = 0; i < itemsToCopy; i++)
226+ {
227+ result[i + destLen] = source[i];
228+ }
229+
230+ return result;
231+});
232+
233+
234+
235+// LOG
236+
237+var _Debug_log_UNUSED = F2(function(tag, value)
238+{
239+ return value;
240+});
241+
242+var _Debug_log = F2(function(tag, value)
243+{
244+ console.log(tag + ': ' + _Debug_toString(value));
245+ return value;
246+});
247+
248+
249+// TODOS
250+
251+function _Debug_todo(moduleName, region)
252+{
253+ return function(message) {
254+ _Debug_crash(8, moduleName, region, message);
255+ };
256+}
257+
258+function _Debug_todoCase(moduleName, region, value)
259+{
260+ return function(message) {
261+ _Debug_crash(9, moduleName, region, value, message);
262+ };
263+}
264+
265+
266+// TO STRING
267+
268+function _Debug_toString_UNUSED(value)
269+{
270+ return '<internals>';
271+}
272+
273+function _Debug_toString(value)
274+{
275+ return _Debug_toAnsiString(false, value);
276+}
277+
278+function _Debug_toAnsiString(ansi, value)
279+{
280+ if (typeof value === 'function')
281+ {
282+ return _Debug_internalColor(ansi, '<function>');
283+ }
284+
285+ if (typeof value === 'boolean')
286+ {
287+ return _Debug_ctorColor(ansi, value ? 'True' : 'False');
288+ }
289+
290+ if (typeof value === 'number')
291+ {
292+ return _Debug_numberColor(ansi, value + '');
293+ }
294+
295+ if (value instanceof String)
296+ {
297+ return _Debug_charColor(ansi, "'" + _Debug_addSlashes(value, true) + "'");
298+ }
299+
300+ if (typeof value === 'string')
301+ {
302+ return _Debug_stringColor(ansi, '"' + _Debug_addSlashes(value, false) + '"');
303+ }
304+
305+ if (typeof value === 'object' && '$' in value)
306+ {
307+ var tag = value.$;
308+
309+ if (typeof tag === 'number')
310+ {
311+ return _Debug_internalColor(ansi, '<internals>');
312+ }
313+
314+ if (tag[0] === '#')
315+ {
316+ var output = [];
317+ for (var k in value)
318+ {
319+ if (k === '$') continue;
320+ output.push(_Debug_toAnsiString(ansi, value[k]));
321+ }
322+ return '(' + output.join(',') + ')';
323+ }
324+
325+ if (tag === 'Set_elm_builtin')
326+ {
327+ return _Debug_ctorColor(ansi, 'Set')
328+ + _Debug_fadeColor(ansi, '.fromList') + ' '
329+ + _Debug_toAnsiString(ansi, $elm$core$Set$toList(value));
330+ }
331+
332+ if (tag === 'RBNode_elm_builtin' || tag === 'RBEmpty_elm_builtin')
333+ {
334+ return _Debug_ctorColor(ansi, 'Dict')
335+ + _Debug_fadeColor(ansi, '.fromList') + ' '
336+ + _Debug_toAnsiString(ansi, $elm$core$Dict$toList(value));
337+ }
338+
339+ if (tag === 'Array_elm_builtin')
340+ {
341+ return _Debug_ctorColor(ansi, 'Array')
342+ + _Debug_fadeColor(ansi, '.fromList') + ' '
343+ + _Debug_toAnsiString(ansi, $elm$core$Array$toList(value));
344+ }
345+
346+ if (tag === '::' || tag === '[]')
347+ {
348+ var output = '[';
349+
350+ value.b && (output += _Debug_toAnsiString(ansi, value.a), value = value.b)
351+
352+ for (; value.b; value = value.b) // WHILE_CONS
353+ {
354+ output += ',' + _Debug_toAnsiString(ansi, value.a);
355+ }
356+ return output + ']';
357+ }
358+
359+ var output = '';
360+ for (var i in value)
361+ {
362+ if (i === '$') continue;
363+ var str = _Debug_toAnsiString(ansi, value[i]);
364+ var c0 = str[0];
365+ var parenless = c0 === '{' || c0 === '(' || c0 === '[' || c0 === '<' || c0 === '"' || str.indexOf(' ') < 0;
366+ output += ' ' + (parenless ? str : '(' + str + ')');
367+ }
368+ return _Debug_ctorColor(ansi, tag) + output;
369+ }
370+
371+ if (typeof DataView === 'function' && value instanceof DataView)
372+ {
373+ return _Debug_stringColor(ansi, '<' + value.byteLength + ' bytes>');
374+ }
375+
376+ if (typeof File !== 'undefined' && value instanceof File)
377+ {
378+ return _Debug_internalColor(ansi, '<' + value.name + '>');
379+ }
380+
381+ if (typeof value === 'object')
382+ {
383+ var output = [];
384+ for (var key in value)
385+ {
386+ var field = key[0] === '_' ? key.slice(1) : key;
387+ output.push(_Debug_fadeColor(ansi, field) + ' = ' + _Debug_toAnsiString(ansi, value[key]));
388+ }
389+ if (output.length === 0)
390+ {
391+ return '{}';
392+ }
393+ return '{ ' + output.join(', ') + ' }';
394+ }
395+
396+ return _Debug_internalColor(ansi, '<internals>');
397+}
398+
399+function _Debug_addSlashes(str, isChar)
400+{
401+ var s = str
402+ .replace(/\\/g, '\\\\')
403+ .replace(/\n/g, '\\n')
404+ .replace(/\t/g, '\\t')
405+ .replace(/\r/g, '\\r')
406+ .replace(/\v/g, '\\v')
407+ .replace(/\0/g, '\\0');
408+
409+ if (isChar)
410+ {
411+ return s.replace(/\'/g, '\\\'');
412+ }
413+ else
414+ {
415+ return s.replace(/\"/g, '\\"');
416+ }
417+}
418+
419+function _Debug_ctorColor(ansi, string)
420+{
421+ return ansi ? '\x1b[96m' + string + '\x1b[0m' : string;
422+}
423+
424+function _Debug_numberColor(ansi, string)
425+{
426+ return ansi ? '\x1b[95m' + string + '\x1b[0m' : string;
427+}
428+
429+function _Debug_stringColor(ansi, string)
430+{
431+ return ansi ? '\x1b[93m' + string + '\x1b[0m' : string;
432+}
433+
434+function _Debug_charColor(ansi, string)
435+{
436+ return ansi ? '\x1b[92m' + string + '\x1b[0m' : string;
437+}
438+
439+function _Debug_fadeColor(ansi, string)
440+{
441+ return ansi ? '\x1b[37m' + string + '\x1b[0m' : string;
442+}
443+
444+function _Debug_internalColor(ansi, string)
445+{
446+ return ansi ? '\x1b[36m' + string + '\x1b[0m' : string;
447+}
448+
449+function _Debug_toHexDigit(n)
450+{
451+ return String.fromCharCode(n < 10 ? 48 + n : 55 + n);
452+}
453+
454+
455+// CRASH
456+
457+
458+function _Debug_crash_UNUSED(identifier)
459+{
460+ throw new Error('https://github.com/elm/core/blob/1.0.0/hints/' + identifier + '.md');
461+}
462+
463+
464+function _Debug_crash(identifier, fact1, fact2, fact3, fact4)
465+{
466+ switch(identifier)
467+ {
468+ case 0:
469+ throw new Error('What node should I take over? In JavaScript I need something like:\n\n Elm.Main.init({\n node: document.getElementById("elm-node")\n })\n\nYou need to do this with any Browser.sandbox or Browser.element program.');
470+
471+ case 1:
472+ throw new Error('Browser.application programs cannot handle URLs like this:\n\n ' + document.location.href + '\n\nWhat is the root? The root of your file system? Try looking at this program with `elm reactor` or some other server.');
473+
474+ case 2:
475+ var jsonErrorString = fact1;
476+ throw new Error('Problem with the flags given to your Elm program on initialization.\n\n' + jsonErrorString);
477+
478+ case 3:
479+ var portName = fact1;
480+ throw new Error('There can only be one port named `' + portName + '`, but your program has multiple.');
481+
482+ case 4:
483+ var portName = fact1;
484+ var problem = fact2;
485+ throw new Error('Trying to send an unexpected type of value through port `' + portName + '`:\n' + problem);
486+
487+ case 5:
488+ throw new Error('Trying to use `(==)` on functions.\nThere is no way to know if functions are "the same" in the Elm sense.\nRead more about this at https://package.elm-lang.org/packages/elm/core/latest/Basics#== which describes why it is this way and what the better version will look like.');
489+
490+ case 6:
491+ var moduleName = fact1;
492+ throw new Error('Your page is loading multiple Elm scripts with a module named ' + moduleName + '. Maybe a duplicate script is getting loaded accidentally? If not, rename one of them so I know which is which!');
493+
494+ case 8:
495+ var moduleName = fact1;
496+ var region = fact2;
497+ var message = fact3;
498+ throw new Error('TODO in module `' + moduleName + '` ' + _Debug_regionToString(region) + '\n\n' + message);
499+
500+ case 9:
501+ var moduleName = fact1;
502+ var region = fact2;
503+ var value = fact3;
504+ var message = fact4;
505+ throw new Error(
506+ 'TODO in module `' + moduleName + '` from the `case` expression '
507+ + _Debug_regionToString(region) + '\n\nIt received the following value:\n\n '
508+ + _Debug_toString(value).replace('\n', '\n ')
509+ + '\n\nBut the branch that handles it says:\n\n ' + message.replace('\n', '\n ')
510+ );
511+
512+ case 10:
513+ throw new Error('Bug in https://github.com/elm/virtual-dom/issues');
514+
515+ case 11:
516+ throw new Error('Cannot perform mod 0. Division by zero error.');
517+ }
518+}
519+
520+function _Debug_regionToString(region)
521+{
522+ if (region.start.line === region.end.line)
523+ {
524+ return 'on line ' + region.start.line;
525+ }
526+ return 'on lines ' + region.start.line + ' through ' + region.end.line;
527+}
528+
529+
530+
531+// EQUALITY
532+
533+function _Utils_eq(x, y)
534+{
535+ for (
536+ var pair, stack = [], isEqual = _Utils_eqHelp(x, y, 0, stack);
537+ isEqual && (pair = stack.pop());
538+ isEqual = _Utils_eqHelp(pair.a, pair.b, 0, stack)
539+ )
540+ {}
541+
542+ return isEqual;
543+}
544+
545+function _Utils_eqHelp(x, y, depth, stack)
546+{
547+ if (x === y)
548+ {
549+ return true;
550+ }
551+
552+ if (typeof x !== 'object' || x === null || y === null)
553+ {
554+ typeof x === 'function' && _Debug_crash(5);
555+ return false;
556+ }
557+
558+ if (depth > 100)
559+ {
560+ stack.push(_Utils_Tuple2(x,y));
561+ return true;
562+ }
563+
564+ /**/
565+ if (x.$ === 'Set_elm_builtin')
566+ {
567+ x = $elm$core$Set$toList(x);
568+ y = $elm$core$Set$toList(y);
569+ }
570+ if (x.$ === 'RBNode_elm_builtin' || x.$ === 'RBEmpty_elm_builtin')
571+ {
572+ x = $elm$core$Dict$toList(x);
573+ y = $elm$core$Dict$toList(y);
574+ }
575+ //*/
576+
577+ /**_UNUSED/
578+ if (x.$ < 0)
579+ {
580+ x = $elm$core$Dict$toList(x);
581+ y = $elm$core$Dict$toList(y);
582+ }
583+ //*/
584+
585+ for (var key in x)
586+ {
587+ if (!_Utils_eqHelp(x[key], y[key], depth + 1, stack))
588+ {
589+ return false;
590+ }
591+ }
592+ return true;
593+}
594+
595+var _Utils_equal = F2(_Utils_eq);
596+var _Utils_notEqual = F2(function(a, b) { return !_Utils_eq(a,b); });
597+
598+
599+
600+// COMPARISONS
601+
602+// Code in Generate/JavaScript.hs, Basics.js, and List.js depends on
603+// the particular integer values assigned to LT, EQ, and GT.
604+
605+function _Utils_cmp(x, y, ord)
606+{
607+ if (typeof x !== 'object')
608+ {
609+ return x === y ? /*EQ*/ 0 : x < y ? /*LT*/ -1 : /*GT*/ 1;
610+ }
611+
612+ /**/
613+ if (x instanceof String)
614+ {
615+ var a = x.valueOf();
616+ var b = y.valueOf();
617+ return a === b ? 0 : a < b ? -1 : 1;
618+ }
619+ //*/
620+
621+ /**_UNUSED/
622+ if (typeof x.$ === 'undefined')
623+ //*/
624+ /**/
625+ if (x.$[0] === '#')
626+ //*/
627+ {
628+ return (ord = _Utils_cmp(x.a, y.a))
629+ ? ord
630+ : (ord = _Utils_cmp(x.b, y.b))
631+ ? ord
632+ : _Utils_cmp(x.c, y.c);
633+ }
634+
635+ // traverse conses until end of a list or a mismatch
636+ for (; x.b && y.b && !(ord = _Utils_cmp(x.a, y.a)); x = x.b, y = y.b) {} // WHILE_CONSES
637+ return ord || (x.b ? /*GT*/ 1 : y.b ? /*LT*/ -1 : /*EQ*/ 0);
638+}
639+
640+var _Utils_lt = F2(function(a, b) { return _Utils_cmp(a, b) < 0; });
641+var _Utils_le = F2(function(a, b) { return _Utils_cmp(a, b) < 1; });
642+var _Utils_gt = F2(function(a, b) { return _Utils_cmp(a, b) > 0; });
643+var _Utils_ge = F2(function(a, b) { return _Utils_cmp(a, b) >= 0; });
644+
645+var _Utils_compare = F2(function(x, y)
646+{
647+ var n = _Utils_cmp(x, y);
648+ return n < 0 ? $elm$core$Basics$LT : n ? $elm$core$Basics$GT : $elm$core$Basics$EQ;
649+});
650+
651+
652+// COMMON VALUES
653+
654+var _Utils_Tuple0_UNUSED = 0;
655+var _Utils_Tuple0 = { $: '#0' };
656+
657+function _Utils_Tuple2_UNUSED(a, b) { return { a: a, b: b }; }
658+function _Utils_Tuple2(a, b) { return { $: '#2', a: a, b: b }; }
659+
660+function _Utils_Tuple3_UNUSED(a, b, c) { return { a: a, b: b, c: c }; }
661+function _Utils_Tuple3(a, b, c) { return { $: '#3', a: a, b: b, c: c }; }
662+
663+function _Utils_chr_UNUSED(c) { return c; }
664+function _Utils_chr(c) { return new String(c); }
665+
666+
667+// RECORDS
668+
669+function _Utils_update(oldRecord, updatedFields)
670+{
671+ var newRecord = {};
672+
673+ for (var key in oldRecord)
674+ {
675+ newRecord[key] = oldRecord[key];
676+ }
677+
678+ for (var key in updatedFields)
679+ {
680+ newRecord[key] = updatedFields[key];
681+ }
682+
683+ return newRecord;
684+}
685+
686+
687+// APPEND
688+
689+var _Utils_append = F2(_Utils_ap);
690+
691+function _Utils_ap(xs, ys)
692+{
693+ // append Strings
694+ if (typeof xs === 'string')
695+ {
696+ return xs + ys;
697+ }
698+
699+ // append Lists
700+ if (!xs.b)
701+ {
702+ return ys;
703+ }
704+ var root = _List_Cons(xs.a, ys);
705+ xs = xs.b
706+ for (var curr = root; xs.b; xs = xs.b) // WHILE_CONS
707+ {
708+ curr = curr.b = _List_Cons(xs.a, ys);
709+ }
710+ return root;
711+}
712+
713+
714+
715+var _List_Nil_UNUSED = { $: 0 };
716+var _List_Nil = { $: '[]' };
717+
718+function _List_Cons_UNUSED(hd, tl) { return { $: 1, a: hd, b: tl }; }
719+function _List_Cons(hd, tl) { return { $: '::', a: hd, b: tl }; }
720+
721+
722+var _List_cons = F2(_List_Cons);
723+
724+function _List_fromArray(arr)
725+{
726+ var out = _List_Nil;
727+ for (var i = arr.length; i--; )
728+ {
729+ out = _List_Cons(arr[i], out);
730+ }
731+ return out;
732+}
733+
734+function _List_toArray(xs)
735+{
736+ for (var out = []; xs.b; xs = xs.b) // WHILE_CONS
737+ {
738+ out.push(xs.a);
739+ }
740+ return out;
741+}
742+
743+var _List_map2 = F3(function(f, xs, ys)
744+{
745+ for (var arr = []; xs.b && ys.b; xs = xs.b, ys = ys.b) // WHILE_CONSES
746+ {
747+ arr.push(A2(f, xs.a, ys.a));
748+ }
749+ return _List_fromArray(arr);
750+});
751+
752+var _List_map3 = F4(function(f, xs, ys, zs)
753+{
754+ for (var arr = []; xs.b && ys.b && zs.b; xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
755+ {
756+ arr.push(A3(f, xs.a, ys.a, zs.a));
757+ }
758+ return _List_fromArray(arr);
759+});
760+
761+var _List_map4 = F5(function(f, ws, xs, ys, zs)
762+{
763+ for (var arr = []; ws.b && xs.b && ys.b && zs.b; ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
764+ {
765+ arr.push(A4(f, ws.a, xs.a, ys.a, zs.a));
766+ }
767+ return _List_fromArray(arr);
768+});
769+
770+var _List_map5 = F6(function(f, vs, ws, xs, ys, zs)
771+{
772+ for (var arr = []; vs.b && ws.b && xs.b && ys.b && zs.b; vs = vs.b, ws = ws.b, xs = xs.b, ys = ys.b, zs = zs.b) // WHILE_CONSES
773+ {
774+ arr.push(A5(f, vs.a, ws.a, xs.a, ys.a, zs.a));
775+ }
776+ return _List_fromArray(arr);
777+});
778+
779+var _List_sortBy = F2(function(f, xs)
780+{
781+ return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
782+ return _Utils_cmp(f(a), f(b));
783+ }));
784+});
785+
786+var _List_sortWith = F2(function(f, xs)
787+{
788+ return _List_fromArray(_List_toArray(xs).sort(function(a, b) {
789+ var ord = A2(f, a, b);
790+ return ord === $elm$core$Basics$EQ ? 0 : ord === $elm$core$Basics$LT ? -1 : 1;
791+ }));
792+});
793+
794+
795+
796+// MATH
797+
798+var _Basics_add = F2(function(a, b) { return a + b; });
799+var _Basics_sub = F2(function(a, b) { return a - b; });
800+var _Basics_mul = F2(function(a, b) { return a * b; });
801+var _Basics_fdiv = F2(function(a, b) { return a / b; });
802+var _Basics_idiv = F2(function(a, b) { return (a / b) | 0; });
803+var _Basics_pow = F2(Math.pow);
804+
805+var _Basics_remainderBy = F2(function(b, a) { return a % b; });
806+
807+// https://www.microsoft.com/en-us/research/wp-content/uploads/2016/02/divmodnote-letter.pdf
808+var _Basics_modBy = F2(function(modulus, x)
809+{
810+ var answer = x % modulus;
811+ return modulus === 0
812+ ? _Debug_crash(11)
813+ :
814+ ((answer > 0 && modulus < 0) || (answer < 0 && modulus > 0))
815+ ? answer + modulus
816+ : answer;
817+});
818+
819+
820+// TRIGONOMETRY
821+
822+var _Basics_pi = Math.PI;
823+var _Basics_e = Math.E;
824+var _Basics_cos = Math.cos;
825+var _Basics_sin = Math.sin;
826+var _Basics_tan = Math.tan;
827+var _Basics_acos = Math.acos;
828+var _Basics_asin = Math.asin;
829+var _Basics_atan = Math.atan;
830+var _Basics_atan2 = F2(Math.atan2);
831+
832+
833+// MORE MATH
834+
835+function _Basics_toFloat(x) { return x; }
836+function _Basics_truncate(n) { return n | 0; }
837+function _Basics_isInfinite(n) { return n === Infinity || n === -Infinity; }
838+
839+var _Basics_ceiling = Math.ceil;
840+var _Basics_floor = Math.floor;
841+var _Basics_round = Math.round;
842+var _Basics_sqrt = Math.sqrt;
843+var _Basics_log = Math.log;
844+var _Basics_isNaN = isNaN;
845+
846+
847+// BOOLEANS
848+
849+function _Basics_not(bool) { return !bool; }
850+var _Basics_and = F2(function(a, b) { return a && b; });
851+var _Basics_or = F2(function(a, b) { return a || b; });
852+var _Basics_xor = F2(function(a, b) { return a !== b; });
853+
854+
855+
856+var _String_cons = F2(function(chr, str)
857+{
858+ return chr + str;
859+});
860+
861+function _String_uncons(string)
862+{
863+ var word = string.charCodeAt(0);
864+ return !isNaN(word)
865+ ? $elm$core$Maybe$Just(
866+ 0xD800 <= word && word <= 0xDBFF
867+ ? _Utils_Tuple2(_Utils_chr(string[0] + string[1]), string.slice(2))
868+ : _Utils_Tuple2(_Utils_chr(string[0]), string.slice(1))
869+ )
870+ : $elm$core$Maybe$Nothing;
871+}
872+
873+var _String_append = F2(function(a, b)
874+{
875+ return a + b;
876+});
877+
878+function _String_length(str)
879+{
880+ return str.length;
881+}
882+
883+var _String_map = F2(function(func, string)
884+{
885+ var len = string.length;
886+ var array = new Array(len);
887+ var i = 0;
888+ while (i < len)
889+ {
890+ var word = string.charCodeAt(i);
891+ if (0xD800 <= word && word <= 0xDBFF)
892+ {
893+ array[i] = func(_Utils_chr(string[i] + string[i+1]));
894+ i += 2;
895+ continue;
896+ }
897+ array[i] = func(_Utils_chr(string[i]));
898+ i++;
899+ }
900+ return array.join('');
901+});
902+
903+var _String_filter = F2(function(isGood, str)
904+{
905+ var arr = [];
906+ var len = str.length;
907+ var i = 0;
908+ while (i < len)
909+ {
910+ var char = str[i];
911+ var word = str.charCodeAt(i);
912+ i++;
913+ if (0xD800 <= word && word <= 0xDBFF)
914+ {
915+ char += str[i];
916+ i++;
917+ }
918+
919+ if (isGood(_Utils_chr(char)))
920+ {
921+ arr.push(char);
922+ }
923+ }
924+ return arr.join('');
925+});
926+
927+function _String_reverse(str)
928+{
929+ var len = str.length;
930+ var arr = new Array(len);
931+ var i = 0;
932+ while (i < len)
933+ {
934+ var word = str.charCodeAt(i);
935+ if (0xD800 <= word && word <= 0xDBFF)
936+ {
937+ arr[len - i] = str[i + 1];
938+ i++;
939+ arr[len - i] = str[i - 1];
940+ i++;
941+ }
942+ else
943+ {
944+ arr[len - i] = str[i];
945+ i++;
946+ }
947+ }
948+ return arr.join('');
949+}
950+
951+var _String_foldl = F3(function(func, state, string)
952+{
953+ var len = string.length;
954+ var i = 0;
955+ while (i < len)
956+ {
957+ var char = string[i];
958+ var word = string.charCodeAt(i);
959+ i++;
960+ if (0xD800 <= word && word <= 0xDBFF)
961+ {
962+ char += string[i];
963+ i++;
964+ }
965+ state = A2(func, _Utils_chr(char), state);
966+ }
967+ return state;
968+});
969+
970+var _String_foldr = F3(function(func, state, string)
971+{
972+ var i = string.length;
973+ while (i--)
974+ {
975+ var char = string[i];
976+ var word = string.charCodeAt(i);
977+ if (0xDC00 <= word && word <= 0xDFFF)
978+ {
979+ i--;
980+ char = string[i] + char;
981+ }
982+ state = A2(func, _Utils_chr(char), state);
983+ }
984+ return state;
985+});
986+
987+var _String_split = F2(function(sep, str)
988+{
989+ return str.split(sep);
990+});
991+
992+var _String_join = F2(function(sep, strs)
993+{
994+ return strs.join(sep);
995+});
996+
997+var _String_slice = F3(function(start, end, str) {
998+ return str.slice(start, end);
999+});
1000+
1001+function _String_trim(str)
1002+{
1003+ return str.trim();
1004+}
1005+
1006+function _String_trimLeft(str)
1007+{
1008+ return str.replace(/^\s+/, '');
1009+}
1010+
1011+function _String_trimRight(str)
1012+{
1013+ return str.replace(/\s+$/, '');
1014+}
1015+
1016+function _String_words(str)
1017+{
1018+ return _List_fromArray(str.trim().split(/\s+/g));
1019+}
1020+
1021+function _String_lines(str)
1022+{
1023+ return _List_fromArray(str.split(/\r\n|\r|\n/g));
1024+}
1025+
1026+function _String_toUpper(str)
1027+{
1028+ return str.toUpperCase();
1029+}
1030+
1031+function _String_toLower(str)
1032+{
1033+ return str.toLowerCase();
1034+}
1035+
1036+var _String_any = F2(function(isGood, string)
1037+{
1038+ var i = string.length;
1039+ while (i--)
1040+ {
1041+ var char = string[i];
1042+ var word = string.charCodeAt(i);
1043+ if (0xDC00 <= word && word <= 0xDFFF)
1044+ {
1045+ i--;
1046+ char = string[i] + char;
1047+ }
1048+ if (isGood(_Utils_chr(char)))
1049+ {
1050+ return true;
1051+ }
1052+ }
1053+ return false;
1054+});
1055+
1056+var _String_all = F2(function(isGood, string)
1057+{
1058+ var i = string.length;
1059+ while (i--)
1060+ {
1061+ var char = string[i];
1062+ var word = string.charCodeAt(i);
1063+ if (0xDC00 <= word && word <= 0xDFFF)
1064+ {
1065+ i--;
1066+ char = string[i] + char;
1067+ }
1068+ if (!isGood(_Utils_chr(char)))
1069+ {
1070+ return false;
1071+ }
1072+ }
1073+ return true;
1074+});
1075+
1076+var _String_contains = F2(function(sub, str)
1077+{
1078+ return str.indexOf(sub) > -1;
1079+});
1080+
1081+var _String_startsWith = F2(function(sub, str)
1082+{
1083+ return str.indexOf(sub) === 0;
1084+});
1085+
1086+var _String_endsWith = F2(function(sub, str)
1087+{
1088+ return str.length >= sub.length &&
1089+ str.lastIndexOf(sub) === str.length - sub.length;
1090+});
1091+
1092+var _String_indexes = F2(function(sub, str)
1093+{
1094+ var subLen = sub.length;
1095+
1096+ if (subLen < 1)
1097+ {
1098+ return _List_Nil;
1099+ }
1100+
1101+ var i = 0;
1102+ var is = [];
1103+
1104+ while ((i = str.indexOf(sub, i)) > -1)
1105+ {
1106+ is.push(i);
1107+ i = i + subLen;
1108+ }
1109+
1110+ return _List_fromArray(is);
1111+});
1112+
1113+
1114+// TO STRING
1115+
1116+function _String_fromNumber(number)
1117+{
1118+ return number + '';
1119+}
1120+
1121+
1122+// INT CONVERSIONS
1123+
1124+function _String_toInt(str)
1125+{
1126+ var total = 0;
1127+ var code0 = str.charCodeAt(0);
1128+ var start = code0 == 0x2B /* + */ || code0 == 0x2D /* - */ ? 1 : 0;
1129+
1130+ for (var i = start; i < str.length; ++i)
1131+ {
1132+ var code = str.charCodeAt(i);
1133+ if (code < 0x30 || 0x39 < code)
1134+ {
1135+ return $elm$core$Maybe$Nothing;
1136+ }
1137+ total = 10 * total + code - 0x30;
1138+ }
1139+
1140+ return i == start
1141+ ? $elm$core$Maybe$Nothing
1142+ : $elm$core$Maybe$Just(code0 == 0x2D ? -total : total);
1143+}
1144+
1145+
1146+// FLOAT CONVERSIONS
1147+
1148+function _String_toFloat(s)
1149+{
1150+ // check if it is a hex, octal, or binary number
1151+ if (s.length === 0 || /[\sxbo]/.test(s))
1152+ {
1153+ return $elm$core$Maybe$Nothing;
1154+ }
1155+ var n = +s;
1156+ // faster isNaN check
1157+ return n === n ? $elm$core$Maybe$Just(n) : $elm$core$Maybe$Nothing;
1158+}
1159+
1160+function _String_fromList(chars)
1161+{
1162+ return _List_toArray(chars).join('');
1163+}
1164+
1165+
1166+
1167+
1168+function _Char_toCode(char)
1169+{
1170+ var code = char.charCodeAt(0);
1171+ if (0xD800 <= code && code <= 0xDBFF)
1172+ {
1173+ return (code - 0xD800) * 0x400 + char.charCodeAt(1) - 0xDC00 + 0x10000
1174+ }
1175+ return code;
1176+}
1177+
1178+function _Char_fromCode(code)
1179+{
1180+ return _Utils_chr(
1181+ (code < 0 || 0x10FFFF < code)
1182+ ? '\uFFFD'
1183+ :
1184+ (code <= 0xFFFF)
1185+ ? String.fromCharCode(code)
1186+ :
1187+ (code -= 0x10000,
1188+ String.fromCharCode(Math.floor(code / 0x400) + 0xD800, code % 0x400 + 0xDC00)
1189+ )
1190+ );
1191+}
1192+
1193+function _Char_toUpper(char)
1194+{
1195+ return _Utils_chr(char.toUpperCase());
1196+}
1197+
1198+function _Char_toLower(char)
1199+{
1200+ return _Utils_chr(char.toLowerCase());
1201+}
1202+
1203+function _Char_toLocaleUpper(char)
1204+{
1205+ return _Utils_chr(char.toLocaleUpperCase());
1206+}
1207+
1208+function _Char_toLocaleLower(char)
1209+{
1210+ return _Utils_chr(char.toLocaleLowerCase());
1211+}
1212+
1213+
1214+
1215+/**/
1216+function _Json_errorToString(error)
1217+{
1218+ return $elm$json$Json$Decode$errorToString(error);
1219+}
1220+//*/
1221+
1222+
1223+// CORE DECODERS
1224+
1225+function _Json_succeed(msg)
1226+{
1227+ return {
1228+ $: 0,
1229+ a: msg
1230+ };
1231+}
1232+
1233+function _Json_fail(msg)
1234+{
1235+ return {
1236+ $: 1,
1237+ a: msg
1238+ };
1239+}
1240+
1241+function _Json_decodePrim(decoder)
1242+{
1243+ return { $: 2, b: decoder };
1244+}
1245+
1246+var _Json_decodeInt = _Json_decodePrim(function(value) {
1247+ return (typeof value !== 'number')
1248+ ? _Json_expecting('an INT', value)
1249+ :
1250+ (-2147483647 < value && value < 2147483647 && (value | 0) === value)
1251+ ? $elm$core$Result$Ok(value)
1252+ :
1253+ (isFinite(value) && !(value % 1))
1254+ ? $elm$core$Result$Ok(value)
1255+ : _Json_expecting('an INT', value);
1256+});
1257+
1258+var _Json_decodeBool = _Json_decodePrim(function(value) {
1259+ return (typeof value === 'boolean')
1260+ ? $elm$core$Result$Ok(value)
1261+ : _Json_expecting('a BOOL', value);
1262+});
1263+
1264+var _Json_decodeFloat = _Json_decodePrim(function(value) {
1265+ return (typeof value === 'number')
1266+ ? $elm$core$Result$Ok(value)
1267+ : _Json_expecting('a FLOAT', value);
1268+});
1269+
1270+var _Json_decodeValue = _Json_decodePrim(function(value) {
1271+ return $elm$core$Result$Ok(_Json_wrap(value));
1272+});
1273+
1274+var _Json_decodeString = _Json_decodePrim(function(value) {
1275+ return (typeof value === 'string')
1276+ ? $elm$core$Result$Ok(value)
1277+ : (value instanceof String)
1278+ ? $elm$core$Result$Ok(value + '')
1279+ : _Json_expecting('a STRING', value);
1280+});
1281+
1282+function _Json_decodeList(decoder) { return { $: 3, b: decoder }; }
1283+function _Json_decodeArray(decoder) { return { $: 4, b: decoder }; }
1284+
1285+function _Json_decodeNull(value) { return { $: 5, c: value }; }
1286+
1287+var _Json_decodeField = F2(function(field, decoder)
1288+{
1289+ return {
1290+ $: 6,
1291+ d: field,
1292+ b: decoder
1293+ };
1294+});
1295+
1296+var _Json_decodeIndex = F2(function(index, decoder)
1297+{
1298+ return {
1299+ $: 7,
1300+ e: index,
1301+ b: decoder
1302+ };
1303+});
1304+
1305+function _Json_decodeKeyValuePairs(decoder)
1306+{
1307+ return {
1308+ $: 8,
1309+ b: decoder
1310+ };
1311+}
1312+
1313+function _Json_mapMany(f, decoders)
1314+{
1315+ return {
1316+ $: 9,
1317+ f: f,
1318+ g: decoders
1319+ };
1320+}
1321+
1322+var _Json_andThen = F2(function(callback, decoder)
1323+{
1324+ return {
1325+ $: 10,
1326+ b: decoder,
1327+ h: callback
1328+ };
1329+});
1330+
1331+function _Json_oneOf(decoders)
1332+{
1333+ return {
1334+ $: 11,
1335+ g: decoders
1336+ };
1337+}
1338+
1339+
1340+// DECODING OBJECTS
1341+
1342+var _Json_map1 = F2(function(f, d1)
1343+{
1344+ return _Json_mapMany(f, [d1]);
1345+});
1346+
1347+var _Json_map2 = F3(function(f, d1, d2)
1348+{
1349+ return _Json_mapMany(f, [d1, d2]);
1350+});
1351+
1352+var _Json_map3 = F4(function(f, d1, d2, d3)
1353+{
1354+ return _Json_mapMany(f, [d1, d2, d3]);
1355+});
1356+
1357+var _Json_map4 = F5(function(f, d1, d2, d3, d4)
1358+{
1359+ return _Json_mapMany(f, [d1, d2, d3, d4]);
1360+});
1361+
1362+var _Json_map5 = F6(function(f, d1, d2, d3, d4, d5)
1363+{
1364+ return _Json_mapMany(f, [d1, d2, d3, d4, d5]);
1365+});
1366+
1367+var _Json_map6 = F7(function(f, d1, d2, d3, d4, d5, d6)
1368+{
1369+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6]);
1370+});
1371+
1372+var _Json_map7 = F8(function(f, d1, d2, d3, d4, d5, d6, d7)
1373+{
1374+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7]);
1375+});
1376+
1377+var _Json_map8 = F9(function(f, d1, d2, d3, d4, d5, d6, d7, d8)
1378+{
1379+ return _Json_mapMany(f, [d1, d2, d3, d4, d5, d6, d7, d8]);
1380+});
1381+
1382+
1383+// DECODE
1384+
1385+var _Json_runOnString = F2(function(decoder, string)
1386+{
1387+ try
1388+ {
1389+ var value = JSON.parse(string);
1390+ return _Json_runHelp(decoder, value);
1391+ }
1392+ catch (e)
1393+ {
1394+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'This is not valid JSON! ' + e.message, _Json_wrap(string)));
1395+ }
1396+});
1397+
1398+var _Json_run = F2(function(decoder, value)
1399+{
1400+ return _Json_runHelp(decoder, _Json_unwrap(value));
1401+});
1402+
1403+function _Json_runHelp(decoder, value)
1404+{
1405+ switch (decoder.$)
1406+ {
1407+ case 2:
1408+ return decoder.b(value);
1409+
1410+ case 5:
1411+ return (value === null)
1412+ ? $elm$core$Result$Ok(decoder.c)
1413+ : _Json_expecting('null', value);
1414+
1415+ case 3:
1416+ if (!_Json_isArray(value))
1417+ {
1418+ return _Json_expecting('a LIST', value);
1419+ }
1420+ return _Json_runArrayDecoder(decoder.b, value, _List_fromArray);
1421+
1422+ case 4:
1423+ if (!_Json_isArray(value))
1424+ {
1425+ return _Json_expecting('an ARRAY', value);
1426+ }
1427+ return _Json_runArrayDecoder(decoder.b, value, _Json_toElmArray);
1428+
1429+ case 6:
1430+ var field = decoder.d;
1431+ if (typeof value !== 'object' || value === null || !(field in value))
1432+ {
1433+ return _Json_expecting('an OBJECT with a field named `' + field + '`', value);
1434+ }
1435+ var result = _Json_runHelp(decoder.b, value[field]);
1436+ return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, field, result.a));
1437+
1438+ case 7:
1439+ var index = decoder.e;
1440+ if (!_Json_isArray(value))
1441+ {
1442+ return _Json_expecting('an ARRAY', value);
1443+ }
1444+ if (index >= value.length)
1445+ {
1446+ return _Json_expecting('a LONGER array. Need index ' + index + ' but only see ' + value.length + ' entries', value);
1447+ }
1448+ var result = _Json_runHelp(decoder.b, value[index]);
1449+ return ($elm$core$Result$isOk(result)) ? result : $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, index, result.a));
1450+
1451+ case 8:
1452+ if (typeof value !== 'object' || value === null || _Json_isArray(value))
1453+ {
1454+ return _Json_expecting('an OBJECT', value);
1455+ }
1456+
1457+ var keyValuePairs = _List_Nil;
1458+ // TODO test perf of Object.keys and switch when support is good enough
1459+ for (var key in value)
1460+ {
1461+ if (value.hasOwnProperty(key))
1462+ {
1463+ var result = _Json_runHelp(decoder.b, value[key]);
1464+ if (!$elm$core$Result$isOk(result))
1465+ {
1466+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Field, key, result.a));
1467+ }
1468+ keyValuePairs = _List_Cons(_Utils_Tuple2(key, result.a), keyValuePairs);
1469+ }
1470+ }
1471+ return $elm$core$Result$Ok($elm$core$List$reverse(keyValuePairs));
1472+
1473+ case 9:
1474+ var answer = decoder.f;
1475+ var decoders = decoder.g;
1476+ for (var i = 0; i < decoders.length; i++)
1477+ {
1478+ var result = _Json_runHelp(decoders[i], value);
1479+ if (!$elm$core$Result$isOk(result))
1480+ {
1481+ return result;
1482+ }
1483+ answer = answer(result.a);
1484+ }
1485+ return $elm$core$Result$Ok(answer);
1486+
1487+ case 10:
1488+ var result = _Json_runHelp(decoder.b, value);
1489+ return (!$elm$core$Result$isOk(result))
1490+ ? result
1491+ : _Json_runHelp(decoder.h(result.a), value);
1492+
1493+ case 11:
1494+ var errors = _List_Nil;
1495+ for (var temp = decoder.g; temp.b; temp = temp.b) // WHILE_CONS
1496+ {
1497+ var result = _Json_runHelp(temp.a, value);
1498+ if ($elm$core$Result$isOk(result))
1499+ {
1500+ return result;
1501+ }
1502+ errors = _List_Cons(result.a, errors);
1503+ }
1504+ return $elm$core$Result$Err($elm$json$Json$Decode$OneOf($elm$core$List$reverse(errors)));
1505+
1506+ case 1:
1507+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, decoder.a, _Json_wrap(value)));
1508+
1509+ case 0:
1510+ return $elm$core$Result$Ok(decoder.a);
1511+ }
1512+}
1513+
1514+function _Json_runArrayDecoder(decoder, value, toElmValue)
1515+{
1516+ var len = value.length;
1517+ var array = new Array(len);
1518+ for (var i = 0; i < len; i++)
1519+ {
1520+ var result = _Json_runHelp(decoder, value[i]);
1521+ if (!$elm$core$Result$isOk(result))
1522+ {
1523+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Index, i, result.a));
1524+ }
1525+ array[i] = result.a;
1526+ }
1527+ return $elm$core$Result$Ok(toElmValue(array));
1528+}
1529+
1530+function _Json_isArray(value)
1531+{
1532+ return Array.isArray(value) || (typeof FileList !== 'undefined' && value instanceof FileList);
1533+}
1534+
1535+function _Json_toElmArray(array)
1536+{
1537+ return A2($elm$core$Array$initialize, array.length, function(i) { return array[i]; });
1538+}
1539+
1540+function _Json_expecting(type, value)
1541+{
1542+ return $elm$core$Result$Err(A2($elm$json$Json$Decode$Failure, 'Expecting ' + type, _Json_wrap(value)));
1543+}
1544+
1545+
1546+// EQUALITY
1547+
1548+function _Json_equality(x, y)
1549+{
1550+ if (x === y)
1551+ {
1552+ return true;
1553+ }
1554+
1555+ if (x.$ !== y.$)
1556+ {
1557+ return false;
1558+ }
1559+
1560+ switch (x.$)
1561+ {
1562+ case 0:
1563+ case 1:
1564+ return x.a === y.a;
1565+
1566+ case 2:
1567+ return x.b === y.b;
1568+
1569+ case 5:
1570+ return x.c === y.c;
1571+
1572+ case 3:
1573+ case 4:
1574+ case 8:
1575+ return _Json_equality(x.b, y.b);
1576+
1577+ case 6:
1578+ return x.d === y.d && _Json_equality(x.b, y.b);
1579+
1580+ case 7:
1581+ return x.e === y.e && _Json_equality(x.b, y.b);
1582+
1583+ case 9:
1584+ return x.f === y.f && _Json_listEquality(x.g, y.g);
1585+
1586+ case 10:
1587+ return x.h === y.h && _Json_equality(x.b, y.b);
1588+
1589+ case 11:
1590+ return _Json_listEquality(x.g, y.g);
1591+ }
1592+}
1593+
1594+function _Json_listEquality(aDecoders, bDecoders)
1595+{
1596+ var len = aDecoders.length;
1597+ if (len !== bDecoders.length)
1598+ {
1599+ return false;
1600+ }
1601+ for (var i = 0; i < len; i++)
1602+ {
1603+ if (!_Json_equality(aDecoders[i], bDecoders[i]))
1604+ {
1605+ return false;
1606+ }
1607+ }
1608+ return true;
1609+}
1610+
1611+
1612+// ENCODE
1613+
1614+var _Json_encode = F2(function(indentLevel, value)
1615+{
1616+ return JSON.stringify(_Json_unwrap(value), null, indentLevel) + '';
1617+});
1618+
1619+function _Json_wrap(value) { return { $: 0, a: value }; }
1620+function _Json_unwrap(value) { return value.a; }
1621+
1622+function _Json_wrap_UNUSED(value) { return value; }
1623+function _Json_unwrap_UNUSED(value) { return value; }
1624+
1625+function _Json_emptyArray() { return []; }
1626+function _Json_emptyObject() { return {}; }
1627+
1628+var _Json_addField = F3(function(key, value, object)
1629+{
1630+ object[key] = _Json_unwrap(value);
1631+ return object;
1632+});
1633+
1634+function _Json_addEntry(func)
1635+{
1636+ return F2(function(entry, array)
1637+ {
1638+ array.push(_Json_unwrap(func(entry)));
1639+ return array;
1640+ });
1641+}
1642+
1643+var _Json_encodeNull = _Json_wrap(null);
1644+
1645+
1646+
1647+var _Lynx_g = (typeof globalThis !== 'undefined' ? globalThis : scope);
1648+function _Lynx_papi(name) { return _Lynx_g['_' + '_' + name] || function() {}; }
1649+function _Lynx_createElement(tag) {
1650+ var pId = (_Lynx_g['native'] && _Lynx_g['native']['currentPageId']) || 0;
1651+ var creators = { 'view': 'CreateView', 'text': 'CreateText', 'image': 'CreateImage' };
1652+ var name = creators[tag] || 'CreateView';
1653+ var fn = _Lynx_g['_' + '_' + name];
1654+ if (typeof fn === 'function') { return fn(pId); }
1655+ return _Lynx_papi('CreateElement')(tag, pId);
1656+}
1657+function _Lynx_createRawText(text) {
1658+ var fn = _Lynx_g['_' + '_CreateRawText'];
1659+ if (typeof fn === 'function') { return fn(text); }
1660+ return {};
1661+}
1662+var _Lynx_appendChild = _Lynx_papi('AppendElement');
1663+var _Lynx_removeElement = _Lynx_papi('RemoveElement');
1664+var _Lynx_replaceElement = _Lynx_papi('ReplaceElement');
1665+var _Lynx_insertBefore = _Lynx_papi('InsertElementBefore');
1666+var _Lynx_setAttribute = _Lynx_papi('SetAttribute');
1667+var _Lynx_getChildren = _Lynx_g['_' + '_GetChildren'] || function() { return []; };
1668+var _Lynx_getParent = _Lynx_g['_' + '_GetParent'] || function() { return null; };
1669+var _Lynx_addEvent = _Lynx_papi('AddEvent');
1670+var _Lynx_setInlineStyles = _Lynx_papi('SetInlineStyles');
1671+var _VirtualDom_elementMeta = new Map();
1672+function _VirtualDom_getMeta(el) {
1673+ var meta = _VirtualDom_elementMeta.get(el);
1674+ if (!meta) { meta = {}; _VirtualDom_elementMeta.set(el, meta); }
1675+ return meta;
1676+}
1677+
1678+
1679+// HELPERS
1680+
1681+
1682+
1683+
1684+
1685+function _VirtualDom_appendChild(parent, child)
1686+{
1687+ _Lynx_appendChild(parent, child);
1688+}
1689+
1690+var _VirtualDom_init = F4(function(virtualNode, flagDecoder, debugMetadata, args)
1691+{
1692+ // NOTE: this function needs _Platform_export available to work
1693+ var rootPage = args['node'] || _Lynx_g['page'];
1694+ var tree = _VirtualDom_render(virtualNode, function() {});
1695+ _Lynx_appendChild(rootPage, tree);
1696+ return {};
1697+});
1698+
1699+
1700+
1701+// TEXT
1702+
1703+
1704+function _VirtualDom_text(string)
1705+{
1706+ return {
1707+ $: 0,
1708+ a: string
1709+ };
1710+}
1711+
1712+
1713+
1714+// NODE
1715+
1716+
1717+var _VirtualDom_nodeNS = F2(function(namespace, tag)
1718+{
1719+ return F2(function(factList, kidList)
1720+ {
1721+ for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
1722+ {
1723+ var kid = kidList.a;
1724+ descendantsCount += (kid.b || 0);
1725+ kids.push(kid);
1726+ }
1727+ descendantsCount += kids.length;
1728+
1729+ return {
1730+ $: 1,
1731+ c: tag,
1732+ d: _VirtualDom_organizeFacts(factList),
1733+ e: kids,
1734+ f: namespace,
1735+ b: descendantsCount
1736+ };
1737+ });
1738+});
1739+
1740+
1741+var _VirtualDom_node = _VirtualDom_nodeNS(undefined);
1742+
1743+
1744+
1745+// KEYED NODE
1746+
1747+
1748+var _VirtualDom_keyedNodeNS = F2(function(namespace, tag)
1749+{
1750+ return F2(function(factList, kidList)
1751+ {
1752+ for (var kids = [], descendantsCount = 0; kidList.b; kidList = kidList.b) // WHILE_CONS
1753+ {
1754+ var kid = kidList.a;
1755+ descendantsCount += (kid.b.b || 0);
1756+ kids.push(kid);
1757+ }
1758+ descendantsCount += kids.length;
1759+
1760+ return {
1761+ $: 2,
1762+ c: tag,
1763+ d: _VirtualDom_organizeFacts(factList),
1764+ e: kids,
1765+ f: namespace,
1766+ b: descendantsCount
1767+ };
1768+ });
1769+});
1770+
1771+
1772+var _VirtualDom_keyedNode = _VirtualDom_keyedNodeNS(undefined);
1773+
1774+
1775+
1776+// CUSTOM
1777+
1778+
1779+function _VirtualDom_custom(factList, model, render, diff)
1780+{
1781+ return {
1782+ $: 3,
1783+ d: _VirtualDom_organizeFacts(factList),
1784+ g: model,
1785+ h: render,
1786+ i: diff
1787+ };
1788+}
1789+
1790+
1791+
1792+// MAP
1793+
1794+
1795+var _VirtualDom_map = F2(function(tagger, node)
1796+{
1797+ return {
1798+ $: 4,
1799+ j: tagger,
1800+ k: node,
1801+ b: 1 + (node.b || 0)
1802+ };
1803+});
1804+
1805+
1806+
1807+// LAZY
1808+
1809+
1810+function _VirtualDom_thunk(refs, thunk)
1811+{
1812+ return {
1813+ $: 5,
1814+ l: refs,
1815+ m: thunk,
1816+ k: undefined
1817+ };
1818+}
1819+
1820+var _VirtualDom_lazy = F2(function(func, a)
1821+{
1822+ return _VirtualDom_thunk([func, a], function() {
1823+ return func(a);
1824+ });
1825+});
1826+
1827+var _VirtualDom_lazy2 = F3(function(func, a, b)
1828+{
1829+ return _VirtualDom_thunk([func, a, b], function() {
1830+ return A2(func, a, b);
1831+ });
1832+});
1833+
1834+var _VirtualDom_lazy3 = F4(function(func, a, b, c)
1835+{
1836+ return _VirtualDom_thunk([func, a, b, c], function() {
1837+ return A3(func, a, b, c);
1838+ });
1839+});
1840+
1841+var _VirtualDom_lazy4 = F5(function(func, a, b, c, d)
1842+{
1843+ return _VirtualDom_thunk([func, a, b, c, d], function() {
1844+ return A4(func, a, b, c, d);
1845+ });
1846+});
1847+
1848+var _VirtualDom_lazy5 = F6(function(func, a, b, c, d, e)
1849+{
1850+ return _VirtualDom_thunk([func, a, b, c, d, e], function() {
1851+ return A5(func, a, b, c, d, e);
1852+ });
1853+});
1854+
1855+var _VirtualDom_lazy6 = F7(function(func, a, b, c, d, e, f)
1856+{
1857+ return _VirtualDom_thunk([func, a, b, c, d, e, f], function() {
1858+ return A6(func, a, b, c, d, e, f);
1859+ });
1860+});
1861+
1862+var _VirtualDom_lazy7 = F8(function(func, a, b, c, d, e, f, g)
1863+{
1864+ return _VirtualDom_thunk([func, a, b, c, d, e, f, g], function() {
1865+ return A7(func, a, b, c, d, e, f, g);
1866+ });
1867+});
1868+
1869+var _VirtualDom_lazy8 = F9(function(func, a, b, c, d, e, f, g, h)
1870+{
1871+ return _VirtualDom_thunk([func, a, b, c, d, e, f, g, h], function() {
1872+ return A8(func, a, b, c, d, e, f, g, h);
1873+ });
1874+});
1875+
1876+
1877+
1878+// FACTS
1879+
1880+
1881+var _VirtualDom_on = F2(function(key, handler)
1882+{
1883+ return {
1884+ $: 'a0',
1885+ n: key,
1886+ o: handler
1887+ };
1888+});
1889+var _VirtualDom_style = F2(function(key, value)
1890+{
1891+ return {
1892+ $: 'a1',
1893+ n: key,
1894+ o: value
1895+ };
1896+});
1897+var _VirtualDom_property = F2(function(key, value)
1898+{
1899+ return {
1900+ $: 'a2',
1901+ n: key,
1902+ o: value
1903+ };
1904+});
1905+var _VirtualDom_attribute = F2(function(key, value)
1906+{
1907+ return {
1908+ $: 'a3',
1909+ n: key,
1910+ o: value
1911+ };
1912+});
1913+var _VirtualDom_attributeNS = F3(function(namespace, key, value)
1914+{
1915+ return {
1916+ $: 'a4',
1917+ n: key,
1918+ o: { f: namespace, o: value }
1919+ };
1920+});
1921+
1922+
1923+
1924+// XSS ATTACK VECTOR CHECKS
1925+//
1926+// For some reason, tabs can appear in href protocols and it still works.
1927+// So '\tjava\tSCRIPT:alert("!!!")' and 'javascript:alert("!!!")' are the same
1928+// in practice. That is why _VirtualDom_RE_js and _VirtualDom_RE_js_html look
1929+// so freaky.
1930+//
1931+// Pulling the regular expressions out to the top level gives a slight speed
1932+// boost in small benchmarks (4-10%) but hoisting values to reduce allocation
1933+// can be unpredictable in large programs where JIT may have a harder time with
1934+// functions are not fully self-contained. The benefit is more that the js and
1935+// js_html ones are so weird that I prefer to see them near each other.
1936+
1937+
1938+
1939+
1940+
1941+function _VirtualDom_noScript(tag)
1942+{
1943+ return tag;
1944+}
1945+
1946+function _VirtualDom_noOnOrFormAction(key)
1947+{
1948+ return key;
1949+}
1950+
1951+function _VirtualDom_noInnerHtmlOrFormAction(key)
1952+{
1953+ return key;
1954+}
1955+
1956+function _VirtualDom_noJavaScriptUri(value)
1957+{
1958+ return value;
1959+}
1960+
1961+function _VirtualDom_noJavaScriptOrHtmlUri(value)
1962+{
1963+ return value;
1964+}
1965+
1966+function _VirtualDom_noJavaScriptOrHtmlJson(value)
1967+{
1968+ return value;
1969+}
1970+
1971+
1972+
1973+// MAP FACTS
1974+
1975+
1976+var _VirtualDom_mapAttribute = F2(function(func, attr)
1977+{
1978+ return (attr.$ === 'a0')
1979+ ? A2(_VirtualDom_on, attr.n, _VirtualDom_mapHandler(func, attr.o))
1980+ : attr;
1981+});
1982+
1983+function _VirtualDom_mapHandler(func, handler)
1984+{
1985+ var tag = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(handler);
1986+
1987+ // 0 = Normal
1988+ // 1 = MayStopPropagation
1989+ // 2 = MayPreventDefault
1990+ // 3 = Custom
1991+
1992+ return {
1993+ $: handler.$,
1994+ a:
1995+ !tag
1996+ ? A2($elm$json$Json$Decode$map, func, handler.a)
1997+ :
1998+ A3($elm$json$Json$Decode$map2,
1999+ tag < 3
2000+ ? _VirtualDom_mapEventTuple
2001+ : _VirtualDom_mapEventRecord,
2002+ $elm$json$Json$Decode$succeed(func),
2003+ handler.a
2004+ )
2005+ };
2006+}
2007+
2008+var _VirtualDom_mapEventTuple = F2(function(func, tuple)
2009+{
2010+ return _Utils_Tuple2(func(tuple.a), tuple.b);
2011+});
2012+
2013+var _VirtualDom_mapEventRecord = F2(function(func, record)
2014+{
2015+ return {
2016+ message: func(record.message),
2017+ stopPropagation: record.stopPropagation,
2018+ preventDefault: record.preventDefault
2019+ }
2020+});
2021+
2022+
2023+
2024+// ORGANIZE FACTS
2025+
2026+
2027+function _VirtualDom_organizeFacts(factList)
2028+{
2029+ for (var facts = {}; factList.b; factList = factList.b) // WHILE_CONS
2030+ {
2031+ var entry = factList.a;
2032+
2033+ var tag = entry.$;
2034+ var key = entry.n;
2035+ var value = entry.o;
2036+
2037+ if (tag === 'a2')
2038+ {
2039+ (key === 'className')
2040+ ? _VirtualDom_addClass(facts, key, _Json_unwrap(value))
2041+ : facts[key] = _Json_unwrap(value);
2042+
2043+ continue;
2044+ }
2045+
2046+ var subFacts = facts[tag] || (facts[tag] = {});
2047+ (tag === 'a3' && key === 'class')
2048+ ? _VirtualDom_addClass(subFacts, key, value)
2049+ : subFacts[key] = value;
2050+ }
2051+
2052+ return facts;
2053+}
2054+
2055+function _VirtualDom_addClass(object, key, newClass)
2056+{
2057+ var classes = object[key];
2058+ object[key] = classes ? classes + ' ' + newClass : newClass;
2059+}
2060+
2061+
2062+
2063+// RENDER
2064+
2065+
2066+function _VirtualDom_render(vNode, eventNode)
2067+{
2068+ var tag = vNode.$;
2069+
2070+ if (tag === 5)
2071+ {
2072+ return _VirtualDom_render(vNode.k || (vNode.k = vNode.m()), eventNode);
2073+ }
2074+
2075+ if (tag === 0)
2076+ {
2077+ return _Lynx_createRawText(vNode.a);
2078+ }
2079+
2080+ if (tag === 4)
2081+ {
2082+ var subNode = vNode.k;
2083+ var tagger = vNode.j;
2084+
2085+ while (subNode.$ === 4)
2086+ {
2087+ typeof tagger !== 'object'
2088+ ? tagger = [tagger, subNode.j]
2089+ : tagger.push(subNode.j);
2090+
2091+ subNode = subNode.k;
2092+ }
2093+
2094+ var subEventRoot = { j: tagger, p: eventNode };
2095+ var domNode = _VirtualDom_render(subNode, subEventRoot);
2096+ _VirtualDom_getMeta(domNode).elm_event_node_ref = subEventRoot;
2097+ return domNode;
2098+ }
2099+
2100+ if (tag === 3)
2101+ {
2102+ var domNode = vNode.h(vNode.g);
2103+ _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
2104+ return domNode;
2105+ }
2106+
2107+ // at this point `tag` must be 1 or 2
2108+
2109+ var domNode = _Lynx_createElement(vNode.c);
2110+
2111+ _VirtualDom_applyFacts(domNode, eventNode, vNode.d);
2112+
2113+ for (var kids = vNode.e, i = 0; i < kids.length; i++)
2114+ {
2115+ var kid = tag === 1 ? kids[i] : kids[i].b;
2116+ if (kid.$ === 0)
2117+ {
2118+ _Lynx_appendChild(domNode, _Lynx_createRawText(kid.a));
2119+ }
2120+ else
2121+ {
2122+ _VirtualDom_appendChild(domNode, _VirtualDom_render(kid, eventNode));
2123+ }
2124+ }
2125+
2126+ return domNode;
2127+}
2128+
2129+
2130+
2131+// APPLY FACTS
2132+
2133+
2134+function _VirtualDom_applyFacts(domNode, eventNode, facts)
2135+{
2136+ for (var key in facts)
2137+ {
2138+ var value = facts[key];
2139+
2140+ key === 'a1'
2141+ ? _VirtualDom_applyStyles(domNode, value)
2142+ :
2143+ key === 'a0'
2144+ ? _VirtualDom_applyEvents(domNode, eventNode, value)
2145+ :
2146+ key === 'a3'
2147+ ? _VirtualDom_applyAttrs(domNode, value)
2148+ :
2149+ key === 'a4'
2150+ ? _VirtualDom_applyAttrsNS(domNode, value)
2151+ :
2152+ (key !== 'value' && key !== 'checked' || domNode[key] !== value) && _Lynx_setAttribute(domNode, key === 'className' ? 'class' : key, String(value));
2153+ }
2154+}
2155+
2156+
2157+
2158+// APPLY STYLES
2159+
2160+
2161+function _VirtualDom_applyStyles(domNode, styles)
2162+{
2163+ var _sIS = _Lynx_g['_' + '_SetInlineStyles'];
2164+ if (typeof _sIS === 'function')
2165+ {
2166+ _sIS(domNode, styles);
2167+ }
2168+}
2169+
2170+
2171+
2172+// APPLY ATTRS
2173+
2174+
2175+function _VirtualDom_applyAttrs(domNode, attrs)
2176+{
2177+ for (var key in attrs)
2178+ {
2179+ var value = attrs[key];
2180+ if (typeof value !== 'undefined')
2181+ {
2182+ _Lynx_setAttribute(domNode, key, value);
2183+ }
2184+ }
2185+}
2186+
2187+
2188+
2189+// APPLY NAMESPACED ATTRS
2190+
2191+
2192+function _VirtualDom_applyAttrsNS(domNode, nsAttrs)
2193+{
2194+ for (var key in nsAttrs)
2195+ {
2196+ var pair = nsAttrs[key];
2197+ var value = pair.o;
2198+
2199+ if (typeof value !== 'undefined')
2200+ {
2201+ _Lynx_setAttribute(domNode, key, value);
2202+ }
2203+ }
2204+}
2205+
2206+
2207+
2208+// APPLY EVENTS
2209+
2210+
2211+function _VirtualDom_applyEvents(domNode, eventNode, events)
2212+{
2213+ var meta = _VirtualDom_getMeta(domNode);
2214+ var allCallbacks = meta.elmFs || (meta.elmFs = {});
2215+
2216+ for (var key in events)
2217+ {
2218+ var newHandler = events[key];
2219+ var oldCallback = allCallbacks[key];
2220+
2221+ if (!newHandler)
2222+ {
2223+ allCallbacks[key] = undefined;
2224+ continue;
2225+ }
2226+
2227+ if (oldCallback)
2228+ {
2229+ var oldHandler = oldCallback.q;
2230+ if (oldHandler.$ === newHandler.$)
2231+ {
2232+ oldCallback.q = newHandler;
2233+ continue;
2234+ }
2235+ }
2236+
2237+ oldCallback = _VirtualDom_makeCallback(eventNode, newHandler);
2238+ allCallbacks[key] = oldCallback;
2239+
2240+ var lynxEventName = _VirtualDom_mapEventName(key);
2241+ var handlerType = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(newHandler);
2242+ var prefix = (handlerType === 1) ? 'catch' : 'bind';
2243+ _Lynx_addEvent(domNode, 'catchEvent', lynxEventName, { type: 'worklet', value: oldCallback });
2244+ }
2245+}
2246+
2247+function _VirtualDom_mapEventName(name)
2248+{
2249+ switch (name)
2250+ {
2251+ case 'click': return 'tap';
2252+ case 'dblclick': return 'tap';
2253+ case 'mousedown': return 'touchstart';
2254+ case 'mousemove': return 'touchmove';
2255+ case 'mouseup': return 'touchend';
2256+ default: return name;
2257+ }
2258+}
2259+
2260+
2261+
2262+// PASSIVE EVENTS
2263+
2264+
2265+
2266+// EVENT HANDLERS
2267+
2268+
2269+function _VirtualDom_makeCallback(eventNode, initialHandler)
2270+{
2271+ function callback(event)
2272+ {
2273+ var handler = callback.q;
2274+ var result = _Json_runHelp(handler.a, event);
2275+
2276+ if (!$elm$core$Result$isOk(result))
2277+ {
2278+ return;
2279+ }
2280+
2281+ var tag = $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt(handler);
2282+
2283+ // 0 = Normal
2284+ // 1 = MayStopPropagation
2285+ // 2 = MayPreventDefault
2286+ // 3 = Custom
2287+
2288+ var value = result.a;
2289+ var message = !tag ? value : tag < 3 ? value.a : value.message;
2290+ var stopPropagation = tag == 1 ? value.b : tag == 3 && value.stopPropagation;
2291+ var currentEventNode = eventNode;
2292+ var tagger;
2293+ var i;
2294+ while (tagger = currentEventNode.j)
2295+ {
2296+ if (typeof tagger == 'function')
2297+ {
2298+ message = tagger(message);
2299+ }
2300+ else
2301+ {
2302+ for (var i = tagger.length; i--; )
2303+ {
2304+ message = tagger[i](message);
2305+ }
2306+ }
2307+ currentEventNode = currentEventNode.p;
2308+ }
2309+ currentEventNode(message, stopPropagation); // stopPropagation implies isSync
2310+ }
2311+
2312+ callback.q = initialHandler;
2313+
2314+ return callback;
2315+}
2316+
2317+function _VirtualDom_equalEvents(x, y)
2318+{
2319+ return x.$ == y.$ && _Json_equality(x.a, y.a);
2320+}
2321+
2322+
2323+
2324+// DIFF
2325+
2326+
2327+// TODO: Should we do patches like in iOS?
2328+//
2329+// type Patch
2330+// = At Int Patch
2331+// | Batch (List Patch)
2332+// | Change ...
2333+//
2334+// How could it not be better?
2335+//
2336+function _VirtualDom_diff(x, y)
2337+{
2338+ var patches = [];
2339+ _VirtualDom_diffHelp(x, y, patches, 0);
2340+ return patches;
2341+}
2342+
2343+
2344+function _VirtualDom_pushPatch(patches, type, index, data)
2345+{
2346+ var patch = {
2347+ $: type,
2348+ r: index,
2349+ s: data,
2350+ t: undefined,
2351+ u: undefined
2352+ };
2353+ patches.push(patch);
2354+ return patch;
2355+}
2356+
2357+
2358+function _VirtualDom_diffHelp(x, y, patches, index)
2359+{
2360+ if (x === y)
2361+ {
2362+ return;
2363+ }
2364+
2365+ var xType = x.$;
2366+ var yType = y.$;
2367+
2368+ // Bail if you run into different types of nodes. Implies that the
2369+ // structure has changed significantly and it's not worth a diff.
2370+ if (xType !== yType)
2371+ {
2372+ if (xType === 1 && yType === 2)
2373+ {
2374+ y = _VirtualDom_dekey(y);
2375+ yType = 1;
2376+ }
2377+ else
2378+ {
2379+ _VirtualDom_pushPatch(patches, 0, index, y);
2380+ return;
2381+ }
2382+ }
2383+
2384+ // Now we know that both nodes are the same $.
2385+ switch (yType)
2386+ {
2387+ case 5:
2388+ var xRefs = x.l;
2389+ var yRefs = y.l;
2390+ var i = xRefs.length;
2391+ var same = i === yRefs.length;
2392+ while (same && i--)
2393+ {
2394+ same = xRefs[i] === yRefs[i];
2395+ }
2396+ if (same)
2397+ {
2398+ y.k = x.k;
2399+ return;
2400+ }
2401+ y.k = y.m();
2402+ var subPatches = [];
2403+ _VirtualDom_diffHelp(x.k, y.k, subPatches, 0);
2404+ subPatches.length > 0 && _VirtualDom_pushPatch(patches, 1, index, subPatches);
2405+ return;
2406+
2407+ case 4:
2408+ // gather nested taggers
2409+ var xTaggers = x.j;
2410+ var yTaggers = y.j;
2411+ var nesting = false;
2412+
2413+ var xSubNode = x.k;
2414+ while (xSubNode.$ === 4)
2415+ {
2416+ nesting = true;
2417+
2418+ typeof xTaggers !== 'object'
2419+ ? xTaggers = [xTaggers, xSubNode.j]
2420+ : xTaggers.push(xSubNode.j);
2421+
2422+ xSubNode = xSubNode.k;
2423+ }
2424+
2425+ var ySubNode = y.k;
2426+ while (ySubNode.$ === 4)
2427+ {
2428+ nesting = true;
2429+
2430+ typeof yTaggers !== 'object'
2431+ ? yTaggers = [yTaggers, ySubNode.j]
2432+ : yTaggers.push(ySubNode.j);
2433+
2434+ ySubNode = ySubNode.k;
2435+ }
2436+
2437+ // Just bail if different numbers of taggers. This implies the
2438+ // structure of the virtual DOM has changed.
2439+ if (nesting && xTaggers.length !== yTaggers.length)
2440+ {
2441+ _VirtualDom_pushPatch(patches, 0, index, y);
2442+ return;
2443+ }
2444+
2445+ // check if taggers are "the same"
2446+ if (nesting ? !_VirtualDom_pairwiseRefEqual(xTaggers, yTaggers) : xTaggers !== yTaggers)
2447+ {
2448+ _VirtualDom_pushPatch(patches, 2, index, yTaggers);
2449+ }
2450+
2451+ // diff everything below the taggers
2452+ _VirtualDom_diffHelp(xSubNode, ySubNode, patches, index + 1);
2453+ return;
2454+
2455+ case 0:
2456+ if (x.a !== y.a)
2457+ {
2458+ _VirtualDom_pushPatch(patches, 3, index, y.a);
2459+ }
2460+ return;
2461+
2462+ case 1:
2463+ _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKids);
2464+ return;
2465+
2466+ case 2:
2467+ _VirtualDom_diffNodes(x, y, patches, index, _VirtualDom_diffKeyedKids);
2468+ return;
2469+
2470+ case 3:
2471+ if (x.h !== y.h)
2472+ {
2473+ _VirtualDom_pushPatch(patches, 0, index, y);
2474+ return;
2475+ }
2476+
2477+ var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
2478+ factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
2479+
2480+ var patch = y.i(x.g, y.g);
2481+ patch && _VirtualDom_pushPatch(patches, 5, index, patch);
2482+
2483+ return;
2484+ }
2485+}
2486+
2487+// assumes the incoming arrays are the same length
2488+function _VirtualDom_pairwiseRefEqual(as, bs)
2489+{
2490+ for (var i = 0; i < as.length; i++)
2491+ {
2492+ if (as[i] !== bs[i])
2493+ {
2494+ return false;
2495+ }
2496+ }
2497+
2498+ return true;
2499+}
2500+
2501+function _VirtualDom_diffNodes(x, y, patches, index, diffKids)
2502+{
2503+ // Bail if obvious indicators have changed. Implies more serious
2504+ // structural changes such that it's not worth it to diff.
2505+ if (x.c !== y.c || x.f !== y.f)
2506+ {
2507+ _VirtualDom_pushPatch(patches, 0, index, y);
2508+ return;
2509+ }
2510+
2511+ var factsDiff = _VirtualDom_diffFacts(x.d, y.d);
2512+ factsDiff && _VirtualDom_pushPatch(patches, 4, index, factsDiff);
2513+
2514+ diffKids(x, y, patches, index);
2515+}
2516+
2517+
2518+
2519+// DIFF FACTS
2520+
2521+
2522+// TODO Instead of creating a new diff object, it's possible to just test if
2523+// there *is* a diff. During the actual patch, do the diff again and make the
2524+// modifications directly. This way, there's no new allocations. Worth it?
2525+function _VirtualDom_diffFacts(x, y, category)
2526+{
2527+ var diff;
2528+
2529+ // look for changes and removals
2530+ for (var xKey in x)
2531+ {
2532+ if (xKey === 'a1' || xKey === 'a0' || xKey === 'a3' || xKey === 'a4')
2533+ {
2534+ var subDiff = _VirtualDom_diffFacts(x[xKey], y[xKey] || {}, xKey);
2535+ if (subDiff)
2536+ {
2537+ diff = diff || {};
2538+ diff[xKey] = subDiff;
2539+ }
2540+ continue;
2541+ }
2542+
2543+ // remove if not in the new facts
2544+ if (!(xKey in y))
2545+ {
2546+ diff = diff || {};
2547+ diff[xKey] =
2548+ !category
2549+ ? (typeof x[xKey] === 'string' ? '' : null)
2550+ :
2551+ (category === 'a1')
2552+ ? ''
2553+ :
2554+ (category === 'a0' || category === 'a3')
2555+ ? undefined
2556+ :
2557+ { f: x[xKey].f, o: undefined };
2558+
2559+ continue;
2560+ }
2561+
2562+ var xValue = x[xKey];
2563+ var yValue = y[xKey];
2564+
2565+ // reference equal, so don't worry about it
2566+ if (xValue === yValue && xKey !== 'value' && xKey !== 'checked'
2567+ || category === 'a0' && _VirtualDom_equalEvents(xValue, yValue))
2568+ {
2569+ continue;
2570+ }
2571+
2572+ diff = diff || {};
2573+ diff[xKey] = yValue;
2574+ }
2575+
2576+ // add new stuff
2577+ for (var yKey in y)
2578+ {
2579+ if (!(yKey in x))
2580+ {
2581+ diff = diff || {};
2582+ diff[yKey] = y[yKey];
2583+ }
2584+ }
2585+
2586+ return diff;
2587+}
2588+
2589+
2590+
2591+// DIFF KIDS
2592+
2593+
2594+function _VirtualDom_diffKids(xParent, yParent, patches, index)
2595+{
2596+ var xKids = xParent.e;
2597+ var yKids = yParent.e;
2598+
2599+ var xLen = xKids.length;
2600+ var yLen = yKids.length;
2601+
2602+ // FIGURE OUT IF THERE ARE INSERTS OR REMOVALS
2603+
2604+ if (xLen > yLen)
2605+ {
2606+ _VirtualDom_pushPatch(patches, 6, index, {
2607+ v: yLen,
2608+ i: xLen - yLen
2609+ });
2610+ }
2611+ else if (xLen < yLen)
2612+ {
2613+ _VirtualDom_pushPatch(patches, 7, index, {
2614+ v: xLen,
2615+ e: yKids
2616+ });
2617+ }
2618+
2619+ // PAIRWISE DIFF EVERYTHING ELSE
2620+
2621+ for (var minLen = xLen < yLen ? xLen : yLen, i = 0; i < minLen; i++)
2622+ {
2623+ var xKid = xKids[i];
2624+ _VirtualDom_diffHelp(xKid, yKids[i], patches, ++index);
2625+ index += xKid.b || 0;
2626+ }
2627+}
2628+
2629+
2630+
2631+// KEYED DIFF
2632+
2633+
2634+function _VirtualDom_diffKeyedKids(xParent, yParent, patches, rootIndex)
2635+{
2636+ var localPatches = [];
2637+
2638+ var changes = {}; // Dict String Entry
2639+ var inserts = []; // Array { index : Int, entry : Entry }
2640+ // type Entry = { tag : String, vnode : VNode, index : Int, data : _ }
2641+
2642+ var xKids = xParent.e;
2643+ var yKids = yParent.e;
2644+ var xLen = xKids.length;
2645+ var yLen = yKids.length;
2646+ var xIndex = 0;
2647+ var yIndex = 0;
2648+
2649+ var index = rootIndex;
2650+
2651+ while (xIndex < xLen && yIndex < yLen)
2652+ {
2653+ var x = xKids[xIndex];
2654+ var y = yKids[yIndex];
2655+
2656+ var xKey = x.a;
2657+ var yKey = y.a;
2658+ var xNode = x.b;
2659+ var yNode = y.b;
2660+
2661+ var newMatch = undefined;
2662+ var oldMatch = undefined;
2663+
2664+ // check if keys match
2665+
2666+ if (xKey === yKey)
2667+ {
2668+ index++;
2669+ _VirtualDom_diffHelp(xNode, yNode, localPatches, index);
2670+ index += xNode.b || 0;
2671+
2672+ xIndex++;
2673+ yIndex++;
2674+ continue;
2675+ }
2676+
2677+ // look ahead 1 to detect insertions and removals.
2678+
2679+ var xNext = xKids[xIndex + 1];
2680+ var yNext = yKids[yIndex + 1];
2681+
2682+ if (xNext)
2683+ {
2684+ var xNextKey = xNext.a;
2685+ var xNextNode = xNext.b;
2686+ oldMatch = yKey === xNextKey;
2687+ }
2688+
2689+ if (yNext)
2690+ {
2691+ var yNextKey = yNext.a;
2692+ var yNextNode = yNext.b;
2693+ newMatch = xKey === yNextKey;
2694+ }
2695+
2696+
2697+ // swap x and y
2698+ if (newMatch && oldMatch)
2699+ {
2700+ index++;
2701+ _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
2702+ _VirtualDom_insertNode(changes, localPatches, xKey, yNode, yIndex, inserts);
2703+ index += xNode.b || 0;
2704+
2705+ index++;
2706+ _VirtualDom_removeNode(changes, localPatches, xKey, xNextNode, index);
2707+ index += xNextNode.b || 0;
2708+
2709+ xIndex += 2;
2710+ yIndex += 2;
2711+ continue;
2712+ }
2713+
2714+ // insert y
2715+ if (newMatch)
2716+ {
2717+ index++;
2718+ _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
2719+ _VirtualDom_diffHelp(xNode, yNextNode, localPatches, index);
2720+ index += xNode.b || 0;
2721+
2722+ xIndex += 1;
2723+ yIndex += 2;
2724+ continue;
2725+ }
2726+
2727+ // remove x
2728+ if (oldMatch)
2729+ {
2730+ index++;
2731+ _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
2732+ index += xNode.b || 0;
2733+
2734+ index++;
2735+ _VirtualDom_diffHelp(xNextNode, yNode, localPatches, index);
2736+ index += xNextNode.b || 0;
2737+
2738+ xIndex += 2;
2739+ yIndex += 1;
2740+ continue;
2741+ }
2742+
2743+ // remove x, insert y
2744+ if (xNext && xNextKey === yNextKey)
2745+ {
2746+ index++;
2747+ _VirtualDom_removeNode(changes, localPatches, xKey, xNode, index);
2748+ _VirtualDom_insertNode(changes, localPatches, yKey, yNode, yIndex, inserts);
2749+ index += xNode.b || 0;
2750+
2751+ index++;
2752+ _VirtualDom_diffHelp(xNextNode, yNextNode, localPatches, index);
2753+ index += xNextNode.b || 0;
2754+
2755+ xIndex += 2;
2756+ yIndex += 2;
2757+ continue;
2758+ }
2759+
2760+ break;
2761+ }
2762+
2763+ // eat up any remaining nodes with removeNode and insertNode
2764+
2765+ while (xIndex < xLen)
2766+ {
2767+ index++;
2768+ var x = xKids[xIndex];
2769+ var xNode = x.b;
2770+ _VirtualDom_removeNode(changes, localPatches, x.a, xNode, index);
2771+ index += xNode.b || 0;
2772+ xIndex++;
2773+ }
2774+
2775+ while (yIndex < yLen)
2776+ {
2777+ var endInserts = endInserts || [];
2778+ var y = yKids[yIndex];
2779+ _VirtualDom_insertNode(changes, localPatches, y.a, y.b, undefined, endInserts);
2780+ yIndex++;
2781+ }
2782+
2783+ if (localPatches.length > 0 || inserts.length > 0 || endInserts)
2784+ {
2785+ _VirtualDom_pushPatch(patches, 8, rootIndex, {
2786+ w: localPatches,
2787+ x: inserts,
2788+ y: endInserts
2789+ });
2790+ }
2791+}
2792+
2793+
2794+
2795+// CHANGES FROM KEYED DIFF
2796+
2797+
2798+var _VirtualDom_POSTFIX = '_elmW6BL';
2799+
2800+
2801+function _VirtualDom_insertNode(changes, localPatches, key, vnode, yIndex, inserts)
2802+{
2803+ var entry = changes[key];
2804+
2805+ // never seen this key before
2806+ if (!entry)
2807+ {
2808+ entry = {
2809+ c: 0,
2810+ z: vnode,
2811+ r: yIndex,
2812+ s: undefined
2813+ };
2814+
2815+ inserts.push({ r: yIndex, A: entry });
2816+ changes[key] = entry;
2817+
2818+ return;
2819+ }
2820+
2821+ // this key was removed earlier, a match!
2822+ if (entry.c === 1)
2823+ {
2824+ inserts.push({ r: yIndex, A: entry });
2825+
2826+ entry.c = 2;
2827+ var subPatches = [];
2828+ _VirtualDom_diffHelp(entry.z, vnode, subPatches, entry.r);
2829+ entry.r = yIndex;
2830+ entry.s.s = {
2831+ w: subPatches,
2832+ A: entry
2833+ };
2834+
2835+ return;
2836+ }
2837+
2838+ // this key has already been inserted or moved, a duplicate!
2839+ _VirtualDom_insertNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, yIndex, inserts);
2840+}
2841+
2842+
2843+function _VirtualDom_removeNode(changes, localPatches, key, vnode, index)
2844+{
2845+ var entry = changes[key];
2846+
2847+ // never seen this key before
2848+ if (!entry)
2849+ {
2850+ var patch = _VirtualDom_pushPatch(localPatches, 9, index, undefined);
2851+
2852+ changes[key] = {
2853+ c: 1,
2854+ z: vnode,
2855+ r: index,
2856+ s: patch
2857+ };
2858+
2859+ return;
2860+ }
2861+
2862+ // this key was inserted earlier, a match!
2863+ if (entry.c === 0)
2864+ {
2865+ entry.c = 2;
2866+ var subPatches = [];
2867+ _VirtualDom_diffHelp(vnode, entry.z, subPatches, index);
2868+
2869+ _VirtualDom_pushPatch(localPatches, 9, index, {
2870+ w: subPatches,
2871+ A: entry
2872+ });
2873+
2874+ return;
2875+ }
2876+
2877+ // this key has already been removed or moved, a duplicate!
2878+ _VirtualDom_removeNode(changes, localPatches, key + _VirtualDom_POSTFIX, vnode, index);
2879+}
2880+
2881+
2882+
2883+// ADD DOM NODES
2884+//
2885+// Each DOM node has an "index" assigned in order of traversal. It is important
2886+// to minimize our crawl over the actual DOM, so these indexes (along with the
2887+// descendantsCount of virtual nodes) let us skip touching entire subtrees of
2888+// the DOM if we know there are no patches there.
2889+
2890+
2891+function _VirtualDom_addDomNodes(domNode, vNode, patches, eventNode)
2892+{
2893+ _VirtualDom_addDomNodesHelp(domNode, vNode, patches, 0, 0, vNode.b, eventNode);
2894+}
2895+
2896+
2897+// assumes `patches` is non-empty and indexes increase monotonically.
2898+function _VirtualDom_addDomNodesHelp(domNode, vNode, patches, i, low, high, eventNode)
2899+{
2900+ var patch = patches[i];
2901+ var index = patch.r;
2902+
2903+ while (index === low)
2904+ {
2905+ var patchType = patch.$;
2906+
2907+ if (patchType === 1)
2908+ {
2909+ _VirtualDom_addDomNodes(domNode, vNode.k, patch.s, eventNode);
2910+ }
2911+ else if (patchType === 8)
2912+ {
2913+ patch.t = domNode;
2914+ patch.u = eventNode;
2915+
2916+ var subPatches = patch.s.w;
2917+ if (subPatches.length > 0)
2918+ {
2919+ _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
2920+ }
2921+ }
2922+ else if (patchType === 9)
2923+ {
2924+ patch.t = domNode;
2925+ patch.u = eventNode;
2926+
2927+ var data = patch.s;
2928+ if (data)
2929+ {
2930+ data.A.s = domNode;
2931+ var subPatches = data.w;
2932+ if (subPatches.length > 0)
2933+ {
2934+ _VirtualDom_addDomNodesHelp(domNode, vNode, subPatches, 0, low, high, eventNode);
2935+ }
2936+ }
2937+ }
2938+ else
2939+ {
2940+ patch.t = domNode;
2941+ patch.u = eventNode;
2942+ }
2943+
2944+ i++;
2945+
2946+ if (!(patch = patches[i]) || (index = patch.r) > high)
2947+ {
2948+ return i;
2949+ }
2950+ }
2951+
2952+ var tag = vNode.$;
2953+
2954+ if (tag === 4)
2955+ {
2956+ var subNode = vNode.k;
2957+
2958+ while (subNode.$ === 4)
2959+ {
2960+ subNode = subNode.k;
2961+ }
2962+
2963+ return _VirtualDom_addDomNodesHelp(domNode, subNode, patches, i, low + 1, high, _VirtualDom_getMeta(domNode).elm_event_node_ref);
2964+ }
2965+
2966+ // tag must be 1 or 2 at this point
2967+
2968+ var vKids = vNode.e;
2969+ var childNodes = _Lynx_getChildren(domNode);
2970+ for (var j = 0; j < vKids.length; j++)
2971+ {
2972+ low++;
2973+ var vKid = tag === 1 ? vKids[j] : vKids[j].b;
2974+ var nextLow = low + (vKid.b || 0);
2975+ if (low <= index && index <= nextLow)
2976+ {
2977+ i = _VirtualDom_addDomNodesHelp(childNodes[j], vKid, patches, i, low, nextLow, eventNode);
2978+ if (!(patch = patches[i]) || (index = patch.r) > high)
2979+ {
2980+ return i;
2981+ }
2982+ }
2983+ low = nextLow;
2984+ }
2985+ return i;
2986+}
2987+
2988+
2989+
2990+// APPLY PATCHES
2991+
2992+
2993+function _VirtualDom_applyPatches(rootDomNode, oldVirtualNode, patches, eventNode)
2994+{
2995+ if (patches.length === 0)
2996+ {
2997+ return rootDomNode;
2998+ }
2999+
3000+ _VirtualDom_addDomNodes(rootDomNode, oldVirtualNode, patches, eventNode);
3001+ return _VirtualDom_applyPatchesHelp(rootDomNode, patches);
3002+}
3003+
3004+function _VirtualDom_applyPatchesHelp(rootDomNode, patches)
3005+{
3006+ for (var i = 0; i < patches.length; i++)
3007+ {
3008+ var patch = patches[i];
3009+ var localDomNode = patch.t
3010+ var newNode = _VirtualDom_applyPatch(localDomNode, patch);
3011+ if (localDomNode === rootDomNode)
3012+ {
3013+ rootDomNode = newNode;
3014+ }
3015+ }
3016+ return rootDomNode;
3017+}
3018+
3019+function _VirtualDom_applyPatch(domNode, patch)
3020+{
3021+ switch (patch.$)
3022+ {
3023+ case 0:
3024+ return _VirtualDom_applyPatchRedraw(domNode, patch.s, patch.u);
3025+
3026+ case 4:
3027+ _VirtualDom_applyFacts(domNode, patch.u, patch.s);
3028+ return domNode;
3029+
3030+ case 3:
3031+ _Lynx_setAttribute(domNode, 'text', patch.s);
3032+ return domNode;
3033+
3034+ case 1:
3035+ return _VirtualDom_applyPatchesHelp(domNode, patch.s);
3036+
3037+ case 2:
3038+ if (_VirtualDom_getMeta(domNode).elm_event_node_ref)
3039+ {
3040+ _VirtualDom_getMeta(domNode).elm_event_node_ref.j = patch.s;
3041+ }
3042+ else
3043+ {
3044+ _VirtualDom_getMeta(domNode).elm_event_node_ref = { j: patch.s, p: patch.u };
3045+ }
3046+ return domNode;
3047+
3048+ case 6:
3049+ var data = patch.s;
3050+ for (var i = 0; i < data.i; i++)
3051+ {
3052+ var children = _Lynx_getChildren(domNode);
3053+ _Lynx_removeElement(domNode, children[data.v]);
3054+ }
3055+ return domNode;
3056+
3057+ case 7:
3058+ var data = patch.s;
3059+ var kids = data.e;
3060+ for (var i = data.v; i < kids.length; i++)
3061+ {
3062+ _Lynx_appendChild(domNode, _VirtualDom_render(kids[i], patch.u));
3063+ }
3064+ return domNode;
3065+
3066+ case 9:
3067+ var data = patch.s;
3068+ if (!data)
3069+ {
3070+ _Lynx_removeElement(_Lynx_getParent(domNode), domNode);
3071+ return domNode;
3072+ }
3073+ var entry = data.A;
3074+ if (typeof entry.r !== 'undefined')
3075+ {
3076+ _Lynx_removeElement(_Lynx_getParent(domNode), domNode);
3077+ }
3078+ entry.s = _VirtualDom_applyPatchesHelp(domNode, data.w);
3079+ return domNode;
3080+
3081+ case 8:
3082+ return _VirtualDom_applyPatchReorder(domNode, patch);
3083+
3084+ case 5:
3085+ return patch.s(domNode);
3086+
3087+ default:
3088+ _Debug_crash(10); // 'Ran into an unknown patch!'
3089+ }
3090+}
3091+
3092+
3093+function _VirtualDom_applyPatchRedraw(domNode, vNode, eventNode)
3094+{
3095+ var parentNode = _Lynx_getParent(domNode);
3096+ var newNode = _VirtualDom_render(vNode, eventNode);
3097+
3098+ if (!_VirtualDom_getMeta(newNode).elm_event_node_ref)
3099+ {
3100+ _VirtualDom_getMeta(newNode).elm_event_node_ref = _VirtualDom_getMeta(domNode).elm_event_node_ref;
3101+ }
3102+
3103+ if (parentNode && newNode !== domNode)
3104+ {
3105+ _Lynx_replaceElement(parentNode, newNode, domNode);
3106+ }
3107+ return newNode;
3108+}
3109+
3110+
3111+function _VirtualDom_applyPatchReorder(domNode, patch)
3112+{
3113+ var data = patch.s;
3114+
3115+ // remove end inserts
3116+ var endInsertNodes = _VirtualDom_applyPatchReorderEndInsertsHelp(data.y, patch);
3117+
3118+ // removals
3119+ domNode = _VirtualDom_applyPatchesHelp(domNode, data.w);
3120+
3121+ // inserts
3122+ var inserts = data.x;
3123+ for (var i = 0; i < inserts.length; i++)
3124+ {
3125+ var insert = inserts[i];
3126+ var entry = insert.A;
3127+ var node = entry.c === 2
3128+ ? entry.s
3129+ : _VirtualDom_render(entry.z, patch.u);
3130+ var children = _Lynx_getChildren(domNode);
3131+ _Lynx_insertBefore(domNode, node, children[insert.r]);
3132+ }
3133+
3134+ // add end inserts
3135+ if (endInsertNodes)
3136+ {
3137+ for (var i = 0; i < endInsertNodes.length; i++)
3138+ {
3139+ _Lynx_appendChild(domNode, endInsertNodes[i]);
3140+ }
3141+ }
3142+
3143+ return domNode;
3144+}
3145+
3146+
3147+function _VirtualDom_applyPatchReorderEndInsertsHelp(endInserts, patch)
3148+{
3149+ if (!endInserts)
3150+ {
3151+ return;
3152+ }
3153+
3154+ var nodes = [];
3155+ for (var i = 0; i < endInserts.length; i++)
3156+ {
3157+ var insert = endInserts[i];
3158+ var entry = insert.A;
3159+ nodes.push(entry.c === 2
3160+ ? entry.s
3161+ : _VirtualDom_render(entry.z, patch.u)
3162+ );
3163+ }
3164+ return nodes;
3165+}
3166+
3167+
3168+function _VirtualDom_dekey(keyedNode)
3169+{
3170+ var keyedKids = keyedNode.e;
3171+ var len = keyedKids.length;
3172+ var kids = new Array(len);
3173+ for (var i = 0; i < len; i++)
3174+ {
3175+ kids[i] = keyedKids[i].b;
3176+ }
3177+
3178+ return {
3179+ $: 1,
3180+ c: keyedNode.c,
3181+ d: keyedNode.d,
3182+ e: kids,
3183+ f: keyedNode.f,
3184+ b: keyedNode.b
3185+ };
3186+}
3187+var $elm$core$List$cons = _List_cons;
3188+var $elm$core$Elm$JsArray$foldr = _JsArray_foldr;
3189+var $elm$core$Array$foldr = F3(
3190+ function (func, baseCase, _v0) {
3191+ var tree = _v0.c;
3192+ var tail = _v0.d;
3193+ var helper = F2(
3194+ function (node, acc) {
3195+ if (node.$ === 'SubTree') {
3196+ var subTree = node.a;
3197+ return A3($elm$core$Elm$JsArray$foldr, helper, acc, subTree);
3198+ } else {
3199+ var values = node.a;
3200+ return A3($elm$core$Elm$JsArray$foldr, func, acc, values);
3201+ }
3202+ });
3203+ return A3(
3204+ $elm$core$Elm$JsArray$foldr,
3205+ helper,
3206+ A3($elm$core$Elm$JsArray$foldr, func, baseCase, tail),
3207+ tree);
3208+ });
3209+var $elm$core$Array$toList = function (array) {
3210+ return A3($elm$core$Array$foldr, $elm$core$List$cons, _List_Nil, array);
3211+};
3212+var $elm$core$Dict$foldr = F3(
3213+ function (func, acc, t) {
3214+ foldr:
3215+ while (true) {
3216+ if (t.$ === 'RBEmpty_elm_builtin') {
3217+ return acc;
3218+ } else {
3219+ var key = t.b;
3220+ var value = t.c;
3221+ var left = t.d;
3222+ var right = t.e;
3223+ var $temp$func = func,
3224+ $temp$acc = A3(
3225+ func,
3226+ key,
3227+ value,
3228+ A3($elm$core$Dict$foldr, func, acc, right)),
3229+ $temp$t = left;
3230+ func = $temp$func;
3231+ acc = $temp$acc;
3232+ t = $temp$t;
3233+ continue foldr;
3234+ }
3235+ }
3236+ });
3237+var $elm$core$Dict$toList = function (dict) {
3238+ return A3(
3239+ $elm$core$Dict$foldr,
3240+ F3(
3241+ function (key, value, list) {
3242+ return A2(
3243+ $elm$core$List$cons,
3244+ _Utils_Tuple2(key, value),
3245+ list);
3246+ }),
3247+ _List_Nil,
3248+ dict);
3249+};
3250+var $elm$core$Dict$keys = function (dict) {
3251+ return A3(
3252+ $elm$core$Dict$foldr,
3253+ F3(
3254+ function (key, value, keyList) {
3255+ return A2($elm$core$List$cons, key, keyList);
3256+ }),
3257+ _List_Nil,
3258+ dict);
3259+};
3260+var $elm$core$Set$toList = function (_v0) {
3261+ var dict = _v0.a;
3262+ return $elm$core$Dict$keys(dict);
3263+};
3264+var $elm$core$Basics$EQ = {$: 'EQ'};
3265+var $elm$core$Basics$GT = {$: 'GT'};
3266+var $elm$core$Basics$LT = {$: 'LT'};
3267+var $elm$core$Result$Err = function (a) {
3268+ return {$: 'Err', a: a};
3269+};
3270+var $elm$json$Json$Decode$Failure = F2(
3271+ function (a, b) {
3272+ return {$: 'Failure', a: a, b: b};
3273+ });
3274+var $elm$json$Json$Decode$Field = F2(
3275+ function (a, b) {
3276+ return {$: 'Field', a: a, b: b};
3277+ });
3278+var $elm$json$Json$Decode$Index = F2(
3279+ function (a, b) {
3280+ return {$: 'Index', a: a, b: b};
3281+ });
3282+var $elm$core$Result$Ok = function (a) {
3283+ return {$: 'Ok', a: a};
3284+};
3285+var $elm$json$Json$Decode$OneOf = function (a) {
3286+ return {$: 'OneOf', a: a};
3287+};
3288+var $elm$core$Basics$False = {$: 'False'};
3289+var $elm$core$Basics$add = _Basics_add;
3290+var $elm$core$Maybe$Just = function (a) {
3291+ return {$: 'Just', a: a};
3292+};
3293+var $elm$core$Maybe$Nothing = {$: 'Nothing'};
3294+var $elm$core$String$all = _String_all;
3295+var $elm$core$Basics$and = _Basics_and;
3296+var $elm$core$Basics$append = _Utils_append;
3297+var $elm$json$Json$Encode$encode = _Json_encode;
3298+var $elm$core$String$fromInt = _String_fromNumber;
3299+var $elm$core$String$join = F2(
3300+ function (sep, chunks) {
3301+ return A2(
3302+ _String_join,
3303+ sep,
3304+ _List_toArray(chunks));
3305+ });
3306+var $elm$core$String$split = F2(
3307+ function (sep, string) {
3308+ return _List_fromArray(
3309+ A2(_String_split, sep, string));
3310+ });
3311+var $elm$json$Json$Decode$indent = function (str) {
3312+ return A2(
3313+ $elm$core$String$join,
3314+ '\n ',
3315+ A2($elm$core$String$split, '\n', str));
3316+};
3317+var $elm$core$List$foldl = F3(
3318+ function (func, acc, list) {
3319+ foldl:
3320+ while (true) {
3321+ if (!list.b) {
3322+ return acc;
3323+ } else {
3324+ var x = list.a;
3325+ var xs = list.b;
3326+ var $temp$func = func,
3327+ $temp$acc = A2(func, x, acc),
3328+ $temp$list = xs;
3329+ func = $temp$func;
3330+ acc = $temp$acc;
3331+ list = $temp$list;
3332+ continue foldl;
3333+ }
3334+ }
3335+ });
3336+var $elm$core$List$length = function (xs) {
3337+ return A3(
3338+ $elm$core$List$foldl,
3339+ F2(
3340+ function (_v0, i) {
3341+ return i + 1;
3342+ }),
3343+ 0,
3344+ xs);
3345+};
3346+var $elm$core$List$map2 = _List_map2;
3347+var $elm$core$Basics$le = _Utils_le;
3348+var $elm$core$Basics$sub = _Basics_sub;
3349+var $elm$core$List$rangeHelp = F3(
3350+ function (lo, hi, list) {
3351+ rangeHelp:
3352+ while (true) {
3353+ if (_Utils_cmp(lo, hi) < 1) {
3354+ var $temp$lo = lo,
3355+ $temp$hi = hi - 1,
3356+ $temp$list = A2($elm$core$List$cons, hi, list);
3357+ lo = $temp$lo;
3358+ hi = $temp$hi;
3359+ list = $temp$list;
3360+ continue rangeHelp;
3361+ } else {
3362+ return list;
3363+ }
3364+ }
3365+ });
3366+var $elm$core$List$range = F2(
3367+ function (lo, hi) {
3368+ return A3($elm$core$List$rangeHelp, lo, hi, _List_Nil);
3369+ });
3370+var $elm$core$List$indexedMap = F2(
3371+ function (f, xs) {
3372+ return A3(
3373+ $elm$core$List$map2,
3374+ f,
3375+ A2(
3376+ $elm$core$List$range,
3377+ 0,
3378+ $elm$core$List$length(xs) - 1),
3379+ xs);
3380+ });
3381+var $elm$core$Char$toCode = _Char_toCode;
3382+var $elm$core$Char$isLower = function (_char) {
3383+ var code = $elm$core$Char$toCode(_char);
3384+ return (97 <= code) && (code <= 122);
3385+};
3386+var $elm$core$Char$isUpper = function (_char) {
3387+ var code = $elm$core$Char$toCode(_char);
3388+ return (code <= 90) && (65 <= code);
3389+};
3390+var $elm$core$Basics$or = _Basics_or;
3391+var $elm$core$Char$isAlpha = function (_char) {
3392+ return $elm$core$Char$isLower(_char) || $elm$core$Char$isUpper(_char);
3393+};
3394+var $elm$core$Char$isDigit = function (_char) {
3395+ var code = $elm$core$Char$toCode(_char);
3396+ return (code <= 57) && (48 <= code);
3397+};
3398+var $elm$core$Char$isAlphaNum = function (_char) {
3399+ return $elm$core$Char$isLower(_char) || ($elm$core$Char$isUpper(_char) || $elm$core$Char$isDigit(_char));
3400+};
3401+var $elm$core$List$reverse = function (list) {
3402+ return A3($elm$core$List$foldl, $elm$core$List$cons, _List_Nil, list);
3403+};
3404+var $elm$core$String$uncons = _String_uncons;
3405+var $elm$json$Json$Decode$errorOneOf = F2(
3406+ function (i, error) {
3407+ return '\n\n(' + ($elm$core$String$fromInt(i + 1) + (') ' + $elm$json$Json$Decode$indent(
3408+ $elm$json$Json$Decode$errorToString(error))));
3409+ });
3410+var $elm$json$Json$Decode$errorToString = function (error) {
3411+ return A2($elm$json$Json$Decode$errorToStringHelp, error, _List_Nil);
3412+};
3413+var $elm$json$Json$Decode$errorToStringHelp = F2(
3414+ function (error, context) {
3415+ errorToStringHelp:
3416+ while (true) {
3417+ switch (error.$) {
3418+ case 'Field':
3419+ var f = error.a;
3420+ var err = error.b;
3421+ var isSimple = function () {
3422+ var _v1 = $elm$core$String$uncons(f);
3423+ if (_v1.$ === 'Nothing') {
3424+ return false;
3425+ } else {
3426+ var _v2 = _v1.a;
3427+ var _char = _v2.a;
3428+ var rest = _v2.b;
3429+ return $elm$core$Char$isAlpha(_char) && A2($elm$core$String$all, $elm$core$Char$isAlphaNum, rest);
3430+ }
3431+ }();
3432+ var fieldName = isSimple ? ('.' + f) : ('[\'' + (f + '\']'));
3433+ var $temp$error = err,
3434+ $temp$context = A2($elm$core$List$cons, fieldName, context);
3435+ error = $temp$error;
3436+ context = $temp$context;
3437+ continue errorToStringHelp;
3438+ case 'Index':
3439+ var i = error.a;
3440+ var err = error.b;
3441+ var indexName = '[' + ($elm$core$String$fromInt(i) + ']');
3442+ var $temp$error = err,
3443+ $temp$context = A2($elm$core$List$cons, indexName, context);
3444+ error = $temp$error;
3445+ context = $temp$context;
3446+ continue errorToStringHelp;
3447+ case 'OneOf':
3448+ var errors = error.a;
3449+ if (!errors.b) {
3450+ return 'Ran into a Json.Decode.oneOf with no possibilities' + function () {
3451+ if (!context.b) {
3452+ return '!';
3453+ } else {
3454+ return ' at json' + A2(
3455+ $elm$core$String$join,
3456+ '',
3457+ $elm$core$List$reverse(context));
3458+ }
3459+ }();
3460+ } else {
3461+ if (!errors.b.b) {
3462+ var err = errors.a;
3463+ var $temp$error = err,
3464+ $temp$context = context;
3465+ error = $temp$error;
3466+ context = $temp$context;
3467+ continue errorToStringHelp;
3468+ } else {
3469+ var starter = function () {
3470+ if (!context.b) {
3471+ return 'Json.Decode.oneOf';
3472+ } else {
3473+ return 'The Json.Decode.oneOf at json' + A2(
3474+ $elm$core$String$join,
3475+ '',
3476+ $elm$core$List$reverse(context));
3477+ }
3478+ }();
3479+ var introduction = starter + (' failed in the following ' + ($elm$core$String$fromInt(
3480+ $elm$core$List$length(errors)) + ' ways:'));
3481+ return A2(
3482+ $elm$core$String$join,
3483+ '\n\n',
3484+ A2(
3485+ $elm$core$List$cons,
3486+ introduction,
3487+ A2($elm$core$List$indexedMap, $elm$json$Json$Decode$errorOneOf, errors)));
3488+ }
3489+ }
3490+ default:
3491+ var msg = error.a;
3492+ var json = error.b;
3493+ var introduction = function () {
3494+ if (!context.b) {
3495+ return 'Problem with the given value:\n\n';
3496+ } else {
3497+ return 'Problem with the value at json' + (A2(
3498+ $elm$core$String$join,
3499+ '',
3500+ $elm$core$List$reverse(context)) + ':\n\n ');
3501+ }
3502+ }();
3503+ return introduction + ($elm$json$Json$Decode$indent(
3504+ A2($elm$json$Json$Encode$encode, 4, json)) + ('\n\n' + msg));
3505+ }
3506+ }
3507+ });
3508+var $elm$core$Array$branchFactor = 32;
3509+var $elm$core$Array$Array_elm_builtin = F4(
3510+ function (a, b, c, d) {
3511+ return {$: 'Array_elm_builtin', a: a, b: b, c: c, d: d};
3512+ });
3513+var $elm$core$Elm$JsArray$empty = _JsArray_empty;
3514+var $elm$core$Basics$ceiling = _Basics_ceiling;
3515+var $elm$core$Basics$fdiv = _Basics_fdiv;
3516+var $elm$core$Basics$logBase = F2(
3517+ function (base, number) {
3518+ return _Basics_log(number) / _Basics_log(base);
3519+ });
3520+var $elm$core$Basics$toFloat = _Basics_toFloat;
3521+var $elm$core$Array$shiftStep = $elm$core$Basics$ceiling(
3522+ A2($elm$core$Basics$logBase, 2, $elm$core$Array$branchFactor));
3523+var $elm$core$Array$empty = A4($elm$core$Array$Array_elm_builtin, 0, $elm$core$Array$shiftStep, $elm$core$Elm$JsArray$empty, $elm$core$Elm$JsArray$empty);
3524+var $elm$core$Elm$JsArray$initialize = _JsArray_initialize;
3525+var $elm$core$Array$Leaf = function (a) {
3526+ return {$: 'Leaf', a: a};
3527+};
3528+var $elm$core$Basics$apL = F2(
3529+ function (f, x) {
3530+ return f(x);
3531+ });
3532+var $elm$core$Basics$apR = F2(
3533+ function (x, f) {
3534+ return f(x);
3535+ });
3536+var $elm$core$Basics$eq = _Utils_equal;
3537+var $elm$core$Basics$floor = _Basics_floor;
3538+var $elm$core$Elm$JsArray$length = _JsArray_length;
3539+var $elm$core$Basics$gt = _Utils_gt;
3540+var $elm$core$Basics$max = F2(
3541+ function (x, y) {
3542+ return (_Utils_cmp(x, y) > 0) ? x : y;
3543+ });
3544+var $elm$core$Basics$mul = _Basics_mul;
3545+var $elm$core$Array$SubTree = function (a) {
3546+ return {$: 'SubTree', a: a};
3547+};
3548+var $elm$core$Elm$JsArray$initializeFromList = _JsArray_initializeFromList;
3549+var $elm$core$Array$compressNodes = F2(
3550+ function (nodes, acc) {
3551+ compressNodes:
3552+ while (true) {
3553+ var _v0 = A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodes);
3554+ var node = _v0.a;
3555+ var remainingNodes = _v0.b;
3556+ var newAcc = A2(
3557+ $elm$core$List$cons,
3558+ $elm$core$Array$SubTree(node),
3559+ acc);
3560+ if (!remainingNodes.b) {
3561+ return $elm$core$List$reverse(newAcc);
3562+ } else {
3563+ var $temp$nodes = remainingNodes,
3564+ $temp$acc = newAcc;
3565+ nodes = $temp$nodes;
3566+ acc = $temp$acc;
3567+ continue compressNodes;
3568+ }
3569+ }
3570+ });
3571+var $elm$core$Tuple$first = function (_v0) {
3572+ var x = _v0.a;
3573+ return x;
3574+};
3575+var $elm$core$Array$treeFromBuilder = F2(
3576+ function (nodeList, nodeListSize) {
3577+ treeFromBuilder:
3578+ while (true) {
3579+ var newNodeSize = $elm$core$Basics$ceiling(nodeListSize / $elm$core$Array$branchFactor);
3580+ if (newNodeSize === 1) {
3581+ return A2($elm$core$Elm$JsArray$initializeFromList, $elm$core$Array$branchFactor, nodeList).a;
3582+ } else {
3583+ var $temp$nodeList = A2($elm$core$Array$compressNodes, nodeList, _List_Nil),
3584+ $temp$nodeListSize = newNodeSize;
3585+ nodeList = $temp$nodeList;
3586+ nodeListSize = $temp$nodeListSize;
3587+ continue treeFromBuilder;
3588+ }
3589+ }
3590+ });
3591+var $elm$core$Array$builderToArray = F2(
3592+ function (reverseNodeList, builder) {
3593+ if (!builder.nodeListSize) {
3594+ return A4(
3595+ $elm$core$Array$Array_elm_builtin,
3596+ $elm$core$Elm$JsArray$length(builder.tail),
3597+ $elm$core$Array$shiftStep,
3598+ $elm$core$Elm$JsArray$empty,
3599+ builder.tail);
3600+ } else {
3601+ var treeLen = builder.nodeListSize * $elm$core$Array$branchFactor;
3602+ var depth = $elm$core$Basics$floor(
3603+ A2($elm$core$Basics$logBase, $elm$core$Array$branchFactor, treeLen - 1));
3604+ var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.nodeList) : builder.nodeList;
3605+ var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.nodeListSize);
3606+ return A4(
3607+ $elm$core$Array$Array_elm_builtin,
3608+ $elm$core$Elm$JsArray$length(builder.tail) + treeLen,
3609+ A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep),
3610+ tree,
3611+ builder.tail);
3612+ }
3613+ });
3614+var $elm$core$Basics$idiv = _Basics_idiv;
3615+var $elm$core$Basics$lt = _Utils_lt;
3616+var $elm$core$Array$initializeHelp = F5(
3617+ function (fn, fromIndex, len, nodeList, tail) {
3618+ initializeHelp:
3619+ while (true) {
3620+ if (fromIndex < 0) {
3621+ return A2(
3622+ $elm$core$Array$builderToArray,
3623+ false,
3624+ {nodeList: nodeList, nodeListSize: (len / $elm$core$Array$branchFactor) | 0, tail: tail});
3625+ } else {
3626+ var leaf = $elm$core$Array$Leaf(
3627+ A3($elm$core$Elm$JsArray$initialize, $elm$core$Array$branchFactor, fromIndex, fn));
3628+ var $temp$fn = fn,
3629+ $temp$fromIndex = fromIndex - $elm$core$Array$branchFactor,
3630+ $temp$len = len,
3631+ $temp$nodeList = A2($elm$core$List$cons, leaf, nodeList),
3632+ $temp$tail = tail;
3633+ fn = $temp$fn;
3634+ fromIndex = $temp$fromIndex;
3635+ len = $temp$len;
3636+ nodeList = $temp$nodeList;
3637+ tail = $temp$tail;
3638+ continue initializeHelp;
3639+ }
3640+ }
3641+ });
3642+var $elm$core$Basics$remainderBy = _Basics_remainderBy;
3643+var $elm$core$Array$initialize = F2(
3644+ function (len, fn) {
3645+ if (len <= 0) {
3646+ return $elm$core$Array$empty;
3647+ } else {
3648+ var tailLen = len % $elm$core$Array$branchFactor;
3649+ var tail = A3($elm$core$Elm$JsArray$initialize, tailLen, len - tailLen, fn);
3650+ var initialFromIndex = (len - tailLen) - $elm$core$Array$branchFactor;
3651+ return A5($elm$core$Array$initializeHelp, fn, initialFromIndex, len, _List_Nil, tail);
3652+ }
3653+ });
3654+var $elm$core$Basics$True = {$: 'True'};
3655+var $elm$core$Result$isOk = function (result) {
3656+ if (result.$ === 'Ok') {
3657+ return true;
3658+ } else {
3659+ return false;
3660+ }
3661+};
3662+var $elm$json$Json$Decode$map = _Json_map1;
3663+var $elm$json$Json$Decode$map2 = _Json_map2;
3664+var $elm$json$Json$Decode$succeed = _Json_succeed;
3665+var $lynxjs_elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
3666+ switch (handler.$) {
3667+ case 'Normal':
3668+ return 0;
3669+ case 'MayStopPropagation':
3670+ return 1;
3671+ case 'MayPreventDefault':
3672+ return 2;
3673+ default:
3674+ return 3;
3675+ }
3676+};
3677+var $lynxjs_elm$virtual_dom$VirtualDom$node = function (tag) {
3678+ return _VirtualDom_node(
3679+ _VirtualDom_noScript(tag));
3680+};
3681+var $lynxjs_elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
3682+var $author$project$Main$main = A3(
3683+ $lynxjs_elm$virtual_dom$VirtualDom$node,
3684+ 'view',
3685+ _List_Nil,
3686+ _List_fromArray(
3687+ [
3688+ A3(
3689+ $lynxjs_elm$virtual_dom$VirtualDom$node,
3690+ 'text',
3691+ _List_Nil,
3692+ _List_fromArray(
3693+ [
3694+ $lynxjs_elm$virtual_dom$VirtualDom$text('Hello from Elm on LynxJS!')
3695+ ]))
3696+ ]));
3697+_Platform_export({'Main':{'init':_VirtualDom_init($author$project$Main$main)(0)(0)}});}(globalThis));
examples/hello-world/elm.jsonnew file+19
@@ -0,0 +1,19 @@
1+{
2+ "type": "application",
3+ "source-directories": [
4+ "src"
5+ ],
6+ "elm-version": "0.19.1",
7+ "dependencies": {
8+ "direct": {
9+ "elm/core": "1.0.5",
10+ "elm/json": "1.1.3",
11+ "lynxjs-elm/virtual-dom": "1.0.0"
12+ },
13+ "indirect": {}
14+ },
15+ "test-dependencies": {
16+ "direct": {},
17+ "indirect": {}
18+ }
19+}
examples/hello-world/src/Main.elmnew file+14
@@ -0,0 +1,14 @@
1+module Main exposing (main)
2+
3+{-| Phase 1 verification: Static rendering.
4+Renders a view with a text element. No events, no TEA.
5+-}
6+
7+import VirtualDom exposing (Node, node, text)
8+
9+
10+main : Node msg
11+main =
12+ node "view" []
13+ [ node "text" [] [ text "Hello from Elm on LynxJS!" ]
14+ ]
examples/http-example/elm.jsnew file+6126

This diff is too big to show here.

examples/http-example/elm.jsonnew file+27

This diff is too big to show here.

examples/http-example/main.htmlnew file+6220

This diff is too big to show here.

examples/http-example/src/Main.elmnew file+114

This diff is too big to show here.

examples/scroll-view/elm.jsnew file+5377

This diff is too big to show here.

examples/scroll-view/elm.jsonnew file+24

This diff is too big to show here.

examples/scroll-view/src/Main.elmnew file+205

This diff is too big to show here.

examples/timer/elm.jsonnew file+24

This diff is too big to show here.

examples/timer/src/Main.elmnew file+221

This diff is too big to show here.

examples/todo-list/elm.jsnew file+5417

This diff is too big to show here.

examples/todo-list/elm.jsonnew file+24

This diff is too big to show here.

examples/todo-list/src/Main.elmnew file+229

This diff is too big to show here.

installers/npm/PUBLISHING.md+7−7

This diff is too big to show here.

installers/npm/README.md+7−9

This diff is too big to show here.

installers/npm/packages/darwin_arm64/README.md+2−2

This diff is too big to show here.

installers/npm/packages/darwin_x64/README.md+2−2

This diff is too big to show here.

installers/npm/packages/linux_arm64/README.md+2−2

This diff is too big to show here.

installers/npm/packages/linux_x64/README.md+2−2

This diff is too big to show here.

installers/npm/packages/win32_x64/README.md+2−2

This diff is too big to show here.

elm.cabal → lynxjs-elm.cabalrenamed+11−7

This diff is too big to show here.

lynxjs-elm.mdnew file+1401

This diff is too big to show here.

packages/browser/README.mdnew file+270

This diff is too big to show here.

packages/browser/elm.jsonnew file+22

This diff is too big to show here.

packages/browser/src/Browser.elmnew file+141

This diff is too big to show here.

packages/browser/src/Browser/AnimationManager.elmnew file+114

This diff is too big to show here.

packages/browser/src/Browser/Dom.elmnew file+384

This diff is too big to show here.

packages/browser/src/Browser/Events.elmnew file+356

This diff is too big to show here.

packages/browser/src/Browser/Navigation.elmnew file+183

This diff is too big to show here.

packages/browser/src/Elm/Kernel/Browser.jsnew file+434

This diff is too big to show here.

packages/browser/src/Elm/Kernel/Browser.server.jsnew file+132

This diff is too big to show here.

packages/bytes/elm.jsonnew file+17

This diff is too big to show here.

packages/bytes/src/Bytes.elmnew file+187

This diff is too big to show here.

packages/bytes/src/Bytes/Decode.elmnew file+428

This diff is too big to show here.

packages/bytes/src/Bytes/Encode.elmnew file+338

This diff is too big to show here.

packages/bytes/src/Elm/Kernel/Bytes.jsnew file+229

This diff is too big to show here.

packages/crypto/README.mdnew file+478

This diff is too big to show here.

packages/crypto/elm.jsonnew file+17

This diff is too big to show here.

packages/crypto/src/Crypto/Cipher.elmnew file+75

This diff is too big to show here.

packages/crypto/src/Crypto/Ed25519.elmnew file+99

This diff is too big to show here.

packages/crypto/src/Crypto/X25519.elmnew file+70

This diff is too big to show here.

packages/crypto/src/Elm/Kernel/Crypto.jsnew file+231

This diff is too big to show here.

packages/http/README.mdnew file+211

This diff is too big to show here.

packages/http/elm.jsonnew file+18

This diff is too big to show here.

packages/http/src/Elm/Kernel/Http.jsnew file+183

This diff is too big to show here.

packages/http/src/Elm/Kernel/Http.server.jsnew file+40

This diff is too big to show here.

packages/http/src/Http.elmnew file+1046

This diff is too big to show here.

packages/ui/README.mdnew file+267

This diff is too big to show here.

packages/ui/elm.jsonnew file+19

This diff is too big to show here.

packages/ui/src/Lynx.elmnew file+104

This diff is too big to show here.

packages/ui/src/Lynx/Attributes.elmnew file+568

This diff is too big to show here.

packages/ui/src/Lynx/Events.elmnew file+83

This diff is too big to show here.

packages/virtual-dom/README.mdnew file+141

This diff is too big to show here.

packages/virtual-dom/elm.jsonnew file+16

This diff is too big to show here.

packages/virtual-dom/src/Elm/Kernel/VirtualDom.jsnew file+1547

This diff is too big to show here.

packages/virtual-dom/src/Elm/Kernel/VirtualDom.server.jsnew file+209

This diff is too big to show here.

packages/virtual-dom/src/VirtualDom.elmnew file+274

This diff is too big to show here.

stack.yamlnew file+77

This diff is too big to show here.

terminal/impl/Terminal.hs+1

This diff is too big to show here.

terminal/impl/Terminal/Error.hs+1−1

This diff is too big to show here.

terminal/src/Bump.hs+2−1

This diff is too big to show here.

terminal/src/Clean.hsnew file+38

This diff is too big to show here.

terminal/src/Dev.hsnew file+409

This diff is too big to show here.

terminal/src/Develop.hs+48−2

This diff is too big to show here.

terminal/src/Develop/Generate/Help.hs−2

This diff is too big to show here.

terminal/src/Develop/Generate/Index.hs+1−2

This diff is too big to show here.

terminal/src/Develop/Socket.hs−1

This diff is too big to show here.

terminal/src/Develop/StaticFiles.hs−1

This diff is too big to show here.

terminal/src/Diff.hs+1−2

This diff is too big to show here.

terminal/src/Init.hs+129−11

This diff is too big to show here.

terminal/src/Install.hs+18−12

This diff is too big to show here.

terminal/src/Main.hs+98−21

This diff is too big to show here.

terminal/src/Make.hs+228−15

This diff is too big to show here.

terminal/src/Publish.hs+2−2

This diff is too big to show here.

terminal/src/Repl.hs+1−2

This diff is too big to show here.

terminal/src/Uninstall.hsnew file+154

This diff is too big to show here.

worker/elm.cabal+14−14

This diff is too big to show here.

worker/logrotate.confnew file+15

This diff is too big to show here.

worker/src/Artifacts.hs+15−12

This diff is too big to show here.

worker/src/Cors.hs−1

This diff is too big to show here.

worker/src/Endpoint/Compile.hs+5−7

This diff is too big to show here.

worker/src/Endpoint/Quotes.hs+135−46

This diff is too big to show here.

worker/src/Endpoint/Repl.hs−1

This diff is too big to show here.

worker/src/Main.hs+16−5

This diff is too big to show here.