diff --git a/Elm.cabal b/Elm.cabal --- a/Elm.cabal +++ b/Elm.cabal @@ -1,5 +1,5 @@ Name: Elm -Version: 0.11 +Version: 0.12 Synopsis: The Elm language module. Description: Elm aims to make client-side web-development more pleasant. It is a statically/strongly typed, functional reactive @@ -14,13 +14,13 @@ Author: Evan Czaplicki Maintainer: info@elm-lang.org -Copyright: Copyright: (c) 2011-2013 Evan Czaplicki +Copyright: Copyright: (c) 2011-2014 Evan Czaplicki Category: Compiler, Language Build-type: Simple -Extra-source-files: changelog.txt +Extra-source-files: changelog.md Data-dir: data Data-files: elm-runtime.js interfaces.data docs.json Cabal-version: >=1.9 @@ -37,19 +37,19 @@ Elm.Internal.Utils, Elm.Internal.Version Hs-Source-Dirs: compiler - other-modules: SourceSyntax.Declaration, + other-modules: SourceSyntax.Annotation, + SourceSyntax.Declaration, SourceSyntax.Expression, SourceSyntax.Helpers, SourceSyntax.Literal, - SourceSyntax.Location, SourceSyntax.Module, SourceSyntax.Pattern, SourceSyntax.PrettyPrint, SourceSyntax.Type, + SourceSyntax.Variable, Generate.JavaScript, Generate.JavaScript.Helpers, Generate.JavaScript.Ports, - Generate.Noscript, Generate.Markdown, Generate.Html, Generate.Cases, @@ -97,7 +97,7 @@ Build-depends: aeson, base >=4.2 && <5, binary >= 0.6.4.0, - blaze-html == 0.5.* || == 0.6.*, + blaze-html >= 0.5 && < 0.8, blaze-markup, bytestring, cmdargs, @@ -119,19 +119,19 @@ Main-is: Compiler.hs ghc-options: -threaded -O2 Hs-Source-Dirs: compiler - other-modules: SourceSyntax.Declaration, + other-modules: SourceSyntax.Annotation, + SourceSyntax.Declaration, SourceSyntax.Expression, SourceSyntax.Helpers, SourceSyntax.Literal, - SourceSyntax.Location, SourceSyntax.Module, SourceSyntax.Pattern, SourceSyntax.PrettyPrint, SourceSyntax.Type, + SourceSyntax.Variable, Generate.JavaScript, Generate.JavaScript.Helpers, Generate.JavaScript.Ports, - Generate.Noscript, Generate.Markdown, Generate.Html, Generate.Cases, @@ -179,8 +179,8 @@ Build-depends: aeson, base >=4.2 && <5, binary >= 0.6.4.0, - blaze-html == 0.5.* || == 0.6.*, - blaze-markup == 0.5.1.*, + blaze-html >= 0.5 && < 0.8, + blaze-markup, bytestring, cmdargs, containers >= 0.3, @@ -200,15 +200,16 @@ Executable elm-doc Main-is: Docs.hs Hs-Source-Dirs: compiler - other-modules: SourceSyntax.Declaration, + other-modules: SourceSyntax.Annotation, + SourceSyntax.Declaration, SourceSyntax.Expression, SourceSyntax.Helpers, SourceSyntax.Literal, - SourceSyntax.Location, SourceSyntax.Module, SourceSyntax.Pattern, SourceSyntax.PrettyPrint, SourceSyntax.Type, + SourceSyntax.Variable, Parse.Binop, Parse.Declaration, Parse.Expression, @@ -250,7 +251,7 @@ Elm, test-framework, test-framework-hunit, - test-framework-quickcheck2, + test-framework-quickcheck2 >= 0.3, HUnit, pretty, QuickCheck >= 2 && < 3, diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -1,4 +1,4 @@ -Copyright (c) 2012-2013, Evan Czaplicki +Copyright (c) 2012-2014, Evan Czaplicki All rights reserved. diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -148,7 +148,8 @@ buildRuntime lbi elmos = do createDirectoryIfMissing True (rtsDir lbi) let rts' = rts lbi - writeFile rts' "var Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {};\n\ + writeFile rts' "'use strict';\n\ + \var Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {};\n\ \var ElmRuntime = {}; ElmRuntime.Render = {};\n" mapM_ (appendTo rts') =<< getFiles ".js" "libraries" mapM_ (appendTo rts') elmos diff --git a/changelog.md b/changelog.md new file mode 100644 --- /dev/null +++ b/changelog.md @@ -0,0 +1,293 @@ + +## 0.12 + +#### Breaking Changes: + + * Overhaul Graphics.Input library (inspired by Spiros Eliopoulos and Jeff Smitts) + * Overhaul Text library to accomodate new Graphics.Input.Field + library and make the API more consistent overall + * Overhaul Regex library (inspired by Attila Gazso) + * Change syntax for "import open List" to "import List (..)" + * Improved JSON format for types generated by elm-doc + * Remove problematic Mouse.isClicked signal + * Revise the semantics of keepWhen and dropWhen to only update when + the filtered signal changes (thanks Max New and Janis Voigtländer) + +#### Improvements: + + * Add Graphics.Input.Field for customizable text fields + * Add Trampoline library (thanks to @maxsnew and @timthelion) + * Add Debug library (inspired by @timthelion) + * Drastically improved performance on markdown parsing (thanks to @Dandandan) + * Add Date.fromTime function + * Use pointer-events to detect hovers on layered elements (thanks to @Xashili) + * Fix bugs in Bitwise library + * Fix bug when exporting Maybe values through ports + +## 0.11 + + * Ports, a new FFI that is more general and much nicer to use + * Basic compiler tests (thanks to Max New) + +## 0.10.1 + + * sort, sortBy, sortWith (thanks to Max Goldstein) + * elm-repl + * Bitwise library + * Regex library + * Improve Transform2D library (thanks to Michael Søndergaard) + +## 0.10 + + * Native strings + * Tango colors + * custom precedence and associativity for infix operators + * elm-doc released with new documentation format + * Realiasing in type errors + * Rename Matrix2D => Transform2D + * Add Random.floatList (thank you Max GoldStein) + * Fix remove function in Dict (thank you Max New) + * Start using language-ecmascript for JS generation + * Make compatable with cabal-1.18 (thank you Justin Leitgeb) + * All functions with 10+ arguments (thanks to Max New) + +## 0.9.1 + + * Allow custom precedence and associativity for user-defined infix ops + * Realias types before printing + * Switch to Tango color scheme, adding a bunch of nice colors + * add the greyscale function for easily producing greys + * Check the type of main + * Fix miscellaneous bugs in type checker + * Switch name of Matrix2D to Transform2D + +## 0.9 + +Build Improvements: + * Major speed improvements to type-checker + * Type-checker should catch _all_ type errors now + * Module-level compilation, only re-compile if necessary + * Import types and type aliases between modules + * Intermediate files are generated to avoid unneeded recompilation + and shorten compile time. These files go in ElmFiles/ by default + * Generated files are placed in ElmFiles/ by default, replicating + the directory structure of your source code. + +Error Messages: + * Cross-module type errors + * Errors for undefined values + * Pretty printing of expressions and types + +Syntax: + * Pattern matching on literals + * Pattern aliases with `as` (Andrew) + * Unary negation + * Triple-quoted multi-line strings + * Type annotations in let expressions (Andrew) + * Record Constructors + * Record type aliases can be closed on the zeroth column + * (,,) syntax in types + * Allow infix op definitions without args: (*) = add + * Unparenthesized if, let, case, lambda at end of binary expressions + +elm-server: + * Build multi-module projects + * Report all errors in browser + +Libraries: + * Detect hovering over any Element + * Set alpha of arbitrary forms in collages + * Switch Text.height to use px instead of em + +Bug Fixes: + * Many bug fixes for collage, especially when rendering Elements. + +Website: + * Hot-swapping + * Much faster page load with pre-compiled Elm files (Max New) + + + + +forgot to fill this in again... + + +## 0.7.2 + +* Add a WebSockets library. +* Add support for the mathematical looking operator for function composition (U+2218). + + +forgot to fill this in for a while... + + +## 0.5.0 + +* Add Dict, Set, and Automaton libraries! + +* Add (,,) notation for creating tuples. + +* Redo HTTP library, allowing any kind of request and more flexibility. + +* Remove the library prefixes `Data.`, `Graphics.`, and `Signal.` because + they were more confusing than helpful. + +* Better type error reporting for ambiguous uses of variables and for + variables in aliased modules. + +* Add `readInt` and `readFloat` functions. +* Add `complement` function to compute complementary colors. +* Ensure that `String` is treated as an alias of `[Char]`. + +* Fix bug in pattern parsing. `A B _ _` was parsed as `A (B _ _)`. +* Make pattern matching a bit more compact in generated code. +* Make generated JS more readable. + +* The Haskell API exports the absolute path to the Elm runtime + system (with the corresponding version number). This makes it easier + to run Elm programs with less setup. + + + +## 0.4.0 + +This version is all about graphics: nicer API with more features and major +efficiency improvements. I am really excited about this release! + +* Add native Markdown support. You can now embed markdown directly in .elm files + and it is used as an `Element`. Syntax is `[markdown| ... |]` where `...` is + formatted as described [here](http://daringfireball.net/projects/markdown/). + Content can span multiple lines too. + +* Drastically improve the `collage` interface. You can now move, rotate, and scale + the following forms: + - Elements (any Element you want can be turned into a Form with `toForm`) + - Images + - Shapes (shapes can be textured now too) + - Lines + This will make it way easier to make games in Elm. Games can now include text, + gifs, videos, and any other Element you can think of. + +* Add `--minify` flag, to minify JS code. + +* Significantly improve performance of pattern matching. + +* Compiler performs beta-reduction in some simple cases. + +* The rendering section of the Elm runtume-system (RTS) has been totally rewritten, + making screen refreshes use fewer cycles, less memory, and cause less garbage-collection. + + + +## 0.3.6 + +* Add JSON library. + +* Type-error messages improved. Gives better context for error, making them + easier to find. Better messages for runtime errors as well (errors that + the type checker cannot find yet). + +* Add Comparable super-type which allows the comparision of any values + of type {Int,Float,Char,String}. Now possible to make Set and Map libraries. + +* Parser now handles decimal numbers. + +* Added many new functions for manipulating numbers: + - truncate, round, floor, ceiling :: Float -> Int + - toFloat :: Int -> Float + - (^) :: Number -> Number -> Number + - e :: Float + +* Foreign import/export statements no longer have to preceed all other + variable and datatype definitions. They can be mixed in, making things + a bit more readable/natural. + +* Bug fixes: + - The `toText` function did not escape strings properly + - Correct `castJSTupleToTupleN` family of functions + - `foldr1` took the leftmost element as the base case instead of the rightmost + - Fix minor display issue in latest version of Chrome. + - Fix behavior of [ lo .. hi ] syntax (now [4..0] == [], not [0]). + + + +## 0.3.5 + +* Add JavaScript event interface. Allows Elm to import and export JS values + and events. This makes it possible to import and export Elements, so users + can use JS techniques and libraries if necessary. Conversion between JS + and Elm values happens with functions from here: + http://localhost:8000/docs/Foreign/JavaScript.elm + http://localhost:8000/docs/Foreign/JavaScript/Experimental.elm + +* Add new flags to help with JavaScript event interface. + +* Add three built-in event listeners (elm_title, elm_log, elm_redirect) that + make it possible to make some common/simple imperative actions without + having to worry about writing the JS yourself. For example: + foreign export jsevent "elm_title" + title :: Signal JSString + will update the page's title to the current value of the title signal. + Empty strings are ignored. "elm_redirect" and "elm_log" events work much + the same way, except that "elm_log" does not skip empty strings. + +* Add new Signal functions: + count :: Signal a -> Signal Int + keepIf :: (a -> Bool) -> a -> Signal a -> Signal a + dropIf :: (a -> Bool) -> a -> Signal a -> Signal a + keepWhen :: Signal Bool -> a -> Signal a -> Signal a + dropWhen :: Signal Bool -> a -> Signal a -> Signal a + dropRepeats :: Signal a -> Signal a + sampleOn :: Signal a -> Signal b -> Signal b + clicks :: Signal () + The keep and drop functions make it possible to filter events, which + was not possible in prior releases. More documentation: + http://elm-lang.org/docs/Signal/Signal.elm + +* Add examples of JS event interface and new signal functions: + https://github.com/evancz/Elm/tree/master/Examples/elm-js + +* Use more compressed format for strings. Should make strings 10-12 times + more space efficient than in previous releases. Anecdotal evidence: + Elm's home page is now 70% of its previous size. + +* Add new function to Data.List: + last :: [a] -> a + +* Fix parenthesization bug with binary operators. + + + +## 0.3.0 + +Major Changes (Read this part!) +------------------------------- + +* Add a basic module system. +* Elm's JavaScript runtime is now distributed with the elm package. + Previously it was available for download as an unversioned JavaScript + file (elm-mini.js). It is now installed with the elm compiler as + elm-runtime-0.3.0.js. Be sure to serve the Elm runtime system that matches + the version of the compiler used to generate JavaScript. When working + locally, the compiler will automatically use your local copy of this file. +* BREAKING CHANGE: rgb and rgba (in the color module) now take their red, + green, and blue components as integers between 0 and 255 inclusive. +* Improve error messages for parse errors and runtime errors. + + +New Functions and Other Additions +--------------------------------- + +* Add support for keyboard events: Keyboard.Raw +* Add buttons in Signal.Input: + button :: String -> (Element, Signal Bool) +* Add new basic element (an empty rectangle, good for adding spaces): + rectangle :: Int -> Int -> Element +* Add (an awkwardly named) way to display right justified text: rightedText +* Add two basic libraries: Data.Char and Data.Maybe +* Add some new colors: magenta, yellow, cyan, gray, grey +* Add functions to Data.List module: take, drop +* Add functions to Prelude (the default imports): + fst, snd, curry, uncurry, and a bunch of list functions +* Add --make, --separate-js, and --only-js flags to help compile + with the new module system. diff --git a/changelog.txt b/changelog.txt deleted file mode 100644 --- a/changelog.txt +++ /dev/null @@ -1,265 +0,0 @@ - -## 0.11 - - * Lazy and Lazy.Stream (thanks to Max New) - * sortBy, sortWith (thanks to Max Goldstein) - * elm-repl - * Markdown interpolation - * Bitwise library - * Regex library - * Improve Transform2D library (thanks to Michael Søndergaard) - -## 0.10 - - * Native strings - * Tango colors - * custom precedence and associativity for infix operators - * elm-doc released with new documentation format - * Realiasing in type errors - * Rename Matrix2D => Transform2D - * Add Random.floatList (thank you Max GoldStein) - * Fix remove function in Dict (thank you Max New) - * Start using language-ecmascript for JS generation - * Make compatable with cabal-1.18 (thank you Justin Leitgeb) - * All functions with 10+ arguments (thanks to Max New) - -## 0.9.1 - - * Allow custom precedence and associativity for user-defined infix ops - * Realias types before printing - * Switch to Tango color scheme, adding a bunch of nice colors - * add the greyscale function for easily producing greys - * Check the type of main - * Fix miscellaneous bugs in type checker - * Switch name of Matrix2D to Transform2D - -## 0.9 - -Build Improvements: - * Major speed improvements to type-checker - * Type-checker should catch _all_ type errors now - * Module-level compilation, only re-compile if necessary - * Import types and type aliases between modules - * Intermediate files are generated to avoid unneeded recompilation - and shorten compile time. These files go in ElmFiles/ by default - * Generated files are placed in ElmFiles/ by default, replicating - the directory structure of your source code. - -Error Messages: - * Cross-module type errors - * Errors for undefined values - * Pretty printing of expressions and types - -Syntax: - * Pattern matching on literals - * Pattern aliases with `as` (Andrew) - * Unary negation - * Triple-quoted multi-line strings - * Type annotations in let expressions (Andrew) - * Record Constructors - * Record type aliases can be closed on the zeroth column - * (,,) syntax in types - * Allow infix op definitions without args: (*) = add - * Unparenthesized if, let, case, lambda at end of binary expressions - -elm-server: - * Build multi-module projects - * Report all errors in browser - -Libraries: - * Detect hovering over any Element - * Set alpha of arbitrary forms in collages - * Switch Text.height to use px instead of em - -Bug Fixes: - * Many bug fixes for collage, especially when rendering Elements. - -Website: - * Hot-swapping - * Much faster page load with pre-compiled Elm files (Max New) - - - - -forgot to fill this in again... - - -## 0.7.2 - -* Add a WebSockets library. -* Add support for the mathematical looking operator for function composition (U+2218). - - -forgot to fill this in for a while... - - -## 0.5.0 - -* Add Dict, Set, and Automaton libraries! - -* Add (,,) notation for creating tuples. - -* Redo HTTP library, allowing any kind of request and more flexibility. - -* Remove the library prefixes `Data.`, `Graphics.`, and `Signal.` because - they were more confusing than helpful. - -* Better type error reporting for ambiguous uses of variables and for - variables in aliased modules. - -* Add `readInt` and `readFloat` functions. -* Add `complement` function to compute complementary colors. -* Ensure that `String` is treated as an alias of `[Char]`. - -* Fix bug in pattern parsing. `A B _ _` was parsed as `A (B _ _)`. -* Make pattern matching a bit more compact in generated code. -* Make generated JS more readable. - -* The Haskell API exports the absolute path to the Elm runtime - system (with the corresponding version number). This makes it easier - to run Elm programs with less setup. - - - -## 0.4.0 - -This version is all about graphics: nicer API with more features and major -efficiency improvements. I am really excited about this release! - -* Add native Markdown support. You can now embed markdown directly in .elm files - and it is used as an `Element`. Syntax is `[markdown| ... |]` where `...` is - formatted as described [here](http://daringfireball.net/projects/markdown/). - Content can span multiple lines too. - -* Drastically improve the `collage` interface. You can now move, rotate, and scale - the following forms: - - Elements (any Element you want can be turned into a Form with `toForm`) - - Images - - Shapes (shapes can be textured now too) - - Lines - This will make it way easier to make games in Elm. Games can now include text, - gifs, videos, and any other Element you can think of. - -* Add `--minify` flag, to minify JS code. - -* Significantly improve performance of pattern matching. - -* Compiler performs beta-reduction in some simple cases. - -* The rendering section of the Elm runtume-system (RTS) has been totally rewritten, - making screen refreshes use fewer cycles, less memory, and cause less garbage-collection. - - - -## 0.3.6 - -* Add JSON library. - -* Type-error messages improved. Gives better context for error, making them - easier to find. Better messages for runtime errors as well (errors that - the type checker cannot find yet). - -* Add Comparable super-type which allows the comparision of any values - of type {Int,Float,Char,String}. Now possible to make Set and Map libraries. - -* Parser now handles decimal numbers. - -* Added many new functions for manipulating numbers: - - truncate, round, floor, ceiling :: Float -> Int - - toFloat :: Int -> Float - - (^) :: Number -> Number -> Number - - e :: Float - -* Foreign import/export statements no longer have to preceed all other - variable and datatype definitions. They can be mixed in, making things - a bit more readable/natural. - -* Bug fixes: - - The `toText` function did not escape strings properly - - Correct `castJSTupleToTupleN` family of functions - - `foldr1` took the leftmost element as the base case instead of the rightmost - - Fix minor display issue in latest version of Chrome. - - Fix behavior of [ lo .. hi ] syntax (now [4..0] == [], not [0]). - - - -## 0.3.5 - -* Add JavaScript event interface. Allows Elm to import and export JS values - and events. This makes it possible to import and export Elements, so users - can use JS techniques and libraries if necessary. Conversion between JS - and Elm values happens with functions from here: - http://localhost:8000/docs/Foreign/JavaScript.elm - http://localhost:8000/docs/Foreign/JavaScript/Experimental.elm - -* Add new flags to help with JavaScript event interface. - -* Add three built-in event listeners (elm_title, elm_log, elm_redirect) that - make it possible to make some common/simple imperative actions without - having to worry about writing the JS yourself. For example: - foreign export jsevent "elm_title" - title :: Signal JSString - will update the page's title to the current value of the title signal. - Empty strings are ignored. "elm_redirect" and "elm_log" events work much - the same way, except that "elm_log" does not skip empty strings. - -* Add new Signal functions: - count :: Signal a -> Signal Int - keepIf :: (a -> Bool) -> a -> Signal a -> Signal a - dropIf :: (a -> Bool) -> a -> Signal a -> Signal a - keepWhen :: Signal Bool -> a -> Signal a -> Signal a - dropWhen :: Signal Bool -> a -> Signal a -> Signal a - dropRepeats :: Signal a -> Signal a - sampleOn :: Signal a -> Signal b -> Signal b - clicks :: Signal () - The keep and drop functions make it possible to filter events, which - was not possible in prior releases. More documentation: - http://elm-lang.org/docs/Signal/Signal.elm - -* Add examples of JS event interface and new signal functions: - https://github.com/evancz/Elm/tree/master/Examples/elm-js - -* Use more compressed format for strings. Should make strings 10-12 times - more space efficient than in previous releases. Anecdotal evidence: - Elm's home page is now 70% of its previous size. - -* Add new function to Data.List: - last :: [a] -> a - -* Fix parenthesization bug with binary operators. - - - -## 0.3.0 - -Major Changes (Read this part!) -------------------------------- - -* Add a basic module system. -* Elm's JavaScript runtime is now distributed with the elm package. - Previously it was available for download as an unversioned JavaScript - file (elm-mini.js). It is now installed with the elm compiler as - elm-runtime-0.3.0.js. Be sure to serve the Elm runtime system that matches - the version of the compiler used to generate JavaScript. When working - locally, the compiler will automatically use your local copy of this file. -* BREAKING CHANGE: rgb and rgba (in the color module) now take their red, - green, and blue components as integers between 0 and 255 inclusive. -* Improve error messages for parse errors and runtime errors. - - -New Functions and Other Additions ---------------------------------- - -* Add support for keyboard events: Keyboard.Raw -* Add buttons in Signal.Input: - button :: String -> (Element, Signal Bool) -* Add new basic element (an empty rectangle, good for adding spaces): - rectangle :: Int -> Int -> Element -* Add (an awkwardly named) way to display right justified text: rightedText -* Add two basic libraries: Data.Char and Data.Maybe -* Add some new colors: magenta, yellow, cyan, gray, grey -* Add functions to Data.List module: take, drop -* Add functions to Prelude (the default imports): - fst, snd, curry, uncurry, and a bunch of list functions -* Add --make, --separate-js, and --only-js flags to help compile - with the new module system. diff --git a/compiler/Build/Dependencies.hs b/compiler/Build/Dependencies.hs --- a/compiler/Build/Dependencies.hs +++ b/compiler/Build/Dependencies.hs @@ -29,10 +29,7 @@ result <- runErrorT $ readAllDeps allSrcDirs builtIns root case result of Right deps -> sortDeps deps - Left err -> failure $ err ++ if Maybe.isJust extras then "" else msg - where msg = "\nYou may need to create a " ++ - Path.dependencyFile ++ - " file if you\nare trying to use a 3rd party library." + Left err -> failure err extraDependencies :: IO (Maybe [FilePath]) extraDependencies = @@ -75,20 +72,22 @@ msg = "A cyclical module dependency or was detected in:\n" readAllDeps :: [FilePath] -> Module.Interfaces -> FilePath -> ErrorT String IO [Deps] -readAllDeps srcDirs builtIns root = - do let ifaces = (Set.fromList . Map.keys) builtIns - State.evalStateT (go ifaces root) Set.empty +readAllDeps srcDirs rawBuiltIns filePath = + State.evalStateT (go Nothing filePath) Set.empty where - go :: Set.Set String -> FilePath -> State.StateT (Set.Set String) (ErrorT String IO) [Deps] - go builtIns root = do - root' <- lift $ findSrcFile srcDirs root - (name, deps) <- lift $ readDeps root' + builtIns :: Set.Set String + builtIns = Set.fromList $ Map.keys rawBuiltIns + + go :: Maybe String -> FilePath -> State.StateT (Set.Set String) (ErrorT String IO) [Deps] + go parentModuleName filePath = do + filePath' <- lift $ findSrcFile parentModuleName srcDirs filePath + (moduleName, deps) <- lift $ readDeps filePath' seen <- State.get let realDeps = Set.difference (Set.fromList deps) builtIns newDeps = Set.difference (Set.filter (not . isNative) realDeps) seen - State.put (Set.insert name (Set.union newDeps seen)) - rest <- mapM (go builtIns . toFilePath) (Set.toList newDeps) - return ((makeRelative "." root', name, Set.toList realDeps) : concat rest) + State.put (Set.insert moduleName (Set.union newDeps seen)) + rest <- mapM (go (Just moduleName) . toFilePath) (Set.toList newDeps) + return ((makeRelative "." filePath', moduleName, Set.toList realDeps) : concat rest) readDeps :: FilePath -> ErrorT String IO (String, [String]) readDeps path = do @@ -98,21 +97,30 @@ where msg = "Error resolving dependencies in " ++ path ++ ":\n" Right o -> return o -findSrcFile :: [FilePath] -> FilePath -> ErrorT String IO FilePath -findSrcFile dirs path = foldr tryDir notFound dirs +findSrcFile :: Maybe String -> [FilePath] -> FilePath -> ErrorT String IO FilePath +findSrcFile parentModuleName dirs path = + foldr tryDir notFound dirs where - notFound = throwError $ unlines - [ "Could not find file: " ++ path - , " If it is not in the root directory of your project, use" - , " --src-dir to declare additional locations for source files." - , " If it is part of a 3rd party library, it needs to be declared" - , " as a dependency in the " ++ Path.dependencyFile ++ " file." ] tryDir dir next = do let path' = dir path exists <- liftIO $ doesFileExist path' if exists then return path' else next + + parentModuleName' = + case parentModuleName of + Just name -> "module '" ++ name ++ "'" + Nothing -> "the main module" + + notFound = throwError $ unlines + [ "When finding the imports declared in " ++ parentModuleName' ++ ", could not find file: " ++ path + , " If you created this module, but it is in a subdirectory that does not" + , " exactly match the module name, you may need to use the --src-dir flag." + , "" + , " If it is part of a 3rd party library, it needs to be declared" + , " as a dependency in your project's " ++ Path.dependencyFile ++ " file." + ] isNative :: String -> Bool isNative name = List.isPrefixOf "Native." name diff --git a/compiler/Build/Flags.hs b/compiler/Build/Flags.hs --- a/compiler/Build/Flags.hs +++ b/compiler/Build/Flags.hs @@ -41,4 +41,4 @@ } &= help "Compile Elm programs to HTML, CSS, and JavaScript." &= helpArg [explicit, name "help", name "h"] &= versionArg [explicit, name "version", name "v", summary (show Version.elmVersion)] - &= summary ("The Elm Compiler " ++ show Version.elmVersion ++ ", (c) Evan Czaplicki 2011-2013") + &= summary ("The Elm Compiler " ++ show Version.elmVersion ++ ", (c) Evan Czaplicki 2011-2014") diff --git a/compiler/Build/Source.hs b/compiler/Build/Source.hs --- a/compiler/Build/Source.hs +++ b/compiler/Build/Source.hs @@ -2,7 +2,6 @@ module Build.Source (build) where import qualified Data.Map as Map -import qualified Data.Set as Set import System.FilePath as FP import Text.PrettyPrint (Doc) @@ -33,7 +32,7 @@ let exports' | null exs = - let get = Set.toList . Pattern.boundVars in + let get = Pattern.boundVarList in concat [ get pattern | Definition (Expr.Definition pattern _ _) <- decls ] ++ concat [ map fst ctors | Datatype _ _ ctors <- decls ] ++ [ name | TypeAlias name _ (Type.Record _ _) <- decls ] diff --git a/compiler/Build/Utils.hs b/compiler/Build/Utils.hs --- a/compiler/Build/Utils.hs +++ b/compiler/Build/Utils.hs @@ -1,8 +1,11 @@ {-# OPTIONS_GHC -W #-} module Build.Utils where +import System.Directory (doesFileExist) +import System.Environment (getEnv) import System.FilePath ((), replaceExtension) import qualified Build.Flags as Flag +import qualified Paths_Elm as This buildPath :: Flag.Flags -> FilePath -> String -> FilePath buildPath flags filePath ext = @@ -19,3 +22,14 @@ elmi :: Flag.Flags -> FilePath -> FilePath elmi flags filePath = cachePath flags filePath "elmi" + +-- |The absolute path to a data file +getDataFile :: FilePath -> IO FilePath +getDataFile name = do + path <- This.getDataFileName name + exists <- doesFileExist path + if exists + then return path + else do + env <- getEnv "ELM_HOME" + return (env name) diff --git a/compiler/Docs.hs b/compiler/Docs.hs --- a/compiler/Docs.hs +++ b/compiler/Docs.hs @@ -8,6 +8,7 @@ import System.IO import Control.Applicative ((<$>)) +import Control.Arrow (second) import Data.Aeson import Data.Aeson.Encode.Pretty import qualified Data.List as List @@ -15,8 +16,8 @@ import qualified Data.ByteString.Lazy as BS import qualified Data.Text as Text -import SourceSyntax.Helpers (isSymbol) -import SourceSyntax.Type (Type(..)) +import qualified SourceSyntax.Helpers as Help +import qualified SourceSyntax.Type as T import qualified SourceSyntax.Expression as E import qualified SourceSyntax.Declaration as D @@ -30,20 +31,24 @@ { files :: [FilePath] } deriving (Data,Typeable,Show,Eq) +defaultFlags :: Flags defaultFlags = Flags { files = def &= args &= typ "FILES" } &= help "Generate documentation for Elm" &= summary ("Generate documentation for Elm, (c) Evan Czaplicki") +main :: IO () main = do flags <- cmdArgs defaultFlags - mapM parseFile (files flags) + mapM_ parseFile (files flags) +config :: Config config = Config { confIndent = 2, confCompare = keyOrder keys } where - keys = ["name","document","comment","raw","aliases","datatypes" + keys = ["tag","name","document","comment","raw","aliases","datatypes" ,"values","typeVariables","type","constructors"] +parseFile :: FilePath -> IO () parseFile path = do source <- readFile path case iParse docs source of @@ -69,6 +74,7 @@ let reversed = dropWhile (`elem` " \n\r") . drop 2 $ reverse contents return $ dropWhile (==' ') (reverse reversed) +moduleDocs :: IParser (String, [String], String) moduleDocs = do optional freshLine (names,exports) <- moduleDef @@ -121,7 +127,7 @@ where nonCustomOps = Map.mapWithKey addDefaultInfix $ Map.difference types infixes addDefaultInfix name pairs - | all isSymbol name = addInfix (D.L, 9 :: Int) pairs + | all Help.isSymbol name = addInfix (D.L, 9 :: Int) pairs | otherwise = pairs customOps = Map.intersectionWith addInfix infixes types @@ -138,7 +144,7 @@ let fields = ["typeVariables" .= vars, "type" .= tipe ] in collect infixes types (insert name fields aliases) adts rest D.Datatype name vars ctors -> - let tipe = Data name (map Var vars) + let tipe = T.Data name (map T.Var vars) fields = ["typeVariables" .= vars , "constructors" .= map (ctorToJson tipe) ctors ] in collect infixes types aliases (insert name fields adts) rest @@ -147,17 +153,35 @@ obj name fields = [ "name" .= name, "raw" .= source, "comment" .= comment ] ++ fields -instance ToJSON Type where - toJSON tipe = - case tipe of - Lambda t1 t2 -> toJSON [ "->", toJSON t1, toJSON t2 ] - Var x -> toJSON x - Data name ts -> toJSON (toJSON name : map toJSON ts) - Record fields ext -> object $ map (\(n,t) -> Text.pack n .= toJSON t) fields' - where fields' = case ext of - Nothing -> fields - Just x -> ("_", Var x) : fields +instance ToJSON T.Type where + toJSON tipe = + object $ + case tipe of + T.Lambda _ _ -> + let tipes = T.collectLambdas tipe in + [ "tag" .= ("function" :: Text.Text) + , "args" .= toJSON (init tipes) + , "result" .= toJSON (last tipes) + ] + T.Var x -> + [ "tag" .= ("var" :: Text.Text) + , "name" .= toJSON x + ] + + T.Data name ts -> + [ "tag" .= ("adt" :: Text.Text) + , "name" .= toJSON name + , "args" .= map toJSON ts + ] + + T.Record fields ext -> + [ "tag" .= ("record" :: Text.Text) + , "fields" .= toJSON (map (toJSON . second toJSON) fields) + , "extension" .= toJSON ext + ] + +ctorToJson :: T.Type -> (String, [T.Type]) -> Value ctorToJson tipe (ctor, tipes) = object [ "name" .= ctor - , "type" .= foldr Lambda tipe tipes ] + , "type" .= foldr T.Lambda tipe tipes ] diff --git a/compiler/Elm/Internal/Paths.hs b/compiler/Elm/Internal/Paths.hs --- a/compiler/Elm/Internal/Paths.hs +++ b/compiler/Elm/Internal/Paths.hs @@ -1,7 +1,8 @@ +{-# OPTIONS_GHC -Wall #-} module Elm.Internal.Paths where -import System.IO.Unsafe -import qualified Paths_Elm as This +import Build.Utils (getDataFile) +import System.IO.Unsafe (unsafePerformIO) -- |Name of directory for all of a project's dependencies. dependencyDirectory :: FilePath @@ -15,9 +16,9 @@ {-# NOINLINE runtime #-} -- |The absolute path to Elm's runtime system. runtime :: FilePath -runtime = unsafePerformIO $ This.getDataFileName "elm-runtime.js" +runtime = unsafePerformIO $ getDataFile "elm-runtime.js" {-# NOINLINE docs #-} -- |The absolute path to Elm's core library documentation. docs :: FilePath -docs = unsafePerformIO $ This.getDataFileName "docs.json" +docs = unsafePerformIO $ getDataFile "docs.json" diff --git a/compiler/Generate/Cases.hs b/compiler/Generate/Cases.hs --- a/compiler/Generate/Cases.hs +++ b/compiler/Generate/Cases.hs @@ -6,14 +6,15 @@ import Data.List (groupBy,sortBy) import Data.Maybe (fromMaybe) -import SourceSyntax.Location -import SourceSyntax.Literal -import SourceSyntax.Pattern +import SourceSyntax.Annotation import SourceSyntax.Expression +import SourceSyntax.Literal +import qualified SourceSyntax.Pattern as P +import qualified SourceSyntax.Variable as V import Transform.Substitute -toMatch :: [(Pattern, LExpr)] -> State Int (String, Match) +toMatch :: [(P.Pattern, Expr)] -> State Int (String, Match) toMatch patterns = do v <- newVar (,) v <$> match [v] (map (first (:[])) patterns) Fail @@ -27,7 +28,7 @@ = Match String [Clause] Match | Break | Fail - | Other LExpr + | Other Expr | Seq [Match] deriving Show @@ -39,8 +40,8 @@ matchSubst _ Break = Break matchSubst _ Fail = Fail matchSubst pairs (Seq ms) = Seq (map (matchSubst pairs) ms) -matchSubst pairs (Other (L s e)) = - Other . L s $ foldr ($) e $ map (\(x,y) -> subst x (Var y)) pairs +matchSubst pairs (Other (A a e)) = + Other . A a $ foldr ($) e $ map (\(x,y) -> subst x (rawVar y)) pairs matchSubst pairs (Match n cs m) = Match (varSubst n) (map clauseSubst cs) (matchSubst pairs m) where varSubst v = fromMaybe v (lookup v pairs) @@ -49,13 +50,13 @@ isCon (p:_, _) = case p of - PData _ _ -> True - PLiteral _ -> True - _ -> False + P.Data _ _ -> True + P.Literal _ -> True + _ -> False isVar p = not (isCon p) -match :: [String] -> [([Pattern],LExpr)] -> Match -> State Int Match +match :: [String] -> [([P.Pattern],Expr)] -> Match -> State Int Match match [] [] def = return def match [] [([],e)] Fail = return $ Other e match [] [([],e)] Break = return $ Other e @@ -67,46 +68,46 @@ where cs' = map (dealias v) cs -dealias v c@(p:ps, L s e) = +dealias v c@(p:ps, A a e) = case p of - PAlias x pattern -> (pattern:ps, L s $ subst x (Var v) e) + P.Alias x pattern -> (pattern:ps, A a $ subst x (rawVar v) e) _ -> c -matchVar :: [String] -> [([Pattern],LExpr)] -> Match -> State Int Match +matchVar :: [String] -> [([P.Pattern],Expr)] -> Match -> State Int Match matchVar (v:vs) cs def = match vs (map subVar cs) def where - subVar (p:ps, (L s e)) = (ps, L s $ subOnePattern p e) + subVar (p:ps, (A a e)) = (ps, A a $ subOnePattern p e) where subOnePattern pattern e = case pattern of - PVar x -> subst x (Var v) e - PAnything -> e - PRecord fs -> - foldr (\x -> subst x (Access (L s (Var v)) x)) e fs + P.Var x -> subst x (rawVar v) e + P.Anything -> e + P.Record fs -> + foldr (\x -> subst x (Access (A a (rawVar v)) x)) e fs -matchCon :: [String] -> [([Pattern],LExpr)] -> Match -> State Int Match +matchCon :: [String] -> [([P.Pattern],Expr)] -> Match -> State Int Match matchCon (v:vs) cs def = (flip (Match v) def) <$> mapM toClause css where css = groupBy eq (sortBy cmp cs) cmp (p1:_,_) (p2:_,_) = case (p1,p2) of - (PData n1 _, PData n2 _) -> compare n1 n2 + (P.Data n1 _, P.Data n2 _) -> compare n1 n2 _ -> compare p1 p2 eq (p1:_,_) (p2:_,_) = case (p1,p2) of - (PData n1 _, PData n2 _) -> n1 == n2 + (P.Data n1 _, P.Data n2 _) -> n1 == n2 _ -> p1 == p2 toClause cs = case head cs of - (PData name _ : _, _) -> matchClause (Left name) (v:vs) cs Break - (PLiteral lit : _, _) -> matchClause (Right lit) (v:vs) cs Break + (P.Data name _ : _, _) -> matchClause (Left name) (v:vs) cs Break + (P.Literal lit : _, _) -> matchClause (Right lit) (v:vs) cs Break matchClause :: Either String Literal -> [String] - -> [([Pattern],LExpr)] + -> [([P.Pattern],Expr)] -> Match -> State Int Clause matchClause c (_:vs) cs def = @@ -116,14 +117,14 @@ flatten (p:ps, e) = case p of - PData _ ps' -> (ps' ++ ps, e) - PLiteral _ -> (ps, e) + P.Data _ ps' -> (ps' ++ ps, e) + P.Literal _ -> (ps, e) getVars = case head cs of - (PData _ ps : _, _) -> forM ps (const newVar) - (PLiteral _ : _, _) -> return [] + (P.Data _ ps : _, _) -> forM ps (const newVar) + (P.Literal _ : _, _) -> return [] -matchMix :: [String] -> [([Pattern],LExpr)] -> Match -> State Int Match +matchMix :: [String] -> [([P.Pattern],Expr)] -> Match -> State Int Match matchMix vs cs def = foldM (flip $ match vs) def (reverse css) where css = groupBy (\p1 p2 -> isCon p1 == isCon p2) cs diff --git a/compiler/Generate/JavaScript.hs b/compiler/Generate/JavaScript.hs --- a/compiler/Generate/JavaScript.hs +++ b/compiler/Generate/JavaScript.hs @@ -1,25 +1,27 @@ {-# OPTIONS_GHC -W #-} module Generate.JavaScript (generate) where -import Control.Arrow (first,(***)) import Control.Applicative ((<$>),(<*>)) +import Control.Arrow (first,(***)) import Control.Monad.State import qualified Data.List as List import qualified Data.Map as Map import qualified Data.Set as Set +import Language.ECMAScript3.PrettyPrint +import Language.ECMAScript3.Syntax import Generate.JavaScript.Helpers import qualified Generate.Cases as Case import qualified Generate.JavaScript.Ports as Port import qualified Generate.Markdown as MD +import SourceSyntax.Annotation +import SourceSyntax.Expression import qualified SourceSyntax.Helpers as Help import SourceSyntax.Literal -import SourceSyntax.Pattern as Pattern -import SourceSyntax.Location -import SourceSyntax.Expression import SourceSyntax.Module -import Language.ECMAScript3.Syntax -import Language.ECMAScript3.PrettyPrint +import qualified SourceSyntax.Pattern as P +import SourceSyntax.PrettyPrint (renderPretty) +import qualified SourceSyntax.Variable as V import qualified Transform.SafeNames as MakeSafe varDecl :: String -> Expression () -> VarDecl () @@ -50,10 +52,10 @@ FloatNum n -> NumLit () n Boolean b -> BoolLit () b -expression :: LExpr -> State Int (Expression ()) -expression (L span expr) = +expression :: Expr -> State Int (Expression ()) +expression (A region expr) = case expr of - Var x -> return $ ref x + Var (V.Raw x) -> return $ obj x Literal lit -> return $ literal lit Range lo hi -> @@ -85,17 +87,16 @@ do fields' <- forM fields $ \(f,e) -> do (,) f <$> expression e let fieldMap = List.foldl' combine Map.empty fields' - return $ ObjectLit () $ (PropId () (var "_"), hidden fieldMap) : visible fieldMap + return $ ObjectLit () $ (prop "_", hidden fieldMap) : visible fieldMap where combine r (k,v) = Map.insertWith (++) k [v] r - prop = PropId () . var hidden fs = ObjectLit () . map (prop *** ArrayLit ()) . Map.toList . Map.filter (not . null) $ Map.map tail fs visible fs = map (first prop) . Map.toList $ Map.map head fs - Binop op e1 e2 -> binop span op e1 e2 + Binop op e1 e2 -> binop region op e1 e2 - Lambda p e@(L s _) -> + Lambda p e@(A ann _) -> do (args, body) <- foldM depattern ([], innerBody) (reverse patterns) body' <- expression body return $ case length args < 2 || length args > 9 of @@ -104,13 +105,14 @@ where depattern (args, body) pattern = case pattern of - PVar x -> return (args ++ [x], body) + P.Var x -> return (args ++ [x], body) _ -> do arg <- Case.newVar - return (args ++ [arg], L s (Case (L s (Var arg)) [(pattern, body)])) + return ( args ++ [arg] + , A ann (Case (A ann (rawVar arg)) [(pattern, body)])) (patterns, innerBody) = collect [p] e - collect patterns lexpr@(L _ expr) = + collect patterns lexpr@(A _ expr) = case expr of Lambda p e -> collect (p:patterns) e _ -> (patterns, lexpr) @@ -127,7 +129,7 @@ (func, args) = getArgs e1 [e2] getArgs func args = case func of - (L _ (App f arg)) -> getArgs f (arg : args) + (A _ (App f arg)) -> getArgs f (arg : args) _ -> (func, args) Let defs e -> @@ -139,9 +141,9 @@ MultiIf branches -> do branches' <- forM branches $ \(b,e) -> (,) <$> expression b <*> expression e return $ case last branches of - (L _ (Var "Basics.otherwise"), _) -> safeIfs branches' - (L _ (Literal (Boolean True)), _) -> safeIfs branches' - _ -> ifs branches' (obj "_E.If" `call` [ ref "$moduleName", string (show span) ]) + (A _ (Var (V.Raw "Basics.otherwise")), _) -> safeIfs branches' + (A _ (Literal (Boolean True)), _) -> safeIfs branches' + _ -> ifs branches' (obj "_E.If" `call` [ ref "$moduleName", string (renderPretty region) ]) where safeIfs branches = ifs (init branches) (snd (last branches)) ifs branches finally = foldr iff finally branches @@ -151,10 +153,12 @@ do (tempVar,initialMatch) <- Case.toMatch cases (revisedMatch, stmt) <- case e of - L _ (Var x) -> return (Case.matchSubst [(tempVar,x)] initialMatch, []) - _ -> do e' <- expression e - return (initialMatch, [VarDeclStmt () [varDecl tempVar e']]) - match' <- match span revisedMatch + A _ (Var (V.Raw x)) -> + return (Case.matchSubst [(tempVar,x)] initialMatch, []) + _ -> + do e' <- expression e + return (initialMatch, [VarDeclStmt () [varDecl tempVar e']]) + match' <- match region revisedMatch return (function [] (stmt ++ match') `call` []) ExplicitList es -> @@ -184,28 +188,28 @@ [ string name, Port.outgoing tipe, value' ] definition :: Def -> State Int [Statement ()] -definition (Definition pattern expr@(L span _) _) = do +definition (Definition pattern expr@(A region _) _) = do expr' <- expression expr let assign x = varDecl x expr' case pattern of - PVar x + P.Var x | Help.isOp x -> let op = LBracket () (ref "_op") (string x) in return [ ExprStmt () $ AssignExpr () OpAssign op expr' ] | otherwise -> return [ VarDeclStmt () [ assign x ] ] - PRecord fields -> + P.Record fields -> let setField f = varDecl f (dotSep ["$",f]) in return [ VarDeclStmt () (assign "$" : map setField fields) ] - PData name patterns | vars /= Nothing -> + P.Data name patterns | vars /= Nothing -> return [ VarDeclStmt () (setup (zipWith decl (maybe [] id vars) [0..])) ] where vars = getVars patterns getVars patterns = case patterns of - PVar x : rest -> (x:) `fmap` getVars rest + P.Var x : rest -> (x:) `fmap` getVars rest [] -> Just [] _ -> Nothing @@ -216,41 +220,45 @@ safeAssign = varDecl "$" (CondExpr () if' (obj "$raw") exception) if' = InfixExpr () OpStrictEq (obj "$raw.ctor") (string name) - exception = obj "_E.Case" `call` [ref "$moduleName", string (show span)] + exception = obj "_E.Case" `call` [ref "$moduleName", string (renderPretty region)] _ -> do defs' <- concat <$> mapM toDef vars return (VarDeclStmt () [assign "$"] : defs') where - vars = Set.toList $ Pattern.boundVars pattern - mkVar = L span . Var - toDef y = let expr = L span $ Case (mkVar "$") [(pattern, mkVar y)] - in definition $ Definition (PVar y) expr Nothing + vars = P.boundVarList pattern + mkVar = A region . rawVar + toDef y = let expr = A region $ Case (mkVar "$") [(pattern, mkVar y)] + in definition $ Definition (P.Var y) expr Nothing -match :: SrcSpan -> Case.Match -> State Int [Statement ()] -match span mtch = +match :: Region -> Case.Match -> State Int [Statement ()] +match region mtch = case mtch of Case.Match name clauses mtch' -> - do (isChars, clauses') <- unzip <$> mapM (clause span name) clauses - mtch'' <- match span mtch' + do (isChars, clauses') <- unzip <$> mapM (clause region name) clauses + mtch'' <- match region mtch' return (SwitchStmt () (format isChars (access name)) clauses' : mtch'') where isLiteral p = case p of Case.Clause (Right _) _ _ -> True _ -> False - access name = if any isLiteral clauses then ref name else dotSep [name,"ctor"] + + access name + | any isLiteral clauses = obj name + | otherwise = dotSep (split name ++ ["ctor"]) + format isChars e | or isChars = InfixExpr () OpAdd e (string "") | otherwise = e Case.Fail -> - return [ ExprStmt () (obj "_E.Case" `call` [ref "$moduleName", string (show span)]) ] + return [ ExprStmt () (obj "_E.Case" `call` [ref "$moduleName", string (renderPretty region)]) ] Case.Break -> return [BreakStmt () Nothing] Case.Other e -> do e' <- expression e return [ ret e' ] - Case.Seq ms -> concat <$> mapM (match span) (dropEnd [] ms) + Case.Seq ms -> concat <$> mapM (match region) (dropEnd [] ms) where dropEnd acc [] = acc dropEnd acc (m:ms) = @@ -258,9 +266,9 @@ Case.Other _ -> acc ++ [m] _ -> dropEnd (acc ++ [m]) ms -clause :: SrcSpan -> String -> Case.Clause -> State Int (Bool, CaseClause ()) -clause span variable (Case.Clause value vars mtch) = - (,) isChar . CaseClause () pattern <$> match span (Case.matchSubst (zip vars vars') mtch) +clause :: Region -> String -> Case.Clause -> State Int (Bool, CaseClause ()) +clause region variable (Case.Clause value vars mtch) = + (,) isChar . CaseClause () pattern <$> match region (Case.matchSubst (zip vars vars') mtch) where vars' = map (\n -> variable ++ "._" ++ show n) [0..] (isChar, pattern) = @@ -273,8 +281,8 @@ [] -> name is -> drop (last is + 1) name -flattenLets :: [Def] -> LExpr -> ([Def], LExpr) -flattenLets defs lexpr@(L _ expr) = +flattenLets :: [Def] -> Expr -> ([Def], Expr) +flattenLets defs lexpr@(A _ expr) = case expr of Let ds body -> flattenLets (defs ++ ds) body _ -> (defs, lexpr) @@ -288,7 +296,8 @@ thisModule = dotSep ("_elm" : names modul ++ ["values"]) programStmts = concat - [ setup (Just "_elm") (names modul ++ ["values"]) + [ [ ExprStmt () $ string "use strict" ] + , setup (Just "_elm") (names modul ++ ["values"]) , [ IfSingleStmt () thisModule (ret thisModule) ] , [ internalImports (List.intercalate "." (names modul)) ] , concatMap jsImport . Set.toList . Set.fromList . map fst $ imports modul @@ -301,7 +310,7 @@ jsExports = assign ("_elm" : names modul ++ ["values"]) (ObjectLit () exs) where exs = map entry . filter (not . Help.isOp) $ "_op" : exports modul - entry x = (PropId () (var x), ref x) + entry x = (prop x, ref x) assign path expr = case path of @@ -311,7 +320,7 @@ jsImport modul = setup Nothing path ++ [ include ] where - path = split modul + path = Help.splitDots modul include = assign path $ dotSep ("Elm" : path ++ ["make"]) <| ref "_elm" setup namespace path = map create paths @@ -321,8 +330,8 @@ Nothing -> tail . init $ List.inits path Just nmspc -> drop 2 . init . List.inits $ nmspc : path -binop :: SrcSpan -> String -> LExpr -> LExpr -> State Int (Expression ()) -binop span op e1 e2 = +binop :: Region -> String -> Expr -> Expr -> State Int (Expression ()) +binop region op e1 e2 = case op of "Basics.." -> do es <- mapM expression (e1 : collect [] e2) @@ -335,7 +344,7 @@ do e1' <- expression e1 e2' <- expression e2 return $ obj "_L.append" `call` [e1', e2'] - "::" -> expression (L span (Data "::" [e1,e2])) + "::" -> expression (A region (Data "::" [e1,e2])) _ -> do e1' <- expression e1 e2' <- expression e2 @@ -345,13 +354,13 @@ where collect es e = case e of - L _ (Binop op e1 e2) | op == "Basics.." -> collect (es ++ [e1]) e2 + A _ (Binop op e1 e2) | op == "Basics.." -> collect (es ++ [e1]) e2 _ -> es ++ [e] func | Help.isOp operator = BracketRef () (dotSep (init parts ++ ["_op"])) (string operator) | otherwise = dotSep parts where - parts = split op + parts = Help.splitDots op operator = last parts opDict = Map.fromList (infixOps ++ specialOps) diff --git a/compiler/Generate/JavaScript/Ports.hs b/compiler/Generate/JavaScript/Ports.hs --- a/compiler/Generate/JavaScript/Ports.hs +++ b/compiler/Generate/JavaScript/Ports.hs @@ -32,7 +32,7 @@ inc :: Type -> Expression () -> Expression () inc tipe x = - case tipe of + case tipe of Lambda _ _ -> error "functions should not be allowed through input ports" Var _ -> error "type variables should not be allowed through input ports" Data ctor [] @@ -58,22 +58,26 @@ where array = DotRef () x (var "map") <| incoming t - Data ctor ts | Help.isTuple ctor -> check x JSArray tuple + Data ctor ts + | Help.isTuple ctor -> check x JSArray tuple where - tuple = ObjectLit () $ (PropId () (var "ctor"), string ctor) : values + tuple = ObjectLit () $ (prop "ctor", string ctor) : values values = zipWith convert [0..] ts - convert n t = ( PropId () $ var ('_':show n) + convert n t = ( prop ('_':show n) , inc t (BracketRef () x (IntLit () n))) - Data _ _ -> error "bad ADT got to port generation code" + Data _ _ -> + error "bad ADT got to port generation code" - Record _ (Just _) -> error "bad record got to port generation code" + Record _ (Just _) -> + error "bad record got to port generation code" - Record fields Nothing -> check x (JSObject (map fst fields)) object + Record fields Nothing -> + check x (JSObject (map fst fields)) object where - object = ObjectLit () $ (PropId () (var "_"), ObjectLit () []) : keys + object = ObjectLit () $ (prop "_", ObjectLit () []) : keys keys = map convert fields - convert (f,t) = (PropId () (var f), inc t (DotRef () x (var f))) + convert (f,t) = (prop f, inc t (DotRef () x (var f))) outgoing tipe = case tipe of @@ -109,19 +113,21 @@ | ctor == "Maybe.Maybe" -> CondExpr () (equal (DotRef () x (var "ctor")) (string "Nothing")) (NullLit ()) - (DotRef () x (var "_0")) + (out t (DotRef () x (var "_0"))) | ctor == "_List" -> DotRef () (obj "_J.fromList" <| x) (var "map") <| outgoing t - Data ctor ts | Help.isTuple ctor -> - ArrayLit () $ zipWith convert [0..] ts - where - convert n t = out t $ DotRef () x $ var ('_':show n) - - Data _ _ -> error "bad ADT got to port generation code" + Data ctor ts + | Help.isTuple ctor -> + let convert n t = out t $ DotRef () x $ var ('_':show n) + in ArrayLit () $ zipWith convert [0..] ts + + Data _ _ -> + error "bad ADT got to port generation code" - Record _ (Just _) -> error "bad record got to port generation code" + Record _ (Just _) -> + error "bad record got to port generation code" Record fields Nothing -> ObjectLit () keys diff --git a/compiler/Generate/Noscript.hs b/compiler/Generate/Noscript.hs deleted file mode 100644 --- a/compiler/Generate/Noscript.hs +++ /dev/null @@ -1,68 +0,0 @@ -module Generate.Noscript (noscript) where - -import Data.List (isInfixOf) -import qualified SourceSyntax.Declaration as D -import SourceSyntax.Expression -import SourceSyntax.Literal -import SourceSyntax.Location -import SourceSyntax.Module -import qualified Generate.Markdown as MD - -noscript :: Extract def => Module def -> String -noscript modul = concat (extract modul) - -class Extract a where - extract :: a -> [String] - -instance Extract def => Extract (Module def) where - extract (Module _ _ _ stmts) = - map (\s -> "

" ++ s ++ "

") (concatMap extract stmts) - -instance Extract def => Extract (D.Declaration' port def) where - extract (D.Definition d) = extract d - extract _ = [] - -instance Extract Def where - extract (Definition _ e _) = extract e - -instance Extract e => Extract (Located e) where - extract (L _ e) = extract e - -instance Extract def => Extract (Expr' def) where - extract expr = - let f = extract in - case expr of - Literal (Str s) -> [s] - Binop op e1 e2 -> case (op, f e1, f e2) of - ("++", [s1], [s2]) -> [s1 ++ s2] - (_ , ss1 , ss2 ) -> ss1 ++ ss2 - Lambda v e -> f e - App (L _ (App (L _ (App (L _ (Var func)) w)) h)) src - | "image" `isInfixOf` func -> extractImage src - App (L _ (App (L _ (Var func)) src)) txt - | "link" `isInfixOf` func -> extractLink src txt - App (L _ (Var func)) e - | "header" `isInfixOf` func -> tag "h1" e - | "bold" `isInfixOf` func -> tag "b" e - | "italic" `isInfixOf` func -> tag "i" e - | "monospace" `isInfixOf` func -> tag "code" e - App e1 e2 -> f e1 ++ f e2 - Let defs e -> concatMap extract defs ++ f e - Var _ -> [] - Case e cases -> concatMap (f . snd) cases - Data _ es -> concatMap f es - MultiIf es -> concatMap (f . snd) es - Markdown _ md _ -> [ MD.toHtml md ] - _ -> [] - -extractLink src txt = - case (extract src, extract txt) of - ([s1],[s2]) -> [ "" ++ s2 ++ "" ] - ( ss1, ss2) -> ss1 ++ ss2 - -extractImage src = - case extract src of - [s] -> [""] - ss -> ss - -tag t e = map (\s -> concat [ "<", t, ">", s, "" ]) (extract e) diff --git a/compiler/Metadata/Prelude.hs b/compiler/Metadata/Prelude.hs --- a/compiler/Metadata/Prelude.hs +++ b/compiler/Metadata/Prelude.hs @@ -3,11 +3,11 @@ import qualified Data.Map as Map import qualified Control.Exception as E -import qualified Paths_Elm as Path import System.Exit import System.IO import SourceSyntax.Module import qualified Build.Interface as Interface +import Build.Utils (getDataFile) add :: Bool -> Module def -> Module def add noPrelude (Module name exs ims decls) = Module name exs (customIms ++ ims) decls @@ -20,18 +20,18 @@ Just _ -> [] prelude :: [(String, ImportMethod)] -prelude = string : text ++ map (\n -> (n, Hiding [])) modules +prelude = string ++ text ++ map (\n -> (n, Hiding [])) modules where text = map ((,) "Text") [ As "Text", Hiding ["link", "color", "height"] ] - string = ("String", As "String") - modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Prelude" - , "Graphics.Element", "Color", "Graphics.Collage", "Native.Ports" ] + string = map ((,) "String") [ As "String", Importing ["show"] ] + modules = [ "Basics", "Signal", "List", "Maybe", "Time", "Color" + , "Graphics.Element", "Graphics.Collage", "Native.Ports" ] interfaces :: Bool -> IO Interfaces interfaces noPrelude = if noPrelude - then return $ Map.empty - else safeReadDocs =<< Path.getDataFileName "interfaces.data" + then return Map.empty + else safeReadDocs =<< getDataFile "interfaces.data" safeReadDocs :: FilePath -> IO Interfaces safeReadDocs name = diff --git a/compiler/Parse/Binop.hs b/compiler/Parse/Binop.hs --- a/compiler/Parse/Binop.hs +++ b/compiler/Parse/Binop.hs @@ -1,10 +1,11 @@ +{-# OPTIONS_GHC -W #-} module Parse.Binop (binops, OpTable) where import Control.Applicative ((<$>)) -import Data.List (intercalate) +import qualified Data.List as List import qualified Data.Map as Map -import SourceSyntax.Location (merge) +import SourceSyntax.Annotation (merge) import qualified SourceSyntax.Expression as E import SourceSyntax.Declaration (Assoc(..)) import Text.Parsec @@ -16,13 +17,13 @@ opAssoc :: OpTable -> String -> Assoc opAssoc table op = snd $ Map.findWithDefault (9,L) op table -hasLevel :: OpTable -> Int -> (String, E.LParseExpr) -> Bool +hasLevel :: OpTable -> Int -> (String, E.ParseExpr) -> Bool hasLevel table n (op,_) = opLevel table op == n -binops :: IParser E.LParseExpr - -> IParser E.LParseExpr +binops :: IParser E.ParseExpr + -> IParser E.ParseExpr -> IParser String - -> IParser E.LParseExpr + -> IParser E.ParseExpr binops term last anyOp = do e <- term table <- getState @@ -38,9 +39,9 @@ split :: OpTable -> Int - -> E.LParseExpr - -> [(String, E.LParseExpr)] - -> IParser E.LParseExpr + -> E.ParseExpr + -> [(String, E.ParseExpr)] + -> IParser E.ParseExpr split _ _ e [] = return e split table n e eops = do assoc <- getAssoc table n eops @@ -49,26 +50,26 @@ case assoc of R -> joinR es ops _ -> joinL es ops -splitLevel :: OpTable -> Int -> E.LParseExpr -> [(String, E.LParseExpr)] - -> [IParser E.LParseExpr] +splitLevel :: OpTable -> Int -> E.ParseExpr -> [(String, E.ParseExpr)] + -> [IParser E.ParseExpr] splitLevel table n e eops = case break (hasLevel table n) eops of - (lops, (op,e'):rops) -> + (lops, (_op,e'):rops) -> split table (n+1) e lops : splitLevel table n e' rops (lops, []) -> [ split table (n+1) e lops ] -joinL :: [E.LParseExpr] -> [String] -> IParser E.LParseExpr +joinL :: [E.ParseExpr] -> [String] -> IParser E.ParseExpr joinL [e] [] = return e joinL (a:b:es) (op:ops) = joinL (merge a b (E.Binop op a b) : es) ops joinL _ _ = failure "Ill-formed binary expression. Report a compiler bug." -joinR :: [E.LParseExpr] -> [String] -> IParser E.LParseExpr +joinR :: [E.ParseExpr] -> [String] -> IParser E.ParseExpr joinR [e] [] = return e joinR (a:b:es) (op:ops) = do e <- joinR (b:es) ops return (merge a e (E.Binop op a e)) joinR _ _ = failure "Ill-formed binary expression. Report a compiler bug." -getAssoc :: OpTable -> Int -> [(String,E.LParseExpr)] -> IParser Assoc +getAssoc :: OpTable -> Int -> [(String,E.ParseExpr)] -> IParser Assoc getAssoc table n eops | all (==L) assocs = return L | all (==R) assocs = return R @@ -79,5 +80,5 @@ assocs = map (opAssoc table . fst) levelOps msg problem = concat [ "Conflicting " ++ problem ++ " for binary operators (" - , intercalate ", " (map fst eops), "). " + , List.intercalate ", " (map fst eops), "). " , "Consider adding parentheses to disambiguate." ] diff --git a/compiler/Parse/Expression.hs b/compiler/Parse/Expression.hs --- a/compiler/Parse/Expression.hs +++ b/compiler/Parse/Expression.hs @@ -5,45 +5,45 @@ import Text.Parsec hiding (newline,spaces) import Text.Parsec.Indent +import Parse.Binop import Parse.Helpers +import Parse.Literal import qualified Parse.Pattern as Pattern import qualified Parse.Type as Type -import Parse.Binop -import Parse.Literal -import SourceSyntax.Location as Location -import SourceSyntax.Pattern hiding (tuple,list) -import qualified SourceSyntax.Literal as Literal +import SourceSyntax.Annotation as Annotation +import qualified SourceSyntax.Pattern as P +import qualified SourceSyntax.Literal as L import SourceSyntax.Expression -------- Basic Terms -------- -varTerm :: IParser ParseExpr +varTerm :: IParser ParseExpr' varTerm = toVar <$> var "variable" -toVar :: String -> ParseExpr -toVar v = case v of "True" -> Literal (Literal.Boolean True) - "False" -> Literal (Literal.Boolean False) - _ -> Var v +toVar :: String -> ParseExpr' +toVar v = case v of "True" -> Literal (L.Boolean True) + "False" -> Literal (L.Boolean False) + _ -> rawVar v -accessor :: IParser ParseExpr +accessor :: IParser ParseExpr' accessor = do (start, lbl, end) <- located (try (string "." >> rLabel)) - let loc e = Location.at start end e - return (Lambda (PVar "_") (loc $ Access (loc $ Var "_") lbl)) + let loc e = Annotation.at start end e + return (Lambda (P.Var "_") (loc $ Access (loc $ rawVar "_") lbl)) -negative :: IParser ParseExpr +negative :: IParser ParseExpr' negative = do (start, nTerm, end) <- located (try (char '-' >> notFollowedBy (char '.' <|> char '-')) >> term) - let loc e = Location.at start end e - return (Binop "-" (loc $ Literal (Literal.IntNum 0)) nTerm) + let loc e = Annotation.at start end e + return (Binop "-" (loc $ Literal (L.IntNum 0)) nTerm) -------- Complex Terms -------- -listTerm :: IParser ParseExpr +listTerm :: IParser ParseExpr' listTerm = markdown' <|> braces (try range <|> ExplicitList <$> commaSep expr) where range = do @@ -60,92 +60,93 @@ span uid index = "{{ markdown interpolation is in the pipeline, but still needs more testing }}" - interpolation uid md exprs = do + interpolation uid exprs = do try (string "{{") e <- padded expr string "}}" - return (md ++ span uid (length exprs), exprs ++ [e]) + return (span uid (length exprs), exprs ++ [e]) -parensTerm :: IParser LParseExpr +parensTerm :: IParser ParseExpr parensTerm = try (parens opFn) <|> parens (tupleFn <|> parened) where opFn = do (start, op, end) <- located anyOp - let loc = Location.at start end - return . loc . Lambda (PVar "x") . loc . Lambda (PVar "y") . loc $ - Binop op (loc $ Var "x") (loc $ Var "y") + let loc = Annotation.at start end + return . loc . Lambda (P.Var "x") . loc . Lambda (P.Var "y") . loc $ + Binop op (loc $ rawVar "x") (loc $ rawVar "y") tupleFn = do let comma = char ',' "comma ','" (start, commas, end) <- located (comma >> many (whitespace >> comma)) let vars = map (('v':) . show) [ 0 .. length commas + 1 ] - loc = Location.at start end + loc = Annotation.at start end return $ foldr (\x e -> loc $ Lambda x e) - (loc . tuple $ map (loc . Var) vars) (map PVar vars) + (loc . tuple $ map (loc . rawVar) vars) (map P.Var vars) parened = do (start, es, end) <- located (commaSep expr) return $ case es of [e] -> e - _ -> Location.at start end (tuple es) + _ -> Annotation.at start end (tuple es) -recordTerm :: IParser LParseExpr +recordTerm :: IParser ParseExpr recordTerm = brackets $ choice [ misc, addLocation record ] - where field = do - label <- rLabel - patterns <- spacePrefix Pattern.term - padded equals - body <- expr - return (label, makeFunction patterns body) + where + field = do + label <- rLabel + patterns <- spacePrefix Pattern.term + padded equals + body <- expr + return (label, makeFunction patterns body) - record = Record <$> commaSep field + record = Record <$> commaSep field - change = do - lbl <- rLabel - padded (string "<-") - (,) lbl <$> expr + change = do + lbl <- rLabel + padded (string "<-") + (,) lbl <$> expr - remove r = addLocation (string "-" >> whitespace >> Remove r <$> rLabel) + remove r = addLocation (string "-" >> whitespace >> Remove r <$> rLabel) - insert r = addLocation $ do - string "|" >> whitespace - Insert r <$> rLabel <*> (padded equals >> expr) + insert r = addLocation $ do + string "|" >> whitespace + Insert r <$> rLabel <*> (padded equals >> expr) - modify r = addLocation - (string "|" >> whitespace >> Modify r <$> commaSep1 change) + modify r = + addLocation (string "|" >> whitespace >> Modify r <$> commaSep1 change) - misc = try $ do - record <- addLocation (Var <$> rLabel) - opt <- padded (optionMaybe (remove record)) - case opt of - Just e -> try (insert e) <|> return e - Nothing -> try (insert record) <|> try (modify record) + misc = try $ do + record <- addLocation (rawVar <$> rLabel) + opt <- padded (optionMaybe (remove record)) + case opt of + Just e -> try (insert e) <|> return e + Nothing -> try (insert record) <|> try (modify record) -term :: IParser LParseExpr +term :: IParser ParseExpr term = addLocation (choice [ Literal <$> literal, listTerm, accessor, negative ]) <|> accessible (addLocation varTerm <|> parensTerm <|> recordTerm) "basic term (4, x, 'c', etc.)" -------- Applications -------- -appExpr :: IParser LParseExpr +appExpr :: IParser ParseExpr appExpr = do t <- term ts <- constrainedSpacePrefix term $ \str -> if null str then notFollowedBy (char '-') else return () return $ case ts of [] -> t - _ -> foldl' (\f x -> Location.merge f x $ App f x) t ts + _ -> foldl' (\f x -> Annotation.merge f x $ App f x) t ts -------- Normal Expressions -------- -binaryExpr :: IParser LParseExpr +binaryExpr :: IParser ParseExpr binaryExpr = binops appExpr lastExpr anyOp where lastExpr = addLocation (choice [ ifExpr, letExpr, caseExpr ]) <|> lambdaExpr -ifExpr :: IParser ParseExpr +ifExpr :: IParser ParseExpr' ifExpr = reserved "if" >> whitespace >> (normal <|> multiIf) where normal = do @@ -155,13 +156,13 @@ whitespace "an 'else' branch" ; reserved "else" "an 'else' branch" ; whitespace elseBranch <- expr return $ MultiIf [(bool, thenBranch), - (Location.sameAs elseBranch (Literal . Literal.Boolean $ True), elseBranch)] + (Annotation.sameAs elseBranch (Literal . L.Boolean $ True), elseBranch)] multiIf = MultiIf <$> spaceSep1 iff where iff = do string "|" ; whitespace b <- expr ; padded arrow (,) b <$> expr -lambdaExpr :: IParser LParseExpr +lambdaExpr :: IParser ParseExpr lambdaExpr = do char '\\' <|> char '\x03BB' "anonymous function" whitespace args <- spaceSep1 Pattern.term @@ -172,14 +173,14 @@ defSet :: IParser [ParseDef] defSet = block (do d <- def ; whitespace ; return d) -letExpr :: IParser ParseExpr +letExpr :: IParser ParseExpr' letExpr = do reserved "let" ; whitespace defs <- defSet padded (reserved "in") Let defs <$> expr -caseExpr :: IParser ParseExpr +caseExpr :: IParser ParseExpr' caseExpr = do reserved "case"; e <- padded expr; reserved "of"; whitespace Case e <$> (with <|> without) @@ -189,35 +190,35 @@ with = brackets (semiSep1 (case_ "cases { x -> ... }")) without = block (do c <- case_ ; whitespace ; return c) -expr :: IParser LParseExpr +expr :: IParser ParseExpr expr = addLocation (choice [ ifExpr, letExpr, caseExpr ]) <|> lambdaExpr <|> binaryExpr "an expression" -defStart :: IParser [Pattern] +defStart :: IParser [P.Pattern] defStart = choice [ do p1 <- try Pattern.term infics p1 <|> func p1 - , func =<< (PVar <$> parens symOp) + , func =<< (P.Var <$> parens symOp) , (:[]) <$> Pattern.expr ] "the definition of a variable (x = ...)" where func pattern = case pattern of - PVar _ -> (pattern:) <$> spacePrefix Pattern.term + P.Var _ -> (pattern:) <$> spacePrefix Pattern.term _ -> do try (lookAhead (whitespace >> string "=")) return [pattern] infics p1 = do o:p <- try (whitespace >> anyOp) p2 <- (whitespace >> Pattern.term) - return $ if o == '`' then [ PVar $ takeWhile (/='`') p, p1, p2 ] - else [ PVar (o:p), p1, p2 ] + return $ if o == '`' then [ P.Var $ takeWhile (/='`') p, p1, p2 ] + else [ P.Var (o:p), p1, p2 ] -makeFunction :: [Pattern] -> LParseExpr -> LParseExpr -makeFunction args body@(L s _) = - foldr (\arg body' -> L s $ Lambda arg body') body args +makeFunction :: [P.Pattern] -> ParseExpr -> ParseExpr +makeFunction args body@(A ann _) = + foldr (\arg body' -> A ann $ Lambda arg body') body args definition :: IParser ParseDef definition = withPos $ do diff --git a/compiler/Parse/Helpers.hs b/compiler/Parse/Helpers.hs --- a/compiler/Parse/Helpers.hs +++ b/compiler/Parse/Helpers.hs @@ -12,11 +12,12 @@ import Text.Parsec.Indent import qualified Text.Parsec.Token as T -import SourceSyntax.Helpers as Help -import SourceSyntax.Location as Location +import SourceSyntax.Annotation as Annotation +import SourceSyntax.Declaration (Assoc) import SourceSyntax.Expression +import SourceSyntax.Helpers as Help import SourceSyntax.PrettyPrint -import SourceSyntax.Declaration (Assoc) +import SourceSyntax.Variable as Variable reserveds = [ "if", "then", "else" , "case", "of" @@ -168,7 +169,8 @@ char b "closing '" ++ [b] ++ "'" ; return out surround a z name p = do - char a ; v <- padded p + char a + v <- padded p char z unwords ["closing", name, show z] return v @@ -181,10 +183,10 @@ brackets :: IParser a -> IParser a brackets = surround '{' '}' "bracket" -addLocation :: (Pretty a) => IParser a -> IParser (Location.Located a) +addLocation :: (Pretty a) => IParser a -> IParser (Annotation.Located a) addLocation expr = do (start, e, end) <- located expr - return (Location.at start end e) + return (Annotation.at start end e) located :: IParser a -> IParser (SourcePos, a, SourcePos) located p = do @@ -193,10 +195,10 @@ end <- getPosition return (start, e, end) -accessible :: IParser LParseExpr -> IParser LParseExpr +accessible :: IParser ParseExpr -> IParser ParseExpr accessible expr = do start <- getPosition - ce@(L _ e) <- expr + ce@(A _ e) <- expr let rest f = do let dot = char '.' >> notFollowedBy (char '.') access <- optionMaybe (try dot "field access (e.g. List.map)") @@ -205,10 +207,12 @@ Just _ -> accessible $ do v <- var "field access (e.g. List.map)" end <- getPosition - return (Location.at start end (f v)) - case e of Var (c:cs) | isUpper c -> rest (\v -> Var (c:cs ++ '.':v)) - | otherwise -> rest (Access ce) - _ -> rest (Access ce) + return (Annotation.at start end (f v)) + case e of + Var (Variable.Raw (c:cs)) + | isUpper c -> rest (\v -> rawVar (c:cs ++ '.':v)) + | otherwise -> rest (Access ce) + _ -> rest (Access ce) spaces :: IParser String @@ -268,7 +272,7 @@ ignore p = const () <$> p filler = choice [ try (ignore chr) <|> ignore str , ignore multiComment - , ignore (markdown (\_ _ -> mzero)) + , ignore (markdown (\_ -> mzero)) , ignore anyChar ] go = choice [ Just <$> end @@ -301,15 +305,15 @@ True -> return [] False -> (:) <$> anyChar <*> go -markdown :: (String -> [a] -> IParser (String, [a])) -> IParser (String, [a]) -markdown interpolation = try (string "[markdown|") >> closeMarkdown "" [] +markdown :: ([a] -> IParser (String, [a])) -> IParser (String, [a]) +markdown interpolation = try (string "[markdown|") >> closeMarkdown (++ "") [] where closeMarkdown md stuff = choice [ do try (string "|]") - return (md, stuff) - , uncurry closeMarkdown =<< interpolation md stuff + return (md "", stuff) + , (\(m,s) -> closeMarkdown (md . (m ++)) s) =<< interpolation stuff , do c <- anyChar - closeMarkdown (md ++ [c]) stuff + closeMarkdown (md . ([c]++)) stuff ] --str :: IParser String diff --git a/compiler/Parse/Literal.hs b/compiler/Parse/Literal.hs --- a/compiler/Parse/Literal.hs +++ b/compiler/Parse/Literal.hs @@ -1,4 +1,4 @@ -{-# OPTIONS_GHC -Wall -fno-warn-unused-do-bind #-} +{-# OPTIONS_GHC -W #-} module Parse.Literal (literal) where import Control.Applicative ((<$>)) @@ -7,16 +7,34 @@ import SourceSyntax.Literal literal :: IParser Literal -literal = num <|> (Str <$> str) <|> (Chr <$> chr) +literal = num <|> (Str <$> str) <|> (Chr <$> chr) "literal" num :: IParser Literal -num = fmap toLit (preNum "number") - where toLit n | '.' `elem` n = FloatNum (read n) - | otherwise = IntNum (read n) - preNum = concat <$> sequence [ option "" minus, many1 digit, option "" postNum ] - postNum = do try $ lookAhead (string "." >> digit) - string "." - ('.':) <$> many1 digit - minus = try $ do string "-" - lookAhead digit - return "-" +num = toLit <$> (number "number") + where + toLit n + | any (`elem` ".eE") n = FloatNum (read n) + | otherwise = IntNum (read n) + + number = concat <$> sequence + [ option "" minus + , many1 digit + , option "" decimals + , option "" exponent ] + + minus = try $ do + string "-" + lookAhead digit + return "-" + + decimals = do + try $ lookAhead (string "." >> digit) + string "." + n <- many1 digit + return ('.' : n) + + exponent = do + string "e" <|> string "E" + op <- option "" (string "+" <|> string "-") + n <- many1 digit + return ('e' : op ++ n) diff --git a/compiler/Parse/Module.hs b/compiler/Parse/Module.hs --- a/compiler/Parse/Module.hs +++ b/compiler/Parse/Module.hs @@ -8,7 +8,7 @@ import SourceSyntax.Module (ImportMethod(..), Imports) varList :: IParser [String] -varList = parens $ commaSep1 (var <|> parens symOp) +varList = commaSep1 (var <|> parens symOp) getModuleName :: String -> Maybe String getModuleName source = @@ -27,7 +27,7 @@ whitespace names <- dotSep1 capVar "name of module" whitespace - exports <- option [] varList + exports <- option [] (parens varList) whitespace "reserved word 'where'" reserved "where" return (names, exports) @@ -39,16 +39,21 @@ import' = do reserved "import" whitespace - open <- optionMaybe (reserved "open") - whitespace name <- intercalate "." <$> dotSep1 capVar - case open of - Just _ -> return (name, Hiding []) - Nothing -> let how = try (whitespace >> (as' <|> importing')) - in (,) name <$> option (As name) how + (,) name <$> option (As name) method where + method :: IParser ImportMethod + method = try $ do whitespace + as' <|> importing' + as' :: IParser ImportMethod - as' = reserved "as" >> whitespace >> As <$> capVar "alias for module" + as' = do + reserved "as" + whitespace + As <$> capVar "alias for module" importing' :: IParser ImportMethod - importing' = Importing <$> varList "listing of imported values (x,y,z)" + importing' = + parens (choice [ const (Hiding []) <$> string ".." + , Importing <$> varList + ] "listing of imported values (x,y,z)") diff --git a/compiler/Parse/Pattern.hs b/compiler/Parse/Pattern.hs --- a/compiler/Parse/Pattern.hs +++ b/compiler/Parse/Pattern.hs @@ -3,57 +3,59 @@ import Control.Applicative ((<$>)) import Data.Char (isUpper) -import Data.List (intercalate) +import qualified Data.List as List import Text.Parsec hiding (newline,spaces,State) import Parse.Helpers import Parse.Literal import SourceSyntax.Literal -import SourceSyntax.Pattern hiding (tuple, list) -import qualified SourceSyntax.Pattern as Pattern +import qualified SourceSyntax.Pattern as P -basic :: IParser Pattern +basic :: IParser P.Pattern basic = choice - [ char '_' >> return PAnything + [ char '_' >> return P.Anything , do v <- var return $ case v of - "True" -> PLiteral (Boolean True) - "False" -> PLiteral (Boolean False) - c:_ | isUpper c -> PData v [] - _ -> PVar v - , PLiteral <$> literal + "True" -> P.Literal (Boolean True) + "False" -> P.Literal (Boolean False) + c:_ | isUpper c -> P.Data v [] + _ -> P.Var v + , P.Literal <$> literal ] -asPattern :: Pattern -> IParser Pattern +asPattern :: P.Pattern -> IParser P.Pattern asPattern pattern = do var <- optionMaybe (try (whitespace >> reserved "as" >> whitespace >> lowVar)) return $ case var of - Just v -> PAlias v pattern + Just v -> P.Alias v pattern Nothing -> pattern -record :: IParser Pattern -record = PRecord <$> brackets (commaSep1 lowVar) +record :: IParser P.Pattern +record = P.Record <$> brackets (commaSep1 lowVar) -tuple :: IParser Pattern -tuple = do ps <- parens (commaSep expr) - return $ case ps of { [p] -> p; _ -> Pattern.tuple ps } +tuple :: IParser P.Pattern +tuple = do + ps <- parens (commaSep expr) + return $ case ps of + [p] -> p + _ -> P.tuple ps -list :: IParser Pattern -list = Pattern.list <$> braces (commaSep expr) +list :: IParser P.Pattern +list = P.list <$> braces (commaSep expr) -term :: IParser Pattern +term :: IParser P.Pattern term = (choice [ record, tuple, list, basic ]) "pattern" -patternConstructor :: IParser Pattern +patternConstructor :: IParser P.Pattern patternConstructor = do - v <- intercalate "." <$> dotSep1 capVar + v <- List.intercalate "." <$> dotSep1 capVar case v of - "True" -> return $ PLiteral (Boolean True) - "False" -> return $ PLiteral (Boolean False) - _ -> PData v <$> spacePrefix term + "True" -> return $ P.Literal (Boolean True) + "False" -> return $ P.Literal (Boolean False) + _ -> P.Data v <$> spacePrefix term -expr :: IParser Pattern +expr :: IParser P.Pattern expr = do patterns <- consSep1 (patternConstructor <|> term) - asPattern (foldr1 Pattern.cons patterns) "pattern" + asPattern (foldr1 P.cons patterns) "pattern" diff --git a/compiler/SourceSyntax/Annotation.hs b/compiler/SourceSyntax/Annotation.hs new file mode 100644 --- /dev/null +++ b/compiler/SourceSyntax/Annotation.hs @@ -0,0 +1,74 @@ +{-# OPTIONS_GHC -W #-} +module SourceSyntax.Annotation where + +import qualified Text.Parsec.Pos as Parsec +import qualified Text.PrettyPrint as P +import SourceSyntax.PrettyPrint + +data Annotated annotation expr = A annotation expr + deriving (Show) + +data Region + = Span Position Position P.Doc + | None P.Doc + deriving (Show) + +data Position = Position + { line :: Int + , column :: Int + } deriving (Show) + +type Located expr = Annotated Region expr + +none e = A (None (pretty e)) e +noneNoDocs e = A (None P.empty) e + +at :: (Pretty expr) => Parsec.SourcePos -> Parsec.SourcePos -> expr + -> Annotated Region expr +at start end e = + A (Span (position start) (position end) (pretty e)) e + where + position loc = Position (Parsec.sourceLine loc) (Parsec.sourceColumn loc) + +merge (A s1 _) (A s2 _) e = + A (span (pretty e)) e + where + span = case (s1,s2) of + (Span start _ _, Span _ end _) -> Span start end + (Span start end _, _) -> Span start end + (_, Span start end _) -> Span start end + (_, _) -> None + +mergeOldDocs (A s1 _) (A s2 _) e = + A span e + where + span = case (s1,s2) of + (Span start _ d1, Span _ end d2) -> + Span start end (P.vcat [d1, P.text "\n", d2]) + + (Span _ _ _, _) -> s1 + (_, Span _ _ _) -> s2 + (_, _) -> None P.empty + +sameAs :: Annotated a expr -> expr' -> Annotated a expr' +sameAs (A annotation _) expr = A annotation expr + +getRegionDocs region = + case region of + Span _ _ doc -> doc + None doc -> doc + +instance Pretty Region where + pretty span = + case span of + None _ -> P.empty + Span start end _ -> + P.text $ + case line start == line end of + False -> "between lines " ++ show (line start) ++ " and " ++ show (line end) + True -> "on line " ++ show (line end) ++ ", column " ++ + show (column start) ++ " to " ++ show (column end) + +instance Pretty e => Pretty (Annotated a e) where + pretty (A _ e) = pretty e + diff --git a/compiler/SourceSyntax/Declaration.hs b/compiler/SourceSyntax/Declaration.hs --- a/compiler/SourceSyntax/Declaration.hs +++ b/compiler/SourceSyntax/Declaration.hs @@ -20,11 +20,11 @@ data ParsePort = PPAnnotation String T.Type - | PPDef String Expr.LParseExpr + | PPDef String Expr.ParseExpr deriving (Show) data Port - = Out String Expr.LExpr T.Type + = Out String Expr.Expr T.Type | In String T.Type deriving (Show) diff --git a/compiler/SourceSyntax/Expression.hs b/compiler/SourceSyntax/Expression.hs --- a/compiler/SourceSyntax/Expression.hs +++ b/compiler/SourceSyntax/Expression.hs @@ -11,49 +11,54 @@ import SourceSyntax.PrettyPrint import Text.PrettyPrint as P import qualified SourceSyntax.Helpers as Help -import qualified SourceSyntax.Location as Location +import qualified SourceSyntax.Annotation as Annotation import qualified SourceSyntax.Pattern as Pattern import qualified SourceSyntax.Type as SrcType import qualified SourceSyntax.Literal as Literal +import qualified SourceSyntax.Variable as Variable ---- GENERAL AST ---- -{-| This is a located expression, meaning it is tagged with info about where it -came from in the source code. Expr' is defined in terms of LExpr' so that the -location information does not need to be an extra field on every constructor. --} -type LExpr' def = Location.Located (Expr' def) - {-| This is a fully general Abstract Syntax Tree (AST) for expressions. It has "type holes" that allow us to enrich the AST with additional information as we -move through the compilation process. The type holes let us show these -structural changes in the types. The only type hole right now is: +move through the compilation process. The type holes are used to represent: - def: Parsing allows two kinds of definitions (type annotations or definitions), - but later checks will see that they are well formed and combine them. + ann: Annotations for arbitrary expressions. Allows you to add information + to the AST like position in source code or inferred types. + def: Definition style. The source syntax separates type annotations and + definitions, but after parsing we check that they are well formed and + collapse them. + + var: Representation of variables. Starts as strings, but is later enriched + with information about what module a variable came from. + -} -data Expr' def +type GeneralExpr annotation definition variable = + Annotation.Annotated annotation (GeneralExpr' annotation definition variable) + +data GeneralExpr' ann def var = Literal Literal.Literal - | Var String - | Range (LExpr' def) (LExpr' def) - | ExplicitList [LExpr' def] - | Binop String (LExpr' def) (LExpr' def) - | Lambda Pattern.Pattern (LExpr' def) - | App (LExpr' def) (LExpr' def) - | MultiIf [(LExpr' def,LExpr' def)] - | Let [def] (LExpr' def) - | Case (LExpr' def) [(Pattern.Pattern, LExpr' def)] - | Data String [LExpr' def] - | Access (LExpr' def) String - | Remove (LExpr' def) String - | Insert (LExpr' def) String (LExpr' def) - | Modify (LExpr' def) [(String, LExpr' def)] - | Record [(String, LExpr' def)] - | Markdown String String [LExpr' def] + | Var var + | Range (GeneralExpr ann def var) (GeneralExpr ann def var) + | ExplicitList [GeneralExpr ann def var] + | Binop String (GeneralExpr ann def var) (GeneralExpr ann def var) + | Lambda Pattern.Pattern (GeneralExpr ann def var) + | App (GeneralExpr ann def var) (GeneralExpr ann def var) + | MultiIf [(GeneralExpr ann def var,GeneralExpr ann def var)] + | Let [def] (GeneralExpr ann def var) + | Case (GeneralExpr ann def var) [(Pattern.Pattern, GeneralExpr ann def var)] + | Data String [GeneralExpr ann def var] + | Access (GeneralExpr ann def var) String + | Remove (GeneralExpr ann def var) String + | Insert (GeneralExpr ann def var) String (GeneralExpr ann def var) + | Modify (GeneralExpr ann def var) [(String, GeneralExpr ann def var)] + | Record [(String, GeneralExpr ann def var)] + | Markdown String String [GeneralExpr ann def var] -- for type checking and code gen only | PortIn String SrcType.Type - | PortOut String SrcType.Type (LExpr' def) + | PortOut String SrcType.Type (GeneralExpr ann def var) + deriving (Show) ---- SPECIALIZED ASTs ---- @@ -62,81 +67,100 @@ annotations and definitions, which is how they appear in source code and how they are parsed. -} -type ParseExpr = Expr' ParseDef -type LParseExpr = LExpr' ParseDef +type ParseExpr = GeneralExpr Annotation.Region ParseDef Variable.Raw +type ParseExpr' = GeneralExpr' Annotation.Region ParseDef Variable.Raw data ParseDef - = Def Pattern.Pattern LParseExpr + = Def Pattern.Pattern ParseExpr | TypeAnnotation String SrcType.Type - deriving (Show) + deriving (Show) {-| "Normal" expressions. When the compiler checks that type annotations and ports are all paired with definitions in the appropriate order, it collapses them into a Def that is easier to work with in later phases of compilation. -} -type LExpr = LExpr' Def -type Expr = Expr' Def +type Expr = GeneralExpr Annotation.Region Def Variable.Raw +type Expr' = GeneralExpr' Annotation.Region Def Variable.Raw -data Def = Definition Pattern.Pattern LExpr (Maybe SrcType.Type) +data Def = Definition Pattern.Pattern Expr (Maybe SrcType.Type) deriving (Show) + ---- UTILITIES ---- -tuple :: [LExpr' def] -> Expr' def +rawVar :: String -> GeneralExpr' ann def Variable.Raw +rawVar x = Var (Variable.Raw x) + +tuple :: [GeneralExpr ann def var] -> GeneralExpr' ann def var tuple es = Data ("_Tuple" ++ show (length es)) es -delist :: LExpr' def -> [LExpr' def] -delist (Location.L _ (Data "::" [h,t])) = h : delist t +delist :: GeneralExpr ann def var -> [GeneralExpr ann def var] +delist (Annotation.A _ (Data "::" [h,t])) = h : delist t delist _ = [] saveEnvName :: String saveEnvName = "_save_the_environment!!!" -dummyLet :: Pretty def => [def] -> LExpr' def +dummyLet :: (Pretty def) => [def] -> GeneralExpr Annotation.Region def Variable.Raw dummyLet defs = - Location.none $ Let defs (Location.none $ Var saveEnvName) - -instance Pretty def => Show (Expr' def) where - show = render . pretty + Annotation.none $ Let defs (Annotation.none $ rawVar saveEnvName) -instance Pretty def => Pretty (Expr' def) where +instance (Pretty def, Pretty var) => Pretty (GeneralExpr' ann def var) where pretty expr = case expr of Literal lit -> pretty lit - Var x -> variable x + + Var x -> pretty x + Range e1 e2 -> P.brackets (pretty e1 <> P.text ".." <> pretty e2) + ExplicitList es -> P.brackets (commaCat (map pretty es)) - Binop "-" (Location.L _ (Literal (Literal.IntNum 0))) e -> + + Binop "-" (Annotation.A _ (Literal (Literal.IntNum 0))) e -> P.text "-" <> prettyParens e + Binop op e1 e2 -> P.sep [ prettyParens e1 <+> P.text op', prettyParens e2 ] - where op' = if Help.isOp op then op else "`" ++ op ++ "`" + where + op' = if Help.isOp op then op else "`" ++ op ++ "`" + Lambda p e -> P.text "\\" <> args <+> P.text "->" <+> pretty body where - (ps,body) = collectLambdas (Location.none $ Lambda p e) + (ps,body) = collectLambdas (Annotation.A undefined $ Lambda p e) args = P.sep (map Pattern.prettyParens ps) + App _ _ -> P.hang func 2 (P.sep args) - where func:args = map prettyParens (collectApps (Location.none expr)) - MultiIf branches -> P.text "if" $$ nest 3 (vcat $ map iff branches) where + func:args = map prettyParens (collectApps (Annotation.A undefined expr)) + + MultiIf branches -> P.text "if" $$ nest 3 (vcat $ map iff branches) + where iff (b,e) = P.text "|" <+> P.hang (pretty b <+> P.text "->") 2 (pretty e) + Let defs e -> P.sep [ P.hang (P.text "let") 4 (P.vcat (map pretty defs)) , P.text "in" <+> pretty e ] + Case e pats -> P.hang pexpr 2 (P.vcat (map pretty' pats)) where pexpr = P.sep [ P.text "case" <+> pretty e, P.text "of" ] pretty' (p,b) = pretty p <+> P.text "->" <+> pretty b + Data "::" [hd,tl] -> pretty hd <+> P.text "::" <+> pretty tl Data "[]" [] -> P.text "[]" Data name es | Help.isTuple name -> P.parens (commaCat (map pretty es)) | otherwise -> P.hang (P.text name) 2 (P.sep (map prettyParens es)) + Access e x -> prettyParens e <> P.text "." <> variable x + Remove e x -> P.braces (pretty e <+> P.text "-" <+> variable x) - Insert (Location.L _ (Remove e y)) x v -> - P.braces (pretty e <+> P.text "-" <+> variable y <+> P.text "|" <+> variable x <+> P.equals <+> pretty v) + + Insert (Annotation.A _ (Remove e y)) x v -> + P.braces $ P.hsep [ pretty e, P.text "-", variable y, P.text "|" + , variable x, P.equals, pretty v ] + Insert e x v -> P.braces (pretty e <+> P.text "|" <+> variable x <+> P.equals <+> pretty v) @@ -175,21 +199,23 @@ Nothing -> P.empty Just tipe -> pretty pattern <+> P.colon <+> pretty tipe -collectApps :: LExpr' def -> [LExpr' def] -collectApps lexpr@(Location.L _ expr) = +collectApps :: GeneralExpr ann def var -> [GeneralExpr ann def var] +collectApps annExpr@(Annotation.A _ expr) = case expr of App a b -> collectApps a ++ [b] - _ -> [lexpr] + _ -> [annExpr] -collectLambdas :: LExpr' def -> ([Pattern.Pattern], LExpr' def) -collectLambdas lexpr@(Location.L _ expr) = +collectLambdas :: GeneralExpr ann def var -> ([Pattern.Pattern], GeneralExpr ann def var) +collectLambdas lexpr@(Annotation.A _ expr) = case expr of - Lambda pattern body -> (pattern : ps, body') - where (ps, body') = collectLambdas body + Lambda pattern body -> + let (ps, body') = collectLambdas body + in (pattern : ps, body') + _ -> ([], lexpr) -prettyParens :: (Pretty def) => LExpr' def -> Doc -prettyParens (Location.L _ expr) = parensIf needed (pretty expr) +prettyParens :: (Pretty def, Pretty var) => GeneralExpr ann def var -> Doc +prettyParens (Annotation.A _ expr) = parensIf needed (pretty expr) where needed = case expr of diff --git a/compiler/SourceSyntax/Helpers.hs b/compiler/SourceSyntax/Helpers.hs --- a/compiler/SourceSyntax/Helpers.hs +++ b/compiler/SourceSyntax/Helpers.hs @@ -3,6 +3,15 @@ import qualified Data.Char as Char +splitDots :: String -> [String] +splitDots = go [] + where + go vars str = + case break (=='.') str of + (x,_:rest) | isOp x -> vars ++ [x ++ '.' : rest] + | otherwise -> go (vars ++ [x]) rest + (x,[]) -> vars ++ [x] + brkt :: String -> String brkt s = "{ " ++ s ++ " }" diff --git a/compiler/SourceSyntax/Location.hs b/compiler/SourceSyntax/Location.hs deleted file mode 100644 --- a/compiler/SourceSyntax/Location.hs +++ /dev/null @@ -1,58 +0,0 @@ -module SourceSyntax.Location where - -import Text.PrettyPrint -import SourceSyntax.PrettyPrint -import qualified Text.Parsec.Pos as Parsec - -data SrcPos = Pos { line :: Int, column :: Int } - deriving (Eq, Ord) - -data SrcSpan = Span SrcPos SrcPos String | NoSpan String - deriving (Eq, Ord) - -data Located e = L SrcSpan e - deriving (Eq, Ord) - -none e = L (NoSpan (render $ pretty e)) e -noneNoDocs = L (NoSpan "") - -at start end e = L (Span (Pos (Parsec.sourceLine start) (Parsec.sourceColumn start)) - (Pos (Parsec.sourceLine end ) (Parsec.sourceColumn end )) - (render $ pretty e)) e - -merge (L s1 _) (L s2 _) e = L (span (render $ pretty e)) e - where span = case (s1,s2) of - (Span start _ _, Span _ end _) -> Span start end - (Span start end _, _) -> Span start end - (_, Span start end _) -> Span start end - (_, _) -> NoSpan - -mergeOldDocs (L s1 _) (L s2 _) e = L span e - where span = case (s1,s2) of - (Span start _ d1, Span _ end d2) -> Span start end (d1 ++ "\n\n" ++ d2) - (Span _ _ _, _) -> s1 - (_, Span _ _ _) -> s2 - (_, _) -> NoSpan "" - -sameAs (L s _) = L s - - -instance Show SrcPos where - show (Pos r c) = show r ++ "," ++ show c - -instance Show SrcSpan where - show span = - case span of - NoSpan _ -> "" - Span start end _ -> - case line start == line end of - False -> "between lines " ++ show (line start) ++ " and " ++ show (line end) - True -> "on line " ++ show (line end) ++ ", column " ++ - show (column start) ++ " to " ++ show (column end) - -instance Show e => Show (Located e) where - show (L _ e) = show e - -instance Pretty a => Pretty (Located a) where - pretty (L _ e) = pretty e - diff --git a/compiler/SourceSyntax/Module.hs b/compiler/SourceSyntax/Module.hs --- a/compiler/SourceSyntax/Module.hs +++ b/compiler/SourceSyntax/Module.hs @@ -1,12 +1,15 @@ -{-# OPTIONS_GHC -Wall #-} +{-# OPTIONS_GHC -W #-} module SourceSyntax.Module where import Data.Binary +import qualified Data.List as List import qualified Data.Map as Map import Control.Applicative ((<$>), (<*>)) +import Text.PrettyPrint as P -import SourceSyntax.Expression (LExpr) +import SourceSyntax.Expression (Expr) import SourceSyntax.Declaration +import SourceSyntax.PrettyPrint import SourceSyntax.Type import qualified Elm.Internal.Version as Version @@ -21,6 +24,33 @@ data ImportMethod = As String | Importing [String] | Hiding [String] deriving (Eq, Ord, Show) +instance (Pretty def) => Pretty (Module def) where + pretty (Module modNames exports imports decls) = + P.vcat [modul, P.text "", prettyImports, P.text "", prettyDecls] + where + prettyDecls = P.sep $ map pretty decls + + modul = P.text "module" <+> moduleName <+> prettyExports <+> P.text "where" + moduleName = P.text $ List.intercalate "." modNames + prettyExports = + case exports of + [] -> P.empty + _ -> P.parens . commaCat $ map P.text exports + + prettyImports = P.vcat $ map prettyImport imports + + prettyImport (name, method) = + P.text "import" <+> + case method of + As alias -> + P.text $ name ++ (if name == alias then "" else " as " ++ alias) + + Importing values -> + P.text name <+> P.parens (commaCat (map P.text values)) + + Hiding [] -> P.text ("open " ++ name) + Hiding _ -> error "invalid import declaration" + instance Binary ImportMethod where put method = let put' n info = putWord8 n >> put info in @@ -42,7 +72,7 @@ , path :: FilePath , exports :: [String] , imports :: [(String, ImportMethod)] - , program :: LExpr + , program :: Expr , types :: Map.Map String Type , fixities :: [(Assoc, Int, String)] , aliases :: [Alias] diff --git a/compiler/SourceSyntax/Pattern.hs b/compiler/SourceSyntax/Pattern.hs --- a/compiler/SourceSyntax/Pattern.hs +++ b/compiler/SourceSyntax/Pattern.hs @@ -7,50 +7,54 @@ import qualified Data.Set as Set import SourceSyntax.Literal as Literal -data Pattern = PData String [Pattern] - | PRecord [String] - | PAlias String Pattern - | PVar String - | PAnything - | PLiteral Literal.Literal - deriving (Eq, Ord, Show) +data Pattern + = Data String [Pattern] + | Record [String] + | Alias String Pattern + | Var String + | Anything + | Literal Literal.Literal + deriving (Eq, Ord, Show) cons :: Pattern -> Pattern -> Pattern -cons h t = PData "::" [h,t] +cons h t = Data "::" [h,t] nil :: Pattern -nil = PData "[]" [] +nil = Data "[]" [] list :: [Pattern] -> Pattern list = foldr cons nil tuple :: [Pattern] -> Pattern -tuple es = PData ("_Tuple" ++ show (length es)) es +tuple es = Data ("_Tuple" ++ show (length es)) es +boundVarList :: Pattern -> [String] +boundVarList = Set.toList . boundVars + boundVars :: Pattern -> Set.Set String boundVars pattern = case pattern of - PVar x -> Set.singleton x - PAlias x p -> Set.insert x (boundVars p) - PData _ ps -> Set.unions (map boundVars ps) - PRecord fields -> Set.fromList fields - PAnything -> Set.empty - PLiteral _ -> Set.empty + Var x -> Set.singleton x + Alias x p -> Set.insert x (boundVars p) + Data _ ps -> Set.unions (map boundVars ps) + Record fields -> Set.fromList fields + Anything -> Set.empty + Literal _ -> Set.empty instance Pretty Pattern where pretty pattern = case pattern of - PVar x -> variable x - PLiteral lit -> pretty lit - PRecord fs -> PP.braces (commaCat $ map variable fs) - PAlias x p -> prettyParens p <+> PP.text "as" <+> variable x - PAnything -> PP.text "_" - PData "::" [hd,tl] -> parensIf isCons (pretty hd) <+> PP.text "::" <+> pretty tl + Var x -> variable x + Literal lit -> pretty lit + Record fs -> PP.braces (commaCat $ map variable fs) + Alias x p -> prettyParens p <+> PP.text "as" <+> variable x + Anything -> PP.text "_" + Data "::" [hd,tl] -> parensIf isCons (pretty hd) <+> PP.text "::" <+> pretty tl where isCons = case hd of - PData "::" _ -> True + Data "::" _ -> True _ -> False - PData name ps -> + Data name ps -> if Help.isTuple name then PP.parens . commaCat $ map pretty ps else hsep (PP.text name : map prettyParens ps) @@ -60,6 +64,6 @@ where needsThem = case pattern of - PData name (_:_) | not (Help.isTuple name) -> True - PAlias _ _ -> True + Data name (_:_) | not (Help.isTuple name) -> True + Alias _ _ -> True _ -> False diff --git a/compiler/SourceSyntax/PrettyPrint.hs b/compiler/SourceSyntax/PrettyPrint.hs --- a/compiler/SourceSyntax/PrettyPrint.hs +++ b/compiler/SourceSyntax/PrettyPrint.hs @@ -10,11 +10,16 @@ instance Pretty () where pretty () = empty +renderPretty :: (Pretty a) => a -> String +renderPretty e = render (pretty e) + commaCat docs = cat (punctuate comma docs) commaSep docs = sep (punctuate comma docs) +parensIf :: Bool -> Doc -> Doc parensIf bool doc = if bool then parens doc else doc +variable :: String -> Doc variable x = if Help.isOp x then parens (text x) else text (reprime x) diff --git a/compiler/SourceSyntax/Type.hs b/compiler/SourceSyntax/Type.hs --- a/compiler/SourceSyntax/Type.hs +++ b/compiler/SourceSyntax/Type.hs @@ -1,18 +1,18 @@ {-# OPTIONS_GHC -W #-} module SourceSyntax.Type where +import Control.Applicative ((<$>), (<*>)) import Data.Binary import qualified Data.Map as Map -import qualified SourceSyntax.Helpers as Help -import Control.Applicative ((<$>), (<*>)) import SourceSyntax.PrettyPrint +import qualified SourceSyntax.Helpers as Help import Text.PrettyPrint as P data Type = Lambda Type Type | Var String | Data String [Type] | Record [(String,Type)] (Maybe String) - deriving (Eq) + deriving (Eq,Show) fieldMap :: [(String,a)] -> Map.Map String [a] fieldMap fields = @@ -26,9 +26,6 @@ tupleOf :: [Type] -> Type tupleOf ts = Data ("_Tuple" ++ show (length ts)) ts - -instance Show Type where - show = render . pretty instance Pretty Type where pretty tipe = diff --git a/compiler/SourceSyntax/Variable.hs b/compiler/SourceSyntax/Variable.hs new file mode 100644 --- /dev/null +++ b/compiler/SourceSyntax/Variable.hs @@ -0,0 +1,11 @@ + +module SourceSyntax.Variable where + +import qualified Text.PrettyPrint as P +import SourceSyntax.PrettyPrint + +newtype Raw = Raw String + deriving (Eq,Ord,Show) + +instance Pretty Raw where + pretty (Raw var) = variable var diff --git a/compiler/Transform/Canonicalize.hs b/compiler/Transform/Canonicalize.hs --- a/compiler/Transform/Canonicalize.hs +++ b/compiler/Transform/Canonicalize.hs @@ -1,19 +1,21 @@ -{-# OPTIONS_GHC -W #-} +{-# OPTIONS_GHC -Wall #-} module Transform.Canonicalize (interface, metadataModule) where import Control.Arrow ((***)) import Control.Applicative (Applicative,(<$>),(<*>)) import Control.Monad.Identity -import qualified Data.Traversable as T +import qualified Data.Either as Either +import qualified Data.List as List import qualified Data.Map as Map import qualified Data.Set as Set -import qualified Data.List as List -import qualified Data.Either as Either -import SourceSyntax.Module +import qualified Data.Traversable as T +import SourceSyntax.Annotation as A import SourceSyntax.Expression -import SourceSyntax.Location as Loc +import SourceSyntax.Module +import SourceSyntax.PrettyPrint (pretty) import qualified SourceSyntax.Pattern as P import qualified SourceSyntax.Type as Type +import qualified SourceSyntax.Variable as Var import Text.PrettyPrint as P interface :: String -> ModuleInterface -> ModuleInterface @@ -55,7 +57,9 @@ metadataModule ifaces modul = do case filter (\m -> Map.notMember m ifaces) (map fst realImports) of [] -> Right () - missings -> Left [ P.text $ "The following imports were not found: " ++ List.intercalate ", " missings ] + missings -> Left [ P.text $ "The following imports were not found: " ++ List.intercalate ", " missings ++ + "\n You may need to compile with the --make flag to detect modules you have written." + ] program' <- rename initialEnv (program modul) aliases' <- mapM (three3 renameType') (aliases modul) datatypes' <- mapM (three3 (mapM (two2 (mapM renameType')))) (datatypes modul) @@ -94,8 +98,7 @@ extend :: Env -> P.Pattern -> Env extend env pattern = Map.union (Map.fromList (zip xs xs)) env - where xs = Set.toList (P.boundVars pattern) - + where xs = P.boundVarList pattern replace :: String -> Env -> String -> Either String String replace variable env v = @@ -108,14 +111,18 @@ msg = if null matches then "" else "\nClose matches include: " ++ List.intercalate ", " matches -rename :: Env -> LExpr -> Either [Doc] LExpr -rename env (L s expr) = +-- TODO: Var.Raw -> Var.Canonical +rename :: Env -> Expr -> Either [Doc] Expr +rename env (A ann expr) = let rnm = rename env - throw err = Left [ P.text $ "Error " ++ show s ++ "\n" ++ err ] + throw err = Left [ P.vcat [ P.text "Error" <+> pretty ann <> P.colon + , P.text err + ] + ] format = Either.either throw return - renameType' env = renameType (format . replace "variable" env) + renameType' environ = renameType (format . replace "variable" environ) in - L s <$> + A ann <$> case expr of Literal _ -> return expr @@ -153,7 +160,8 @@ <*> rename env' body <*> T.traverse (renameType' env') mtipe - Var x -> Var <$> format (replace "variable" env x) + -- TODO: Raw -> Canonical + Var (Var.Raw x) -> rawVar <$> format (replace "variable" env x) Data name es -> Data name <$> mapM rnm es @@ -174,10 +182,10 @@ renamePattern :: Env -> P.Pattern -> Either String P.Pattern renamePattern env pattern = case pattern of - P.PVar _ -> return pattern - P.PLiteral _ -> return pattern - P.PRecord _ -> return pattern - P.PAnything -> return pattern - P.PAlias x p -> P.PAlias x <$> renamePattern env p - P.PData name ps -> P.PData <$> replace "pattern" env name - <*> mapM (renamePattern env) ps + P.Var _ -> return pattern + P.Literal _ -> return pattern + P.Record _ -> return pattern + P.Anything -> return pattern + P.Alias x p -> P.Alias x <$> renamePattern env p + P.Data name ps -> P.Data <$> replace "pattern" env name + <*> mapM (renamePattern env) ps diff --git a/compiler/Transform/Check.hs b/compiler/Transform/Check.hs --- a/compiler/Transform/Check.hs +++ b/compiler/Transform/Check.hs @@ -32,7 +32,7 @@ duplicates :: [D.Declaration] -> [String] duplicates decls = - map msg (dups (portNames ++ concatMap getNames defPatterns)) ++ + map msg (dups (portNames ++ concatMap Pattern.boundVarList defPatterns)) ++ case mapM exprDups (portExprs ++ defExprs) of Left name -> [msg name] Right _ -> [] @@ -50,14 +50,13 @@ D.Out name expr _ -> (name, [expr]) D.In name _ -> (name, []) - getNames = Set.toList . Pattern.boundVars - - exprDups :: E.LExpr -> Either String E.LExpr + exprDups :: E.Expr -> Either String E.Expr exprDups expr = Expr.crawlLet defsDups expr defsDups :: [E.Def] -> Either String [E.Def] defsDups defs = - case dups $ concatMap (\(E.Definition name _ _) -> getNames name) defs of + let varsIn (E.Definition pattern _ _) = Pattern.boundVarList pattern in + case dups $ concatMap varsIn defs of [] -> Right defs name:_ -> Left name diff --git a/compiler/Transform/Declaration.hs b/compiler/Transform/Declaration.hs --- a/compiler/Transform/Declaration.hs +++ b/compiler/Transform/Declaration.hs @@ -42,7 +42,7 @@ TypeAnnotation name tipe -> case defRest of - D.Definition (Def pat@(P.PVar name') expr) : rest | name == name' -> + D.Definition (Def pat@(P.Var name') expr) : rest | name == name' -> do expr' <- exprCombineAnnotations expr let def' = E.Definition pat expr' (Just tipe) (:) (D.Definition def') <$> go rest diff --git a/compiler/Transform/Definition.hs b/compiler/Transform/Definition.hs --- a/compiler/Transform/Definition.hs +++ b/compiler/Transform/Definition.hs @@ -16,7 +16,7 @@ go defs = case defs of - TypeAnnotation name tipe : Def pat@(P.PVar name') expr : rest | name == name' -> + TypeAnnotation name tipe : Def pat@(P.Var name') expr : rest | name == name' -> do expr' <- exprCombineAnnotations expr let def = Definition pat expr' (Just tipe) (:) def <$> go rest diff --git a/compiler/Transform/Expression.hs b/compiler/Transform/Expression.hs --- a/compiler/Transform/Expression.hs +++ b/compiler/Transform/Expression.hs @@ -2,17 +2,19 @@ module Transform.Expression (crawlLet, checkPorts) where import Control.Applicative ((<$>),(<*>)) +import SourceSyntax.Annotation ( Annotated(A) ) import SourceSyntax.Expression -import SourceSyntax.Location -import qualified SourceSyntax.Type as ST +import SourceSyntax.Type (Type) -crawlLet :: ([def] -> Either a [def']) -> LExpr' def -> Either a (LExpr' def') +crawlLet :: ([def] -> Either a [def']) + -> GeneralExpr ann def var + -> Either a (GeneralExpr ann def' var) crawlLet = crawl (\_ _ -> return ()) (\_ _ -> return ()) -checkPorts :: (String -> ST.Type -> Either a ()) - -> (String -> ST.Type -> Either a ()) - -> LExpr - -> Either a LExpr +checkPorts :: (String -> Type -> Either a ()) + -> (String -> Type -> Either a ()) + -> Expr + -> Either a Expr checkPorts inCheck outCheck expr = crawl inCheck outCheck (mapM checkDef) expr where @@ -20,15 +22,15 @@ do _ <- checkPorts inCheck outCheck body return def -crawl :: (String -> ST.Type -> Either a ()) - -> (String -> ST.Type -> Either a ()) +crawl :: (String -> Type -> Either a ()) + -> (String -> Type -> Either a ()) -> ([def] -> Either a [def']) - -> LExpr' def - -> Either a (LExpr' def') + -> GeneralExpr ann def var + -> Either a (GeneralExpr ann def' var) crawl portInCheck portOutCheck defsTransform = go where - go (L srcSpan expr) = - L srcSpan <$> + go (A srcSpan expr) = + A srcSpan <$> case expr of Var x -> return (Var x) Lambda p e -> Lambda p <$> go e diff --git a/compiler/Transform/SafeNames.hs b/compiler/Transform/SafeNames.hs --- a/compiler/Transform/SafeNames.hs +++ b/compiler/Transform/SafeNames.hs @@ -2,38 +2,43 @@ module Transform.SafeNames (metadataModule) where import Control.Arrow (first, (***)) -import SourceSyntax.Expression -import SourceSyntax.Location -import SourceSyntax.Module -import SourceSyntax.Pattern +import qualified Data.List as List import qualified Data.Set as Set + import qualified Parse.Helpers as PHelp +import SourceSyntax.Annotation +import SourceSyntax.Expression +import qualified SourceSyntax.Helpers as SHelp +import SourceSyntax.Module +import qualified SourceSyntax.Pattern as P +import qualified SourceSyntax.Variable as Variable var :: String -> String -var = dereserve . deprime +var = List.intercalate "." . map (dereserve . deprime) . SHelp.splitDots where deprime = map (\c -> if c == '\'' then '$' else c) dereserve x = case Set.member x PHelp.jsReserveds of False -> x True -> "$" ++ x -pattern :: Pattern -> Pattern +pattern :: P.Pattern -> P.Pattern pattern pat = case pat of - PVar x -> PVar (var x) - PLiteral _ -> pat - PRecord fs -> PRecord (map var fs) - PAnything -> pat - PAlias x p -> PAlias (var x) (pattern p) - PData name ps -> PData name (map pattern ps) + P.Var x -> P.Var (var x) + P.Literal _ -> pat + P.Record fs -> P.Record (map var fs) + P.Anything -> pat + P.Alias x p -> P.Alias (var x) (pattern p) + P.Data name ps -> P.Data name (map pattern ps) -expression :: LExpr -> LExpr -expression (L loc expr) = +-- TODO: should be "normal expression" -> "expression for JS generation" +expression :: Expr -> Expr +expression (A ann expr) = let f = expression in - L loc $ + A ann $ case expr of Literal _ -> expr - Var x -> Var (var x) + Var (Variable.Raw x) -> rawVar (var x) Range e1 e2 -> Range (f e1) (f e2) ExplicitList es -> ExplicitList (map f es) Binop op e1 e2 -> Binop op (f e1) (f e2) diff --git a/compiler/Transform/SortDefinitions.hs b/compiler/Transform/SortDefinitions.hs --- a/compiler/Transform/SortDefinitions.hs +++ b/compiler/Transform/SortDefinitions.hs @@ -3,23 +3,24 @@ import Control.Monad.State import Control.Applicative ((<$>),(<*>)) +import qualified Data.Graph as Graph import qualified Data.Map as Map +import qualified Data.Maybe as Maybe +import qualified Data.Set as Set +import SourceSyntax.Annotation import SourceSyntax.Expression -import SourceSyntax.Location import qualified SourceSyntax.Pattern as P -import qualified Data.Graph as Graph -import qualified Data.Set as Set -import qualified Data.Maybe as Maybe +import qualified SourceSyntax.Variable as V ctors :: P.Pattern -> [String] ctors pattern = case pattern of - P.PVar _ -> [] - P.PAlias _ p -> ctors p - P.PData ctor ps -> ctor : concatMap ctors ps - P.PRecord _ -> [] - P.PAnything -> [] - P.PLiteral _ -> [] + P.Var _ -> [] + P.Alias _ p -> ctors p + P.Data ctor ps -> ctor : concatMap ctors ps + P.Record _ -> [] + P.Anything -> [] + P.Literal _ -> [] free :: String -> State (Set.Set String) () free x = modify (Set.insert x) @@ -27,15 +28,15 @@ bound :: Set.Set String -> State (Set.Set String) () bound boundVars = modify (\freeVars -> Set.difference freeVars boundVars) -sortDefs :: LExpr -> LExpr +sortDefs :: Expr -> Expr sortDefs expr = evalState (reorder expr) Set.empty -reorder :: LExpr -> State (Set.Set String) LExpr -reorder (L s expr) = - L s <$> +reorder :: Expr -> State (Set.Set String) Expr +reorder (A ann expr) = + A ann <$> case expr of -- Be careful adding and restricting freeVars - Var x -> free x >> return expr + Var (V.Raw x) -> free x >> return expr Lambda p e -> uncurry Lambda <$> bindingReorder (p,e) @@ -103,11 +104,11 @@ bound (P.boundVars pattern) mapM free (ctors pattern) - let L _ let' = foldr (\ds bod -> L s (Let ds bod)) body' defss + let A _ let' = foldr (\ds bod -> A ann (Let ds bod)) body' defss return let' -bindingReorder :: (P.Pattern, LExpr) -> State (Set.Set String) (P.Pattern, LExpr) +bindingReorder :: (P.Pattern, Expr) -> State (Set.Set String) (P.Pattern, Expr) bindingReorder (pattern,expr) = do expr' <- reorder expr bound (P.boundVars pattern) diff --git a/compiler/Transform/Substitute.hs b/compiler/Transform/Substitute.hs --- a/compiler/Transform/Substitute.hs +++ b/compiler/Transform/Substitute.hs @@ -2,14 +2,16 @@ module Transform.Substitute (subst) where import Control.Arrow (second, (***)) +import qualified Data.Set as Set + +import SourceSyntax.Annotation import SourceSyntax.Expression -import SourceSyntax.Location import qualified SourceSyntax.Pattern as Pattern -import qualified Data.Set as Set +import qualified SourceSyntax.Variable as V -subst :: String -> Expr -> Expr -> Expr +subst :: String -> Expr' -> Expr' -> Expr' subst old new expr = - let f (L s e) = L s (subst old new e) in + let f (A a e) = A a (subst old new e) in case expr of Range e1 e2 -> Range (f e1) (f e2) ExplicitList es -> ExplicitList (map f es) @@ -28,7 +30,7 @@ anyShadow = any (Set.member old . Pattern.boundVars) [ p | Definition p _ _ <- defs ] - Var x -> if x == old then new else expr + Var (V.Raw x) -> if x == old then new else expr Case e cases -> Case (f e) $ map (second f) cases Data name es -> Data name (map f es) Access e x -> Access (f e) x diff --git a/compiler/Type/Constrain/Declaration.hs b/compiler/Type/Constrain/Declaration.hs --- a/compiler/Type/Constrain/Declaration.hs +++ b/compiler/Type/Constrain/Declaration.hs @@ -1,62 +1,62 @@ {-# OPTIONS_GHC -Wall #-} module Type.Constrain.Declaration where -import SourceSyntax.Declaration +import qualified SourceSyntax.Annotation as A +import qualified SourceSyntax.Declaration as D import qualified SourceSyntax.Expression as E -import qualified SourceSyntax.Location as L import qualified SourceSyntax.Pattern as P import qualified SourceSyntax.Type as T -toExpr :: [Declaration] -> [E.Def] +toExpr :: [D.Declaration] -> [E.Def] toExpr = concatMap toDefs -toDefs :: Declaration -> [E.Def] +toDefs :: D.Declaration -> [E.Def] toDefs decl = case decl of - Definition def -> [def] + D.Definition def -> [def] - Datatype name tvars constructors -> concatMap toDefs' constructors + D.Datatype name tvars constructors -> concatMap toDefs' constructors where toDefs' (ctor, tipes) = let vars = take (length tipes) arguments tbody = T.Data name $ map T.Var tvars - body = L.none . E.Data ctor $ map (L.none . E.Var) vars + body = A.none . E.Data ctor $ map (A.none . E.rawVar) vars in [ definition ctor (buildFunction body vars) (foldr T.Lambda tbody tipes) ] - TypeAlias name _ tipe@(T.Record fields ext) -> + D.TypeAlias name _ tipe@(T.Record fields ext) -> [ definition name (buildFunction record vars) (foldr T.Lambda tipe args) ] where args = map snd fields ++ maybe [] (\x -> [T.Var x]) ext - var = L.none . E.Var + var = A.none . E.rawVar vars = take (length args) arguments efields = zip (map fst fields) (map var vars) record = case ext of - Nothing -> L.none $ E.Record efields - Just _ -> foldl (\r (f,v) -> L.none $ E.Insert r f v) (var $ last vars) efields + Nothing -> A.none $ E.Record efields + Just _ -> foldl (\r (f,v) -> A.none $ E.Insert r f v) (var $ last vars) efields -- Type aliases must be added to an extended equality dictionary, -- but they do not require any basic constraints. - TypeAlias _ _ _ -> [] + D.TypeAlias _ _ _ -> [] - Port port -> + D.Port port -> case port of - Out name expr@(L.L s _) tipe -> - [ definition name (L.L s $ E.PortOut name tipe expr) tipe ] - In name tipe -> - [ definition name (L.none $ E.PortIn name tipe) tipe ] + D.Out name expr@(A.A s _) tipe -> + [ definition name (A.A s $ E.PortOut name tipe expr) tipe ] + D.In name tipe -> + [ definition name (A.none $ E.PortIn name tipe) tipe ] -- no constraints are needed for fixity declarations - Fixity _ _ _ -> [] + D.Fixity _ _ _ -> [] arguments :: [String] arguments = map (:[]) ['a'..'z'] ++ map (\n -> "_" ++ show (n :: Int)) [1..] -buildFunction :: E.LExpr -> [String] -> E.LExpr -buildFunction body@(L.L s _) vars = - foldr (\p e -> L.L s (E.Lambda p e)) body (map P.PVar vars) +buildFunction :: E.Expr -> [String] -> E.Expr +buildFunction body@(A.A s _) vars = + foldr (\p e -> A.A s (E.Lambda p e)) body (map P.Var vars) -definition :: String -> E.LExpr -> T.Type -> E.Def -definition name expr tipe = E.Definition (P.PVar name) expr (Just tipe) +definition :: String -> E.Expr -> T.Type -> E.Def +definition name expr tipe = E.Definition (P.Var name) expr (Just tipe) diff --git a/compiler/Type/Constrain/Expression.hs b/compiler/Type/Constrain/Expression.hs --- a/compiler/Type/Constrain/Expression.hs +++ b/compiler/Type/Constrain/Expression.hs @@ -1,44 +1,45 @@ {-# OPTIONS_GHC -W #-} module Type.Constrain.Expression where -import qualified Data.List as List -import qualified Data.Map as Map -import qualified Data.Set as Set import Control.Applicative ((<$>)) import qualified Control.Monad as Monad import Control.Monad.Error +import qualified Data.List as List +import qualified Data.Map as Map import qualified Text.PrettyPrint as PP -import SourceSyntax.Location as Loc -import SourceSyntax.Pattern (Pattern(PVar), boundVars) +import SourceSyntax.Annotation as Ann import SourceSyntax.Expression -import qualified SourceSyntax.Type as SrcT +import qualified SourceSyntax.Pattern as P +import qualified SourceSyntax.Type as ST +import qualified SourceSyntax.Variable as V import Type.Type hiding (Descriptor(..)) import Type.Fragment import qualified Type.Environment as Env import qualified Type.Constrain.Literal as Literal import qualified Type.Constrain.Pattern as Pattern -constrain :: Env.Environment -> LExpr -> Type -> ErrorT [PP.Doc] IO TypeConstraint -constrain env (L span expr) tipe = +constrain :: Env.Environment -> Expr -> Type -> ErrorT [PP.Doc] IO TypeConstraint +constrain env (A region expr) tipe = let list t = Env.get env Env.types "_List" <| t - and = L span . CAnd - true = L span CTrue - t1 === t2 = L span (CEqual t1 t2) - x liftIO $ Literal.constrain env span lit tipe + Literal lit -> liftIO $ Literal.constrain env region lit tipe - Var name | name == saveEnvName -> return (L span CSaveEnv) - | otherwise -> return (name return (A region CSaveEnv) + | otherwise -> return (name - exists $ \x -> do - clo <- constrain env lo x - chi <- constrain env hi x - return $ and [clo, chi, list x === tipe] + existsNumber $ \n -> do + clo <- constrain env lo n + chi <- constrain env hi n + return $ and [clo, chi, list n === tipe] ExplicitList exprs -> exists $ \x -> do @@ -55,7 +56,7 @@ Lambda p e -> exists $ \t1 -> exists $ \t2 -> do - fragment <- try span $ Pattern.constrain env p t1 + fragment <- try region $ Pattern.constrain env p t1 c2 <- constrain env e t2 let c = ex (vars fragment) (clet [monoscheme (typeEnv fragment)] (typeConstraint fragment /\ c2 )) @@ -79,7 +80,7 @@ exists $ \t -> do ce <- constrain env exp t let branch (p,e) = do - fragment <- try span $ Pattern.constrain env p t + fragment <- try region $ Pattern.constrain env p t clet [toScheme fragment] <$> constrain env e tipe and . (:) ce <$> mapM branch branches @@ -112,11 +113,11 @@ Modify e fields -> exists $ \t -> do oldVars <- forM fields $ \_ -> liftIO (var Flexible) - let oldFields = SrcT.fieldMap (zip (map fst fields) (map VarN oldVars)) + let oldFields = ST.fieldMap (zip (map fst fields) (map VarN oldVars)) cOld <- ex oldVars <$> constrain env e (record oldFields t) newVars <- forM fields $ \_ -> liftIO (var Flexible) - let newFields = SrcT.fieldMap (zip (map fst fields) (map VarN newVars)) + let newFields = ST.fieldMap (zip (map fst fields) (map VarN newVars)) let cNew = tipe === record newFields t cs <- zipWithM (constrain env) (map snd fields) (map VarN newVars) @@ -126,7 +127,7 @@ Record fields -> do vars <- forM fields $ \_ -> liftIO (var Flexible) cs <- zipWithM (constrain env) (map snd fields) (map VarN vars) - let fields' = SrcT.fieldMap (zip (map fst fields) (map VarN vars)) + let fields' = ST.fieldMap (zip (map fst fields) (map VarN vars)) recordType = record fields' (TermN EmptyRecord1) return . ex vars . and $ tipe === recordType : cs @@ -158,14 +159,14 @@ do rigidVars <- forM qs (\_ -> liftIO $ var Rigid) -- Some mistake may be happening here. -- Currently, qs is always []. case (pattern, maybeTipe) of - (PVar name, Just tipe) -> do + (P.Var name, Just tipe) -> do flexiVars <- forM qs (\_ -> liftIO $ var Flexible) let inserts = zipWith (\arg typ -> Map.insert arg (VarN typ)) qs flexiVars env' = env { Env.value = List.foldl' (\x f -> f x) (Env.value env) inserts } (vars, typ) <- Env.instantiateType env tipe Map.empty let scheme = Scheme { rigidQuantifiers = [], flexibleQuantifiers = flexiVars ++ vars, - constraint = Loc.noneNoDocs CTrue, + constraint = Ann.noneNoDocs CTrue, header = Map.singleton name typ } c <- constrain env' expr typ return ( scheme : schemes @@ -175,7 +176,7 @@ , c2 , fl rigidVars c /\ c1 ) - (PVar name, Nothing) -> do + (P.Var name, Nothing) -> do v <- liftIO $ var Flexible let tipe = VarN v inserts = zipWith (\arg typ -> Map.insert arg (VarN typ)) qs rigidVars @@ -191,19 +192,19 @@ _ -> error (show pattern) expandPattern :: Def -> [Def] -expandPattern def@(Definition pattern lexpr@(L s _) maybeType) = +expandPattern def@(Definition pattern lexpr@(A r _) maybeType) = case pattern of - PVar _ -> [def] - _ -> Definition (PVar x) lexpr maybeType : map toDef vars + P.Var _ -> [def] + _ -> Definition (P.Var x) lexpr maybeType : map toDef vars where - vars = Set.toList $ boundVars pattern + vars = P.boundVarList pattern x = "$" ++ concat vars - mkVar = L s . Var - toDef y = Definition (PVar y) (L s $ Case (mkVar x) [(pattern, mkVar y)]) Nothing + mkVar = A r . rawVar + toDef y = Definition (P.Var y) (A r $ Case (mkVar x) [(pattern, mkVar y)]) Nothing -try :: SrcSpan -> ErrorT (SrcSpan -> PP.Doc) IO a -> ErrorT [PP.Doc] IO a -try span computation = do +try :: Region -> ErrorT (Region -> PP.Doc) IO a -> ErrorT [PP.Doc] IO a +try region computation = do result <- liftIO $ runErrorT computation case result of - Left err -> throwError [err span] + Left err -> throwError [err region] Right value -> return value diff --git a/compiler/Type/Constrain/Literal.hs b/compiler/Type/Constrain/Literal.hs --- a/compiler/Type/Constrain/Literal.hs +++ b/compiler/Type/Constrain/Literal.hs @@ -1,14 +1,15 @@ +{-# OPTIONS_GHC -W #-} module Type.Constrain.Literal where +import SourceSyntax.Annotation import SourceSyntax.Literal -import SourceSyntax.Location import Type.Type import Type.Environment as Env -constrain :: Environment -> SrcSpan -> Literal -> Type -> IO TypeConstraint -constrain env span literal tipe = +constrain :: Environment -> Region -> Literal -> Type -> IO TypeConstraint +constrain env region literal tipe = do tipe' <- litType - return . L span $ CEqual tipe tipe' + return . A region $ CEqual tipe tipe' where prim name = return (Env.get env Env.types name) diff --git a/compiler/Type/Constrain/Pattern.hs b/compiler/Type/Constrain/Pattern.hs --- a/compiler/Type/Constrain/Pattern.hs +++ b/compiler/Type/Constrain/Pattern.hs @@ -1,3 +1,4 @@ +{-# OPTIONS_GHC -W #-} {-# LANGUAGE FlexibleInstances #-} module Type.Constrain.Pattern where @@ -8,31 +9,29 @@ import qualified Data.Map as Map import qualified Text.PrettyPrint as PP -import SourceSyntax.Pattern -import SourceSyntax.Location -import SourceSyntax.PrettyPrint -import Text.PrettyPrint (render) -import qualified SourceSyntax.Location as Loc +import qualified SourceSyntax.Annotation as A +import qualified SourceSyntax.Pattern as P +import SourceSyntax.PrettyPrint (pretty) import Type.Type import Type.Fragment import Type.Environment as Env import qualified Type.Constrain.Literal as Literal -constrain :: Environment -> Pattern -> Type -> ErrorT (SrcSpan -> PP.Doc) IO Fragment +constrain :: Environment -> P.Pattern -> Type -> ErrorT (A.Region -> PP.Doc) IO Fragment constrain env pattern tipe = - let span = Loc.NoSpan (render $ pretty pattern) - t1 === t2 = Loc.L span (CEqual t1 t2) - x return emptyFragment + P.Anything -> return emptyFragment - PLiteral lit -> do - c <- liftIO $ Literal.constrain env span lit tipe + P.Literal lit -> do + c <- liftIO $ Literal.constrain env region lit tipe return $ emptyFragment { typeConstraint = c } - PVar name -> do + P.Var name -> do v <- liftIO $ var Flexible return $ Fragment { typeEnv = Map.singleton name (VarN v), @@ -40,14 +39,14 @@ typeConstraint = VarN v === tipe } - PAlias name p -> do + P.Alias name p -> do fragment <- constrain env p tipe return $ fragment { typeEnv = Map.insert name tipe (typeEnv fragment), typeConstraint = name do + P.Data name patterns -> do (kind, cvars, args, result) <- liftIO $ freshDataScheme env name let msg = concat [ "Constructor '", name, "' expects ", show kind , " argument", if kind == 1 then "" else "s" @@ -63,7 +62,7 @@ vars = cvars ++ vars fragment } - PRecord fields -> do + P.Record fields -> do pairs <- liftIO $ mapM (\name -> (,) name <$> var Flexible) fields let tenv = Map.fromList (map (second VarN) pairs) c <- exists $ \t -> return (tipe === record (Map.map (:[]) tenv) t) @@ -73,7 +72,7 @@ typeConstraint = c } -instance Error (SrcSpan -> PP.Doc) where +instance Error (A.Region -> PP.Doc) where noMsg _ = PP.empty strMsg str span = PP.vcat [ PP.text $ "Type error " ++ show span diff --git a/compiler/Type/ExtraChecks.hs b/compiler/Type/ExtraChecks.hs --- a/compiler/Type/ExtraChecks.hs +++ b/compiler/Type/ExtraChecks.hs @@ -1,32 +1,35 @@ {-# OPTIONS_GHC -W #-} + +{-| This module contains checks to be run *after* type inference has completed +successfully. At that point we still need to do occurs checks and ensure that +`main` has an acceptable type. +-} module Type.ExtraChecks (mainType, occurs, portTypes) where --- This module contains checks to be run *after* type inference has --- completed successfully. At that point we still need to do occurs --- checks and ensure that `main` has an acceptable type. import Control.Applicative ((<$>),(<*>)) import Control.Monad.State import qualified Data.List as List import qualified Data.Map as Map +import qualified Data.Traversable as Traverse import qualified Data.UnionFind.IO as UF -import Type.Type ( Variable, structure, Term1(..), toSrcType ) -import qualified Type.State as TS -import qualified Type.Alias as Alias import Text.PrettyPrint as P -import SourceSyntax.PrettyPrint (pretty) -import qualified SourceSyntax.Helpers as Help -import qualified SourceSyntax.Type as T + +import qualified SourceSyntax.Annotation as A import qualified SourceSyntax.Expression as E -import qualified SourceSyntax.Location as L +import qualified SourceSyntax.Helpers as Help +import qualified SourceSyntax.PrettyPrint as SPP +import qualified SourceSyntax.Type as ST import qualified Transform.Expression as Expr -import qualified Data.Traversable as Traverse +import qualified Type.Type as TT +import qualified Type.State as TS +import qualified Type.Alias as Alias throw err = Left [ P.vcat err ] -mainType :: Alias.Rules -> TS.Env -> IO (Either [P.Doc] (Map.Map String T.Type)) -mainType rules env = mainCheck rules <$> Traverse.traverse toSrcType env +mainType :: Alias.Rules -> TS.Env -> IO (Either [P.Doc] (Map.Map String ST.Type)) +mainType rules env = mainCheck rules <$> Traverse.traverse TT.toSrcType env where - mainCheck :: Alias.Rules -> Map.Map String T.Type -> Either [P.Doc] (Map.Map String T.Type) + mainCheck :: Alias.Rules -> Map.Map String ST.Type -> Either [P.Doc] (Map.Map String ST.Type) mainCheck rules env = case Map.lookup "main" env of Nothing -> Right env @@ -37,40 +40,40 @@ acceptable = [ "Graphics.Element.Element" , "Signal.Signal Graphics.Element.Element" ] - tipe = P.render . pretty $ Alias.canonicalRealias (fst rules) mainType + tipe = SPP.renderPretty $ Alias.canonicalRealias (fst rules) mainType err = [ P.text "Type Error: 'main' must have type Element or (Signal Element)." , P.text "Instead 'main' has type:\n" - , P.nest 4 . pretty $ Alias.realias rules mainType + , P.nest 4 . SPP.pretty $ Alias.realias rules mainType , P.text " " ] data Direction = In | Out -portTypes :: Alias.Rules -> E.LExpr -> Either [P.Doc] () +portTypes :: Alias.Rules -> E.Expr -> Either [P.Doc] () portTypes rules expr = const () <$> Expr.checkPorts (check In) (check Out) expr where check = isValid True False False isValid isTopLevel seenFunc seenSignal direction name tipe = case tipe of - T.Data ctor ts + ST.Data ctor ts | isJs ctor || isElm ctor -> mapM_ valid ts | ctor == "Signal.Signal" -> handleSignal ts | otherwise -> err' True "an unsupported type" - T.Var _ -> err "free type variables" + ST.Var _ -> err "free type variables" - T.Lambda _ _ -> + ST.Lambda _ _ -> case direction of In -> err "functions" Out | seenFunc -> err "higher-order functions" | seenSignal -> err "signals that contain functions" | otherwise -> - forM_ (T.collectLambdas tipe) + forM_ (ST.collectLambdas tipe) (isValid' True seenSignal direction name) - T.Record _ (Just _) -> err "extended records with free type variables" + ST.Record _ (Just _) -> err "extended records with free type variables" - T.Record fields Nothing -> + ST.Record fields Nothing -> mapM_ (\(k,v) -> (,) k <$> valid v) fields where @@ -100,7 +103,7 @@ [ txt [ "Type Error: the value ", dir "coming in" "sent out" , " through port '", name, "' is invalid." ] , txt [ "It contains ", kind, ":\n" ] - , (P.nest 4 . pretty $ Alias.realias rules tipe) <> P.text "\n" + , (P.nest 4 . SPP.pretty $ Alias.realias rules tipe) <> P.text "\n" , txt [ "Acceptable values for ", dir "incoming" "outgoing" , " ports include JavaScript values and" ] , txt [ "the following Elm values: Ints, Floats, Bools, Strings, Maybes," ] @@ -112,37 +115,37 @@ , txt [ "manually for now (e.g. {x:Int,y:Int} instead of a type alias of that type)." ] ] -occurs :: (String, Variable) -> StateT TS.SolverState IO () +occurs :: (String, TT.Variable) -> StateT TS.SolverState IO () occurs (name, variable) = do vars <- liftIO $ infiniteVars [] variable case vars of [] -> return () var:_ -> do desc <- liftIO $ UF.descriptor var - case structure desc of + case TT.structure desc of Nothing -> modify $ \state -> state { TS.sErrors = fallback : TS.sErrors state } Just _ -> - do liftIO $ UF.setDescriptor var (desc { structure = Nothing }) + do liftIO $ UF.setDescriptor var (desc { TT.structure = Nothing }) var' <- liftIO $ UF.fresh desc - TS.addError (L.NoSpan name) (Just msg) var var' + TS.addError (A.None (P.text name)) (Just msg) var var' where msg = "Infinite types are not allowed" fallback _ = return $ P.text msg - infiniteVars :: [Variable] -> Variable -> IO [Variable] - infiniteVars seen var = + infiniteVars :: [TT.Variable] -> TT.Variable -> IO [TT.Variable] + infiniteVars seen var = let go = infiniteVars (var:seen) in if var `elem` seen then return [var] else do desc <- UF.descriptor var - case structure desc of + case TT.structure desc of Nothing -> return [] Just struct -> case struct of - App1 a b -> (++) <$> go a <*> go b - Fun1 a b -> (++) <$> go a <*> go b - Var1 a -> go a - EmptyRecord1 -> return [] - Record1 fields ext -> concat <$> mapM go (ext : concat (Map.elems fields)) + TT.App1 a b -> (++) <$> go a <*> go b + TT.Fun1 a b -> (++) <$> go a <*> go b + TT.Var1 a -> go a + TT.EmptyRecord1 -> return [] + TT.Record1 fields ext -> concat <$> mapM go (ext : concat (Map.elems fields)) diff --git a/compiler/Type/Fragment.hs b/compiler/Type/Fragment.hs --- a/compiler/Type/Fragment.hs +++ b/compiler/Type/Fragment.hs @@ -5,24 +5,23 @@ import Type.Type import SourceSyntax.Pattern -import SourceSyntax.Location (noneNoDocs) +import SourceSyntax.Annotation (noneNoDocs) -data Fragment = Fragment { - typeEnv :: Map.Map String Type, - vars :: [Variable], - typeConstraint :: TypeConstraint -} deriving Show +data Fragment = Fragment + { typeEnv :: Map.Map String Type + , vars :: [Variable] + , typeConstraint :: TypeConstraint + } deriving Show emptyFragment = Fragment Map.empty [] (noneNoDocs CTrue) -joinFragment f1 f2 = Fragment { - typeEnv = Map.union (typeEnv f1) (typeEnv f2), - vars = vars f1 ++ vars f2, - typeConstraint = typeConstraint f1 /\ typeConstraint f2 -} +joinFragment f1 f2 = Fragment + { typeEnv = Map.union (typeEnv f1) (typeEnv f2) + , vars = vars f1 ++ vars f2 + , typeConstraint = typeConstraint f1 /\ typeConstraint f2 + } joinFragments = List.foldl' (flip joinFragment) emptyFragment - toScheme fragment = Scheme [] (vars fragment) (typeConstraint fragment) (typeEnv fragment) diff --git a/compiler/Type/Inference.hs b/compiler/Type/Inference.hs --- a/compiler/Type/Inference.hs +++ b/compiler/Type/Inference.hs @@ -9,7 +9,7 @@ import qualified Type.Solve as Solve import SourceSyntax.Module as Module -import SourceSyntax.Location (noneNoDocs) +import SourceSyntax.Annotation (noneNoDocs) import SourceSyntax.Type (Type) import Text.PrettyPrint import qualified Type.State as TS diff --git a/compiler/Type/Solve.hs b/compiler/Type/Solve.hs --- a/compiler/Type/Solve.hs +++ b/compiler/Type/Solve.hs @@ -3,15 +3,15 @@ import Control.Monad import Control.Monad.State -import qualified Data.UnionFind.IO as UF +import qualified Data.List as List import qualified Data.Map as Map import qualified Data.Traversable as Traversable -import qualified Data.List as List +import qualified Data.UnionFind.IO as UF import Type.Type import Type.Unify import qualified Type.ExtraChecks as Check import qualified Type.State as TS -import SourceSyntax.Location (Located(L), SrcSpan) +import qualified SourceSyntax.Annotation as A -- | Every variable has rank less than or equal to the maxRank of the pool. @@ -96,7 +96,7 @@ solve :: TypeConstraint -> StateT TS.SolverState IO () -solve (L span constraint) = +solve (A.A region constraint) = case constraint of CTrue -> return () @@ -105,11 +105,11 @@ CEqual term1 term2 -> do t1 <- TS.flatten term1 t2 <- TS.flatten term2 - unify span t1 t2 + unify region t1 t2 CAnd cs -> mapM_ solve cs - CLet [Scheme [] fqs constraint' _] (L _ CTrue) -> do + CLet [Scheme [] fqs constraint' _] (A.A _ CTrue) -> do oldEnv <- TS.getEnv mapM TS.introduce fqs solve constraint' @@ -117,7 +117,7 @@ CLet schemes constraint' -> do oldEnv <- TS.getEnv - headers <- Map.unions `fmap` mapM (solveScheme span) schemes + headers <- Map.unions `fmap` mapM (solveScheme region) schemes TS.modifyEnv $ \env -> Map.union headers env solve constraint' mapM Check.occurs $ Map.toList headers @@ -134,10 +134,10 @@ error ("Could not find '" ++ name ++ "' when solving type constraints.") t <- TS.flatten term - unify span freshCopy t + unify region freshCopy t -solveScheme :: SrcSpan -> TypeScheme -> StateT TS.SolverState IO (Map.Map String Variable) -solveScheme span scheme = +solveScheme :: A.Region -> TypeScheme -> StateT TS.SolverState IO (Map.Map String Variable) +solveScheme region scheme = case scheme of Scheme [] [] constraint header -> do solve constraint @@ -154,39 +154,39 @@ header' <- Traversable.traverse TS.flatten header solve constraint - allDistinct span rigidQuantifiers + allDistinct region rigidQuantifiers youngPool <- TS.getPool TS.switchToPool oldPool generalize youngPool - mapM (isGeneric span) rigidQuantifiers + mapM (isGeneric region) rigidQuantifiers return header' -- Checks that all of the given variables belong to distinct equivalence classes. -- Also checks that their structure is Nothing, so they represent a variable, not -- a more complex term. -allDistinct :: SrcSpan -> [Variable] -> StateT TS.SolverState IO () -allDistinct span vars = do +allDistinct :: A.Region -> [Variable] -> StateT TS.SolverState IO () +allDistinct region vars = do seen <- TS.uniqueMark let check var = do desc <- liftIO $ UF.descriptor var case structure desc of - Just _ -> TS.addError span (Just msg) var var + Just _ -> TS.addError region (Just msg) var var where msg = "Cannot generalize something that is not a type variable." Nothing -> do if mark desc == seen then let msg = "Duplicate variable during generalization." - in TS.addError span (Just msg) var var + in TS.addError region (Just msg) var var else return () liftIO $ UF.setDescriptor var (desc { mark = seen }) mapM_ check vars -- Check that a variable has rank == noRank, meaning that it can be generalized. -isGeneric :: SrcSpan -> Variable -> StateT TS.SolverState IO () -isGeneric span var = do +isGeneric :: A.Region -> Variable -> StateT TS.SolverState IO () +isGeneric region var = do desc <- liftIO $ UF.descriptor var if rank desc == noRank then return () else let msg = "Unable to generalize a type variable. It is not unranked." - in TS.addError span (Just msg) var var + in TS.addError region (Just msg) var var diff --git a/compiler/Type/State.hs b/compiler/Type/State.hs --- a/compiler/Type/State.hs +++ b/compiler/Type/State.hs @@ -1,16 +1,17 @@ {-# OPTIONS_GHC -W #-} module Type.State where -import Type.Type -import qualified Data.Map as Map -import qualified Data.UnionFind.IO as UF -import Control.Monad.State import Control.Applicative ((<$>),(<*>), Applicative) +import Control.Monad.State +import qualified Data.Map as Map import qualified Data.Traversable as Traversable -import Text.PrettyPrint as P +import qualified Data.UnionFind.IO as UF + +import qualified SourceSyntax.Annotation as A import SourceSyntax.PrettyPrint -import SourceSyntax.Location +import Text.PrettyPrint as P import qualified Type.Alias as Alias +import Type.Type -- Pool -- Holds a bunch of variables @@ -46,7 +47,7 @@ modifyEnv f = modify $ \state -> state { sEnv = f (sEnv state) } modifyPool f = modify $ \state -> state { sPool = f (sPool state) } -addError span hint t1 t2 = +addError region hint t1 t2 = modify $ \state -> state { sErrors = makeError : sErrors state } where makeError rules = do @@ -54,23 +55,14 @@ t1' <- prettiest <$> toSrcType t1 t2' <- prettiest <$> toSrcType t2 return . P.vcat $ - [ P.text $ "Type error" ++ location ++ ":" + [ P.text "Type error" <+> pretty region <> P.colon , maybe P.empty P.text hint - , display $ case span of { NoSpan msg -> msg ; Span _ _ msg -> msg } + , P.text "" + , P.nest 8 $ A.getRegionDocs region + , P.text "" , P.text " Expected Type:" <+> t1' , P.text " Actual Type:" <+> t2' ] - - location = case span of - NoSpan _ -> "" - Span p1 p2 _ -> - if line p1 == line p2 then " on line " ++ show (line p1) - else " between lines " ++ show (line p1) ++ " and " ++ show (line p2) - - display msg = - P.vcat [ P.text $ concatMap ("\n "++) (lines msg) - , P.text " " ] - switchToPool pool = modifyPool (\_ -> pool) diff --git a/compiler/Type/Type.hs b/compiler/Type/Type.hs --- a/compiler/Type/Type.hs +++ b/compiler/Type/Type.hs @@ -11,7 +11,7 @@ import Control.Monad.State import Control.Monad.Error import Data.Traversable (traverse) -import SourceSyntax.Location +import SourceSyntax.Annotation import SourceSyntax.Helpers (isTuple) import qualified SourceSyntax.Type as Src @@ -62,7 +62,7 @@ infixl 8 /\ (/\) :: Constraint a b -> Constraint a b -> Constraint a b -a@(L _ c1) /\ b@(L _ c2) = +a@(A _ c1) /\ b@(A _ c2) = case (c1, c2) of (CTrue, _) -> b (_, CTrue) -> a @@ -128,18 +128,25 @@ -- ex qs constraint == exists qs. constraint ex :: [Variable] -> TypeConstraint -> TypeConstraint -ex fqs constraint@(L s _) = L s $ CLet [Scheme [] fqs constraint Map.empty] (L s CTrue) +ex fqs constraint@(A ann _) = + A ann $ CLet [Scheme [] fqs constraint Map.empty] (A ann CTrue) -- fl qs constraint == forall qs. constraint fl :: [Variable] -> TypeConstraint -> TypeConstraint -fl rqs constraint@(L s _) = L s $ CLet [Scheme rqs [] constraint Map.empty] (L s CTrue) +fl rqs constraint@(A ann _) = + A ann $ CLet [Scheme rqs [] constraint Map.empty] (A ann CTrue) exists :: Error e => (Type -> ErrorT e IO TypeConstraint) -> ErrorT e IO TypeConstraint exists f = do v <- liftIO $ var Flexible ex [v] <$> f (VarN v) +existsNumber :: Error e => (Type -> ErrorT e IO TypeConstraint) -> ErrorT e IO TypeConstraint +existsNumber f = do + v <- liftIO $ var (Is Number) + ex [v] <$> f (VarN v) + instance Show a => Show (UF.Point a) where show point = unsafePerformIO $ fmap show (UF.descriptor point) @@ -148,8 +155,8 @@ pretty when point = unsafePerformIO $ fmap (pretty when) (UF.descriptor point) -instance PrettyType a => PrettyType (Located a) where - pretty when (L _ e) = pretty when e +instance PrettyType t => PrettyType (Annotated a t) where + pretty when (A _ e) = pretty when e instance PrettyType a => PrettyType (Term1 a) where @@ -212,12 +219,12 @@ CAnd cs -> P.parens . P.sep $ P.punctuate (P.text " and") (map (pretty Never) cs) - CLet [Scheme [] fqs constraint header] (L _ CTrue) | Map.null header -> + CLet [Scheme [] fqs constraint header] (A _ CTrue) | Map.null header -> P.sep [ binder, pretty Never c ] where - mergeExists vs (L _ c) = + mergeExists vs (A _ c) = case c of - CLet [Scheme [] fqs' c' _] (L _ CTrue) -> mergeExists (vs ++ fqs') c' + CLet [Scheme [] fqs' c' _] (A _ CTrue) -> mergeExists (vs ++ fqs') c' _ -> (vs, c) (fqs', c) = mergeExists fqs constraint @@ -233,7 +240,7 @@ P.text name <+> P.text "<" <+> prty tipe instance (PrettyType a, PrettyType b) => PrettyType (Scheme a b) where - pretty _ (Scheme rqs fqs (L _ constraint) headers) = + pretty _ (Scheme rqs fqs (A _ constraint) headers) = P.sep [ forall, cs, headers' ] where prty = pretty Never @@ -297,8 +304,8 @@ -> t -> StateT CrawlState IO t -instance Crawl a => Crawl (Located a) where - crawl nextState (L s e) = L s <$> crawl nextState e +instance Crawl e => Crawl (Annotated a e) where + crawl nextState (A ann e) = A ann <$> crawl nextState e instance (Crawl t, Crawl v) => Crawl (BasicConstraint t v) where crawl nextState constraint = diff --git a/compiler/Type/Unify.hs b/compiler/Type/Unify.hs --- a/compiler/Type/Unify.hs +++ b/compiler/Type/Unify.hs @@ -1,27 +1,27 @@ {-# OPTIONS_GHC -W #-} module Type.Unify (unify) where -import Type.Type -import qualified Data.UnionFind.IO as UF +import Control.Monad.State import qualified Data.Map as Map import qualified Data.Maybe as Maybe +import qualified Data.UnionFind.IO as UF +import qualified SourceSyntax.Annotation as A import qualified Type.State as TS -import Control.Monad.State -import SourceSyntax.Location +import Type.Type import Type.PrettyPrint import Text.PrettyPrint (render) -unify :: SrcSpan -> Variable -> Variable -> StateT TS.SolverState IO () -unify span variable1 variable2 = do +unify :: A.Region -> Variable -> Variable -> StateT TS.SolverState IO () +unify region variable1 variable2 = do equivalent <- liftIO $ UF.equivalent variable1 variable2 if equivalent then return () - else actuallyUnify span variable1 variable2 + else actuallyUnify region variable1 variable2 -actuallyUnify :: SrcSpan -> Variable -> Variable -> StateT TS.SolverState IO () -actuallyUnify span variable1 variable2 = do +actuallyUnify :: A.Region -> Variable -> Variable -> StateT TS.SolverState IO () +actuallyUnify region variable1 variable2 = do desc1 <- liftIO $ UF.descriptor variable1 desc2 <- liftIO $ UF.descriptor variable2 - let unify' = unify span + let unify' = unify region name' :: Maybe String name' = case (name desc1, name desc2) of @@ -79,11 +79,11 @@ unifyNumber svar name | name `elem` ["Int","Float","number"] = flexAndUnify svar - | otherwise = TS.addError span (Just hint) variable1 variable2 + | otherwise = TS.addError region (Just hint) variable1 variable2 where hint = "A number must be an Int or Float." comparableError maybe = - TS.addError span (Just $ Maybe.fromMaybe msg maybe) variable1 variable2 + TS.addError region (Just $ Maybe.fromMaybe msg maybe) variable1 variable2 where msg = "A comparable must be an Int, Float, Char, String, list, or tuple." unifyComparable var name @@ -110,7 +110,7 @@ List _ -> flexAndUnify varSuper _ -> comparableError Nothing - rigidError variable = TS.addError span (Just hint) variable1 variable2 + rigidError variable = TS.addError region (Just hint) variable1 variable2 where var = "'" ++ render (pretty Never variable) ++ "'" hint = "Cannot unify rigid type variable " ++ var ++ @@ -141,7 +141,7 @@ (Rigid, _, _, _) -> rigidError variable1 (_, Rigid, _, _) -> rigidError variable2 - _ -> TS.addError span Nothing variable1 variable2 + _ -> TS.addError region Nothing variable1 variable2 case (structure desc1, structure desc2) of (Nothing, Nothing) | flex desc1 == Flexible && flex desc1 == Flexible -> merge @@ -196,5 +196,5 @@ eat (_:xs) (_:ys) = eat xs ys eat xs _ = xs - _ -> TS.addError span Nothing variable1 variable2 + _ -> TS.addError region Nothing variable1 variable2 diff --git a/data/docs.json b/data/docs.json --- a/data/docs.json +++ b/data/docs.json @@ -1,10367 +1,15578 @@ [ { "name": "Basics", - "document": "Tons of useful functions that get imported by default.\n\nThe following libraries also get imported by default: List, Signal,\nText, Maybe, Time, Graphics.Element, Color, Graphics.Collage.\n\n# Equality\n@docs (==), (/=)\n\n# Comparison\n\nThese functions only work on `comparable` types. This includes numbers,\ncharacters, strings, lists of comparable things, and tuples of comparable\nthings. Note that tuples with 7 or more elements are not comparable; why\nare your tuples so big?\n\n@docs (\u003c), (\u003e), (\u003c=), (\u003e=), max, min, Order, compare\n\n# Booleans\n@docs not, (&&), (||), xor, otherwise\n\n# Mathematics\n@docs (+), (-), (*), (/), (^), div, rem, mod, abs, sqrt, clamp, logBase, e\n\n# Trigonometry\n@docs pi, cos, sin, tan, acos, asin, atan, atan2\n\n# Number Conversions\n@docs round, floor, ceiling, truncate, toFloat\n\n# Angle Conversions\nAll angle conversions result in “standard Elm angles”\nwhich happen to be radians.\n\n@docs degrees, radians, turns\n\n# Polar Coordinates\n@docs toPolar, fromPolar\n\n# Tuples\n@docs fst, snd\n\n# Higher-Order Helpers\n@docs id, (\u003c|), (|\u003e), (.), always, flip, curry, uncurry", - "aliases": [], - "datatypes": [ - { - "name": "Order", - "comment": "Represents the relative ordering of two things.\nThe relations are less than, equal to, and greater than.", - "raw": "data Order = LT | EQ | GT", - "typeVariables": [], - "constructors": [ - { - "name": "LT", - "type": [ - "Order" - ] - }, - { - "name": "EQ", - "type": [ - "Order" - ] - }, - { - "name": "GT", - "type": [ - "Order" - ] - } - ] - } - ], - "values": [ - { - "name": "&&", - "comment": "The and operator. True if both inputs are True.\nThis operator short-circuits if the first argument is False.", - "raw": "(&&) : Bool -\u003e Bool -\u003e Bool", - "type": [ - "-\u003e", - [ - "Bool" - ], - [ - "-\u003e", - [ - "Bool" - ], - [ - "Bool" - ] - ] - ], - "associativity": "right", - "precedence": 3 - }, - { - "name": "*", - "comment": "", - "raw": "(*) : number -\u003e number -\u003e number", - "type": [ - "-\u003e", - "number", - [ - "-\u003e", - "number", - "number" - ] - ], - "associativity": "left", - "precedence": 7 - }, - { - "name": "+", - "comment": "", - "raw": "(+) : number -\u003e number -\u003e number", - "type": [ - "-\u003e", - "number", - [ - "-\u003e", - "number", - "number" - ] - ], - "associativity": "left", - "precedence": 6 - }, - { - "name": "-", - "comment": "", - "raw": "(-) : number -\u003e number -\u003e number", - "type": [ - "-\u003e", - "number", - [ - "-\u003e", - "number", - "number" - ] - ], - "associativity": "left", - "precedence": 6 - }, - { - "name": ".", - "comment": "Function composition: `(f . g == (\\\\x -\u003e f (g x)))`", - "raw": "(.) : (b -\u003e c) -\u003e (a -\u003e b) -\u003e (a -\u003e c)", - "type": [ - "-\u003e", - [ - "-\u003e", - "b", - "c" - ], - [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - [ - "-\u003e", - "a", - "c" - ] - ] - ], - "associativity": "right", - "precedence": 9 - }, - { - "name": "/", - "comment": "Floating point division.", - "raw": "(/) : Float -\u003e Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - ], - "associativity": "left", - "precedence": 7 - }, - { - "name": "/=", - "comment": "", - "raw": "(/=) : a -\u003e a -\u003e Bool", - "type": [ - "-\u003e", - "a", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ] - ], - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003c", - "comment": "", - "raw": "(\u003c) : comparable -\u003e comparable -\u003e Bool", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "comparable", - [ - "Bool" - ] - ] - ], - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003c=", - "comment": "", - "raw": "(\u003c=) : comparable -\u003e comparable -\u003e Bool", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "comparable", - [ - "Bool" - ] - ] - ], - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003c|", - "comment": "Function application `f \u003c| x == f x`. This function is useful for avoiding\nparenthesis. Consider the following code to create a text element:\n\n text (monospace (toText \"code\"))\n\nThis can also be written as:\n\n text . monospace \u003c| toText \"code\"", - "raw": "(\u003c|) : (a -\u003e b) -\u003e a -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - [ - "-\u003e", - "a", - "b" - ] - ], - "associativity": "right", - "precedence": 0 - }, - { - "name": "==", - "comment": "", - "raw": "(==) : a -\u003e a -\u003e Bool", - "type": [ - "-\u003e", - "a", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ] - ], - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003e", - "comment": "", - "raw": "(\u003e) : comparable -\u003e comparable -\u003e Bool", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "comparable", - [ - "Bool" - ] - ] - ], - "associativity": "non", - "precedence": 4 - }, - { - "name": "\u003e=", - "comment": "", - "raw": "(\u003e=) : comparable -\u003e comparable -\u003e Bool", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "comparable", - [ - "Bool" - ] - ] - ], - "associativity": "non", - "precedence": 4 - }, - { - "name": "^", - "comment": "Exponentiation: `3^2 == 9`", - "raw": "(^) : number -\u003e number -\u003e number", - "type": [ - "-\u003e", - "number", - [ - "-\u003e", - "number", - "number" - ] - ], - "associativity": "left", - "precedence": 8 - }, - { - "name": "abs", - "comment": "Take the absolute value of a number.", - "raw": "abs : number -\u003e number", - "type": [ - "-\u003e", - "number", - "number" - ] - }, - { - "name": "acos", - "comment": "", - "raw": "acos : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "always", - "comment": "Creates a [constant function](http://en.wikipedia.org/wiki/Constant_function),\na function that *always* returns the same value regardless of what input you give.\nIt is defined as:\n\n always a b = a\n\nIt totally ignores the second argument, so `always 42` is a function that always\nreturns in 42. When you are dealing with higher-order functions, this comes in\nhandy more often than you might expect. For example, creating a zeroed out list\nof length ten would be:\n\n map (always 0) [0..9]", - "raw": "always : a -\u003e b -\u003e a", - "type": [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "a" - ] - ] - }, - { - "name": "asin", - "comment": "", - "raw": "asin : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "atan", - "comment": "You probably do not want to use this. It takes `(y/x)` as the\nargument, so there is no way to know whether the negative signs comes from\nthe `y` or `x`. Thus, the resulting angle is always between π/2 and -π/2\n(in quadrants I and IV). You probably want to use `atan2` instead.", - "raw": "atan : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "atan2", - "comment": "This helps you find the angle of a cartesian coordinate.\nYou will almost certainly want to use this instead of `atan`.\nSo `atan2 y x` computes *atan(y/x)* but also keeps track of which\nquadrant the angle should really be in. The result will be between\nπ and -π, giving you the full range of angles.", - "raw": "atan2 : Float -\u003e Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - ] - }, - { - "name": "ceiling", - "comment": "Ceiling function, rounding up.", - "raw": "ceiling : Float -\u003e Int", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Int" - ] - ] - }, - { - "name": "clamp", - "comment": "Clamps a number within a given range. With the expression\n`clamp 100 200 x` the results are as follows:\n\n 100 if x \u003c 100\n x if 100 \u003c= x \u003c 200\n 200 if 200 \u003c= x", - "raw": "clamp : number -\u003e number -\u003e number -\u003e number", - "type": [ - "-\u003e", - "number", - [ - "-\u003e", - "number", - [ - "-\u003e", - "number", - "number" - ] - ] - ] - }, - { - "name": "compare", - "comment": "Compare any two comparable values. Comparable values include `String`, `Char`,\n`Int`, `Float`, `Time`, or a list or tuple containing comparable values.\nThese are also the only values that work as `Dict` keys or `Set` members.", - "raw": "compare : comparable -\u003e comparable -\u003e Order", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "comparable", - [ - "Order" - ] - ] - ] - }, - { - "name": "cos", - "comment": "", - "raw": "cos : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "curry", - "comment": "Change how arguments are passed to a function.\nThis splits paired arguments into two separate arguments.", - "raw": "curry : ((a,b) -\u003e c) -\u003e a -\u003e b -\u003e c", - "type": [ - "-\u003e", - [ - "-\u003e", - [ - "_Tuple2", - "a", - "b" - ], - "c" - ], - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "c" - ] - ] - ] - }, - { - "name": "degrees", - "comment": "Convert degrees to standard Elm angles (radians).", - "raw": "degrees : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "div", - "comment": "Integer division, remainder is discarded.", - "raw": "div : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ], - "associativity": "left", - "precedence": 7 - }, - { - "name": "e", - "comment": "An approximation of e.", - "raw": "e : Float", - "type": [ - "Float" - ] - }, - { - "name": "flip", - "comment": "Flips the order of the first two arguments to a function.", - "raw": "flip : (a -\u003e b -\u003e c) -\u003e (b -\u003e a -\u003e c)", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "c" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - "a", - "c" - ] - ] - ] - }, - { - "name": "floor", - "comment": "Floor function, rounding down.", - "raw": "floor : Float -\u003e Int", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Int" - ] - ] - }, - { - "name": "fromPolar", - "comment": "Start with polar coordinates (r,θ)\nand get out cartesian coordinates (x,y).", - "raw": "fromPolar : (Float,Float) -\u003e (Float,Float)", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ] - ] - }, - { - "name": "fst", - "comment": "Given a 2-tuple, returns the first value.", - "raw": "fst : (a,b) -\u003e a", - "type": [ - "-\u003e", - [ - "_Tuple2", - "a", - "b" - ], - "a" - ] - }, - { - "name": "id", - "comment": "Given a value, returns exactly the same value.", - "raw": "id : a -\u003e a", - "type": [ - "-\u003e", - "a", - "a" - ] - }, - { - "name": "logBase", - "comment": "Calculate the logarithm of a number with a given base: `logBase 10 100 == 2`", - "raw": "logBase : number -\u003e number -\u003e number", - "type": [ - "-\u003e", - "number", - [ - "-\u003e", - "number", - "number" - ] - ] - }, - { - "name": "max", - "comment": "Given two comparables, returns the larger one.", - "raw": "max : comparable -\u003e comparable -\u003e comparable", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "comparable", - "comparable" - ] - ] - }, - { - "name": "min", - "comment": "Given two comparables, returns the smaller one.", - "raw": "min : comparable -\u003e comparable -\u003e comparable", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "comparable", - "comparable" - ] - ] - }, - { - "name": "mod", - "comment": "Perform modular arithmetic: ``7 `mod` 2 == 1``", - "raw": "mod : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ], - "associativity": "left", - "precedence": 7 - }, - { - "name": "not", - "comment": "Negate a boolean value: `(not True == False)` and `(not False == True)`", - "raw": "not : Bool -\u003e Bool", - "type": [ - "-\u003e", - [ - "Bool" - ], - [ - "Bool" - ] - ] - }, - { - "name": "otherwise", - "comment": "Equal to true. Useful as the last case of a multi-way-if.", - "raw": "otherwise : Bool", - "type": [ - "Bool" - ] - }, - { - "name": "pi", - "comment": "An approximation of pi.", - "raw": "pi : Float", - "type": [ - "Float" - ] - }, - { - "name": "radians", - "comment": "Convert radians to standard Elm angles (radians).", - "raw": "radians : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "rem", - "comment": "Finds the remainder after dividing one number by another: ``4 `rem` 3 == 1``", - "raw": "rem : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ], - "associativity": "left", - "precedence": 7 - }, - { - "name": "round", - "comment": "Round a number to the nearest integer.", - "raw": "round : Float -\u003e Int", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Int" - ] - ] - }, - { - "name": "sin", - "comment": "", - "raw": "sin : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "snd", - "comment": "Given a 2-tuple, returns the second value.", - "raw": "snd : (a,b) -\u003e b", - "type": [ - "-\u003e", - [ - "_Tuple2", - "a", - "b" - ], - "b" - ] - }, - { - "name": "sqrt", - "comment": "Take the square root of a number.", - "raw": "sqrt : number -\u003e number", - "type": [ - "-\u003e", - "number", - "number" - ] - }, - { - "name": "tan", - "comment": "", - "raw": "tan : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "toFloat", - "comment": "Convert an integer into a float.", - "raw": "toFloat : Int -\u003e Float", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "Float" - ] - ] - }, - { - "name": "toPolar", - "comment": "Start with cartesian coordinates (x,y)\nand get out polar coordinates (r,θ).", - "raw": "toPolar : (Float,Float) -\u003e (Float,Float)", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ] - ] - }, - { - "name": "truncate", - "comment": "Truncate a decimal number, rounding towards zero.", - "raw": "truncate : Float -\u003e Int", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Int" - ] - ] - }, - { - "name": "turns", - "comment": "Convert turns to standard Elm angles (radians).\nOne turn is equal to 360°.", - "raw": "turns : Float -\u003e Float", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Float" - ] - ] - }, - { - "name": "uncurry", - "comment": "Change how arguments are passed to a function.\nThis combines two arguments into a single pair.", - "raw": "uncurry : (a -\u003e b -\u003e c) -\u003e (a,b) -\u003e c", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "c" - ] - ], - [ - "-\u003e", - [ - "_Tuple2", - "a", - "b" - ], - "c" - ] - ] - }, - { - "name": "xor", - "comment": "The exclusive-or operator. True if exactly one input is True.", - "raw": "xor : Bool -\u003e Bool -\u003e Bool", - "type": [ - "-\u003e", - [ - "Bool" - ], - [ - "-\u003e", - [ - "Bool" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "|\u003e", - "comment": "Forward function application `x |\u003e f == f x`. This function is useful\nfor avoiding parenthesis and writing code in a more natural way.\nConsider the following code to create a pentagon:\n\n scale 2 (move (10,10) (filled blue (ngon 5 30)))\n\nThis can also be written as:\n\n ngon 5 30 |\u003e filled blue\n |\u003e move (10,10)\n |\u003e scale 2", - "raw": "(|\u003e) : a -\u003e (a -\u003e b) -\u003e b", - "type": [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - "b" - ] - ], - "associativity": "left", - "precedence": 0 - }, - { - "name": "||", - "comment": "The or operator. True if one or both inputs are True.\nThis operator short-circuits if the first argument is True.", - "raw": "(||) : Bool -\u003e Bool -\u003e Bool", - "type": [ - "-\u003e", - [ - "Bool" - ], - [ - "-\u003e", - [ - "Bool" - ], - [ - "Bool" - ] - ] - ], - "associativity": "right", - "precedence": 2 - } - ] -}, -{ - "name": "Bitwise", - "document": "Library for [bitwise operations](http://en.wikipedia.org/wiki/Bitwise_operation).\n\n# Basic Operations\n\n@docs and, or, xor, complement\n\n# Bit Shifts\n\n@docs shiftLeft, shiftRight, shiftRightLogical", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "and", - "comment": "Bitwise AND", - "raw": "and : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "complement", - "comment": "Flip each bit individually, often called bitwise NOT", - "raw": "complement : Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - }, - { - "name": "or", - "comment": "Bitwise OR", - "raw": "or : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "shiftLeft", - "comment": "Shift bits to the left by a given offset, filling new bits with zeros.\nThis can be used to multiply numbers by powers of two.\n\n 8 `shiftLeft` 1 == 16\n 8 `shiftLeft` 2 == 32", - "raw": "shiftLeft : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "shiftRight", - "comment": "Shift bits to the right by a given offset, filling new bits with\nwhatever is the topmost bit. This can be used to divide numbers by powers of two.\n\n 32 `shiftRight` 1 == 16\n 32 `shiftRight` 2 == 8\n -32 `shiftRight` 1 == -16\n\nThis is called an [arithmatic right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Arithmetic_shift),\noften written (\u003e\u003e), and sometimes called a sign-propagating\nright shift because it fills empty spots with copies of the highest bit.", - "raw": "shiftRight : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "shiftRightLogical", - "comment": "Shift bits to the right by a given offset, filling new bits with\nzeros.\n\n 32 `shiftRightLogical` 1 == 16\n 32 `shiftRightLogical` 2 == 8\n -32 `shiftRightLogical` 1 == 2147483632\n\nThis is called an [logical right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Logical_shift), often written (\u003e\u003e\u003e),\nand sometimes called a zero-fill right shift because it fills empty spots\nwith zeros.", - "raw": "shiftRightLogical : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "xor", - "comment": "Bitwise XOR", - "raw": "xor : Int -\u003e Int -\u003e Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - } - ] -}, -{ - "name": "Char", - "document": "Functions for working with characters. Character literals are enclosed in\n`'a'` pair of single quotes.\n\n# Classification\n@docs isUpper, isLower, isDigit, isOctDigit, isHexDigit\n\n# Conversion\n@docs toUpper, toLower, toLocaleUpper, toLocaleLower, toCode, fromCode", - "aliases": [ - { - "name": "KeyCode", - "comment": "", - "raw": "type KeyCode = Int", - "typeVariables": [], - "type": [ - "Int" - ] - } - ], - "datatypes": [], - "values": [ - { - "name": "fromCode", - "comment": "Convert from unicode.", - "raw": "fromCode : KeyCode -\u003e Char", - "type": [ - "-\u003e", - [ - "KeyCode" - ], - [ - "Char" - ] - ] - }, - { - "name": "isDigit", - "comment": "True for ASCII digits `[0-9]`.", - "raw": "isDigit : Char -\u003e Bool", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ] - }, - { - "name": "isHexDigit", - "comment": "True for ASCII hexadecimal digits `[0-9a-fA-F]`.", - "raw": "isHexDigit : Char -\u003e Bool", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ] - }, - { - "name": "isLower", - "comment": "True for lower case letters.", - "raw": "isLower : Char -\u003e Bool", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ] - }, - { - "name": "isOctDigit", - "comment": "True for ASCII octal digits `[0-7]`.", - "raw": "isOctDigit : Char -\u003e Bool", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ] - }, - { - "name": "isUpper", - "comment": "True for upper case letters.", - "raw": "isUpper : Char -\u003e Bool", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ] - }, - { - "name": "toCode", - "comment": "Convert to unicode. Used with the [`Keyboard`](/docs/Keyboard.elm)\nlibrary, which expects the input to be uppercase.", - "raw": "toCode : Char -\u003e KeyCode", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "KeyCode" - ] - ] - }, - { - "name": "toLocaleLower", - "comment": "Convert to lower case, according to any locale-specific case mappings.", - "raw": "toLocaleLower : Char -\u003e Char", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Char" - ] - ] - }, - { - "name": "toLocaleUpper", - "comment": "Convert to upper case, according to any locale-specific case mappings.", - "raw": "toLocaleUpper : Char -\u003e Char", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Char" - ] - ] - }, - { - "name": "toLower", - "comment": "Convert to lower case.", - "raw": "toLower : Char -\u003e Char", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Char" - ] - ] - }, - { - "name": "toUpper", - "comment": "Convert to upper case.", - "raw": "toUpper : Char -\u003e Char", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "Char" - ] - ] - } - ] -}, -{ - "name": "Color", - "document": "Library for working with colors. Includes\n[RGB](https://en.wikipedia.org/wiki/RGB_color_model) and\n[HSV](http://en.wikipedia.org/wiki/HSL_and_HSV) creation, gradients, and\nbuilt-in names.\n\n# Creation\n@docs rgb, rgba, hsv, hsva, greyscale, grayscale\n\n# From Other Colors\n@docs complement\n\n# Gradients\n@docs linear, radial\n\n# Built-in Colors\nThese colors come from the [Tango\npalette](http://tango.freedesktop.org/Tango_Icon_Theme_Guidelines)\nwhich provides aesthetically reasonable defaults for colors. Each color also\ncomes with a light and dark version.\n\n### Standard\n@docs red, orange, yellow, green, blue, purple, brown\n\n### Light\n@docs lightRed, lightOrange, lightYellow, lightGreen, lightBlue, lightPurple,\n lightBrown\n\n### Dark\n@docs darkRed, darkOrange, darkYellow, darkGreen, darkBlue, darkPurple,\n darkBrown\n\n### Eight Shades of Grey\nThese colors are a compatible series of shades of grey, fitting nicely\nwith the Tango palette.\n@docs white, lightGrey, grey, darkGrey, lightCharcoal, charcoal, darkCharcoal, black\n\nThese are identical to the *grey* versions. It seems the spelling is regional, but\nthat has never helped me remember which one I should be writing.\n@docs lightGray, gray, darkGray", - "aliases": [], - "datatypes": [ - { - "name": "Color", - "comment": "", - "raw": "data Color = Color Int Int Int Float", - "typeVariables": [], - "constructors": [ - { - "name": "Color", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Color" - ] - ] - ] - ] - ] - } - ] - }, - { - "name": "Gradient", - "comment": "", - "raw": "data Gradient\n = Linear (Float,Float) (Float,Float) [(Float,Color)]\n | Radial (Float,Float) Float (Float,Float) Float [(Float,Color)]", - "typeVariables": [], - "constructors": [ - { - "name": "Linear", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Color" - ] - ] - ], - [ - "Gradient" - ] - ] - ] - ] - }, - { - "name": "Radial", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Color" - ] - ] - ], - [ - "Gradient" - ] - ] - ] - ] - ] - ] - } - ] - } - ], - "values": [ - { - "name": "black", - "comment": "", - "raw": "black : Color", - "type": [ - "Color" - ] - }, - { - "name": "blue", - "comment": "", - "raw": "blue : Color", - "type": [ - "Color" - ] - }, - { - "name": "brown", - "comment": "", - "raw": "brown : Color", - "type": [ - "Color" - ] - }, - { - "name": "charcoal", - "comment": "", - "raw": "charcoal : Color", - "type": [ - "Color" - ] - }, - { - "name": "complement", - "comment": "Produce a “complementary color”.\nThe two colors will accent each other.", - "raw": "complement : Color -\u003e Color", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "Color" - ] - ] - }, - { - "name": "darkBlue", - "comment": "", - "raw": "darkBlue : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkBrown", - "comment": "", - "raw": "darkBrown : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkCharcoal", - "comment": "", - "raw": "darkCharcoal : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkGray", - "comment": "", - "raw": "darkGray : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkGreen", - "comment": "", - "raw": "darkGreen : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkGrey", - "comment": "", - "raw": "darkGrey : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkOrange", - "comment": "", - "raw": "darkOrange : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkPurple", - "comment": "", - "raw": "darkPurple : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkRed", - "comment": "", - "raw": "darkRed : Color", - "type": [ - "Color" - ] - }, - { - "name": "darkYellow", - "comment": "", - "raw": "darkYellow : Color", - "type": [ - "Color" - ] - }, - { - "name": "gray", - "comment": "", - "raw": "gray : Color", - "type": [ - "Color" - ] - }, - { - "name": "grayscale", - "comment": "Produce a gray based on the input. 0 is white, 1 is black.", - "raw": "grayscale : Float -\u003e Color", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Color" - ] - ] - }, - { - "name": "green", - "comment": "", - "raw": "green : Color", - "type": [ - "Color" - ] - }, - { - "name": "grey", - "comment": "", - "raw": "grey : Color", - "type": [ - "Color" - ] - }, - { - "name": "greyscale", - "comment": "", - "raw": "greyscale : Float -\u003e Color", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Color" - ] - ] - }, - { - "name": "hsv", - "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV). This is very\nconvenient for creating colors that cycle and shift. Hue is an angle and should\nbe given in standard Elm angles (radians).", - "raw": "hsv : Float -\u003e Float -\u003e Float -\u003e Color", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Color" - ] - ] - ] - ] - }, - { - "name": "hsva", - "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV)\nwith an alpha component for transparency.", - "raw": "hsva : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Color", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Color" - ] - ] - ] - ] - ] - }, - { - "name": "lightBlue", - "comment": "", - "raw": "lightBlue : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightBrown", - "comment": "", - "raw": "lightBrown : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightCharcoal", - "comment": "", - "raw": "lightCharcoal : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightGray", - "comment": "", - "raw": "lightGray : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightGreen", - "comment": "", - "raw": "lightGreen : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightGrey", - "comment": "", - "raw": "lightGrey : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightOrange", - "comment": "", - "raw": "lightOrange : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightPurple", - "comment": "", - "raw": "lightPurple : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightRed", - "comment": "", - "raw": "lightRed : Color", - "type": [ - "Color" - ] - }, - { - "name": "lightYellow", - "comment": "", - "raw": "lightYellow : Color", - "type": [ - "Color" - ] - }, - { - "name": "linear", - "comment": "Create a linear gradient. Takes a start and end point and then a series of\n“color stops” that indicate how to interpolate between the start and\nend points. See [this example](/edit/examples/Elements/LinearGradient.elm) for a\nmore visual explanation.", - "raw": "linear : (number, number) -\u003e (number, number) -\u003e [(Float,Color)] -\u003e Gradient", - "type": [ - "-\u003e", - [ - "_Tuple2", - "number", - "number" - ], - [ - "-\u003e", - [ - "_Tuple2", - "number", - "number" - ], - [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Color" - ] - ] - ], - [ - "Gradient" - ] - ] - ] - ] - }, - { - "name": "orange", - "comment": "", - "raw": "orange : Color", - "type": [ - "Color" - ] - }, - { - "name": "purple", - "comment": "", - "raw": "purple : Color", - "type": [ - "Color" - ] - }, - { - "name": "radial", - "comment": "Create a radial gradient. First takes a start point and inner radius. Then\ntakes an end point and outer radius. It then takes a series of “color\nstops” that indicate how to interpolate between the inner and outer\ncircles. See [this example](/edit/examples/Elements/RadialGradient.elm) for a\nmore visual explanation.", - "raw": "radial : (number,number) -\u003e number -\u003e (number,number) -\u003e number -\u003e [(Float,Color)] -\u003e Gradient", - "type": [ - "-\u003e", - [ - "_Tuple2", - "number", - "number" - ], - [ - "-\u003e", - "number", - [ - "-\u003e", - [ - "_Tuple2", - "number", - "number" - ], - [ - "-\u003e", - "number", - [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Color" - ] - ] - ], - [ - "Gradient" - ] - ] - ] - ] - ] - ] - }, - { - "name": "red", - "comment": "", - "raw": "red : Color", - "type": [ - "Color" - ] - }, - { - "name": "rgb", - "comment": "Create RGB colors from numbers between 0 and 255 inclusive.", - "raw": "rgb : Int -\u003e Int -\u003e Int -\u003e Color", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Color" - ] - ] - ] - ] - }, - { - "name": "rgba", - "comment": "Create RGB colors with an alpha component for transparency.\nThe alpha component is specified with numbers between 0 and 1.", - "raw": "rgba : Int -\u003e Int -\u003e Int -\u003e Float -\u003e Color", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Color" - ] - ] - ] - ] - ] - }, - { - "name": "white", - "comment": "", - "raw": "white : Color", - "type": [ - "Color" - ] - }, - { - "name": "yellow", - "comment": "", - "raw": "yellow : Color", - "type": [ - "Color" - ] - } - ] -}, -{ - "name": "Date", - "document": "Library for working with dates. Email the mailing list if you encounter\nissues with internationalization or locale formatting.\n\n# Conversions\n@docs read, toTime\n\n# Extractions\n@docs year, month, Month, day, dayOfWeek, Day, hour, minute, second", - "aliases": [], - "datatypes": [ - { - "name": "Date", - "comment": "", - "raw": "data Date = Date", - "typeVariables": [], - "constructors": [ - { - "name": "Date", - "type": [ - "Date" - ] - } - ] - }, - { - "name": "Day", - "comment": "Represents the days of the week.", - "raw": "data Day = Mon | Tue | Wed | Thu | Fri | Sat | Sun", - "typeVariables": [], - "constructors": [ - { - "name": "Mon", - "type": [ - "Day" - ] - }, - { - "name": "Tue", - "type": [ - "Day" - ] - }, - { - "name": "Wed", - "type": [ - "Day" - ] - }, - { - "name": "Thu", - "type": [ - "Day" - ] - }, - { - "name": "Fri", - "type": [ - "Day" - ] - }, - { - "name": "Sat", - "type": [ - "Day" - ] - }, - { - "name": "Sun", - "type": [ - "Day" - ] - } - ] - }, - { - "name": "Month", - "comment": "Represents the month of the year.", - "raw": "data Month = Jan | Feb | Mar | Apr\n | May | Jun | Jul | Aug\n | Sep | Oct | Nov | Dec", - "typeVariables": [], - "constructors": [ - { - "name": "Jan", - "type": [ - "Month" - ] - }, - { - "name": "Feb", - "type": [ - "Month" - ] - }, - { - "name": "Mar", - "type": [ - "Month" - ] - }, - { - "name": "Apr", - "type": [ - "Month" - ] - }, - { - "name": "May", - "type": [ - "Month" - ] - }, - { - "name": "Jun", - "type": [ - "Month" - ] - }, - { - "name": "Jul", - "type": [ - "Month" - ] - }, - { - "name": "Aug", - "type": [ - "Month" - ] - }, - { - "name": "Sep", - "type": [ - "Month" - ] - }, - { - "name": "Oct", - "type": [ - "Month" - ] - }, - { - "name": "Nov", - "type": [ - "Month" - ] - }, - { - "name": "Dec", - "type": [ - "Month" - ] - } - ] - } - ], - "values": [ - { - "name": "day", - "comment": "Extract the day of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `23`.", - "raw": "day : Date -\u003e Int", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Int" - ] - ] - }, - { - "name": "dayOfWeek", - "comment": "Extract the day of the week for a given date. Given the date 23 June\n1990 at 11:45AM this returns the Day `Thu` as defined below.", - "raw": "dayOfWeek : Date -\u003e Day", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Day" - ] - ] - }, - { - "name": "hour", - "comment": "Extract the hour of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `11`.", - "raw": "hour : Date -\u003e Int", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Int" - ] - ] - }, - { - "name": "minute", - "comment": "Extract the minute of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `45`.", - "raw": "minute : Date -\u003e Int", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Int" - ] - ] - }, - { - "name": "month", - "comment": "Extract the month of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the Month `Jun` as defined below.", - "raw": "month : Date -\u003e Month", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Month" - ] - ] - }, - { - "name": "read", - "comment": "Attempt to read a date from a string.", - "raw": "read : String -\u003e Maybe Date", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Maybe", - [ - "Date" - ] - ] - ] - }, - { - "name": "second", - "comment": "Extract the second of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `0`.", - "raw": "second : Date -\u003e Int", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Int" - ] - ] - }, - { - "name": "toTime", - "comment": "Convert a date into a time since midnight (UTC) of 1 January 1990 (i.e.\n[UNIX time](http://en.wikipedia.org/wiki/Unix_time)). Given the date 23 June\n1990 at 11:45AM this returns the corresponding time.", - "raw": "toTime : Date -\u003e Time", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Time" - ] - ] - }, - { - "name": "year", - "comment": "Extract the year of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `1990`.", - "raw": "year : Date -\u003e Int", - "type": [ - "-\u003e", - [ - "Date" - ], - [ - "Int" - ] - ] - } - ] -}, -{ - "name": "Dict", - "document": "A dictionary mapping unique keys to values. The keys can be any comparable\ntype. This includes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or\nlists of comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, update, remove\n\n# Query\n@docs member, lookup, findWithDefault\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs keys, values, toList, fromList\n\n# Transform\n@docs map, foldl, foldr", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "diff", - "comment": "Keep a key-value pair when its key does not appear in the second dictionary.\nPreference is given to the first dictionary.", - "raw": "diff : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Dict", - "comparable", - "v" - ] - ] - ] - }, - { - "name": "empty", - "comment": "Create an empty dictionary.", - "raw": "empty : Dict comparable v", - "type": [ - "Dict", - "comparable", - "v" - ] - }, - { - "name": "findWithDefault", - "comment": "Find the value associated with a key. If the key is not found,\nreturn the default value.", - "raw": "findWithDefault : v -\u003e comparable -\u003e Dict comparable v -\u003e v", - "type": [ - "-\u003e", - "v", - [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - "v" - ] - ] - ] - }, - { - "name": "foldl", - "comment": "Fold over the key-value pairs in a dictionary, in order from lowest\nkey to highest key.", - "raw": "foldl : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - "comparable", - [ - "-\u003e", - "v", - [ - "-\u003e", - "b", - "b" - ] - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - "b" - ] - ] - ] - }, - { - "name": "foldr", - "comment": "Fold over the key-value pairs in a dictionary, in order from highest\nkey to lowest key.", - "raw": "foldr : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - "comparable", - [ - "-\u003e", - "v", - [ - "-\u003e", - "b", - "b" - ] - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - "b" - ] - ] - ] - }, - { - "name": "fromList", - "comment": "Convert an association list into a dictionary.", - "raw": "fromList : [(comparable,v)] -\u003e Dict comparable v", - "type": [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - "comparable", - "v" - ] - ], - [ - "Dict", - "comparable", - "v" - ] - ] - }, - { - "name": "insert", - "comment": "Insert a key-value pair into a dictionary. Replaces value when there is\na collision.", - "raw": "insert : comparable -\u003e v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "v", - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Dict", - "comparable", - "v" - ] - ] - ] - ] - }, - { - "name": "intersect", - "comment": "Keep a key-value pair when its key appears in the second dictionary.\nPreference is given to values in the first dictionary.", - "raw": "intersect : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Dict", - "comparable", - "v" - ] - ] - ] - }, - { - "name": "keys", - "comment": "Get all of the keys in a dictionary.", - "raw": "keys : Dict comparable v -\u003e [comparable]", - "type": [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "_List", - "comparable" - ] - ] - }, - { - "name": "lookup", - "comment": "Lookup the value associated with a key.", - "raw": "lookup : comparable -\u003e Dict comparable v -\u003e Maybe v", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Maybe", - "v" - ] - ] - ] - }, - { - "name": "map", - "comment": "Apply a function to all values in a dictionary.", - "raw": "map : (a -\u003e b) -\u003e Dict comparable a -\u003e Dict comparable b", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - [ - "-\u003e", - [ - "Dict", - "comparable", - "a" - ], - [ - "Dict", - "comparable", - "b" - ] - ] - ] - }, - { - "name": "member", - "comment": "Determine if a key is in a dictionary.", - "raw": "member : comparable -\u003e Dict comparable v -\u003e Bool", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "remove", - "comment": "Remove a key-value pair from a dictionary. If the key is not found,\nno changes are made.", - "raw": "remove : comparable -\u003e Dict comparable v -\u003e Dict comparable v", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Dict", - "comparable", - "v" - ] - ] - ] - }, - { - "name": "singleton", - "comment": "Create a dictionary with one key-value pair.", - "raw": "singleton : comparable -\u003e v -\u003e Dict comparable v", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - "v", - [ - "Dict", - "comparable", - "v" - ] - ] - ] - }, - { - "name": "toList", - "comment": "Convert a dictionary into an association list of key-value pairs.", - "raw": "toList : Dict comparable v -\u003e [(comparable,v)]", - "type": [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "_List", - [ - "_Tuple2", - "comparable", - "v" - ] - ] - ] - }, - { - "name": "union", - "comment": "Combine two dictionaries. If there is a collision, preference is given\nto the first dictionary.", - "raw": "union : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", - "type": [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Dict", - "comparable", - "v" - ] - ] - ] - }, - { - "name": "update", - "comment": "Update the value of a dictionary for a specific key with a given function.", - "raw": "update : comparable -\u003e (Maybe v -\u003e Maybe v) -\u003e Dict comparable v -\u003e Dict comparable v", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "-\u003e", - [ - "Maybe", - "v" - ], - [ - "Maybe", - "v" - ] - ], - [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "Dict", - "comparable", - "v" - ] - ] - ] - ] - }, - { - "name": "values", - "comment": "Get all of the values in a dictionary.", - "raw": "values : Dict comparable v -\u003e [v]", - "type": [ - "-\u003e", - [ - "Dict", - "comparable", - "v" - ], - [ - "_List", - "v" - ] - ] - } - ] -}, -{ - "name": "Either", - "document": "Represents any data that can take two different types.\n\n# Type and Constructors\n@docs Either\n\n# Taking Eithers apart\n@docs either, isLeft, isRight\n\n# Eithers and Lists\n@docs lefts, rights, partition", - "aliases": [], - "datatypes": [ - { - "name": "Either", - "comment": "Represents any data may take two forms. For example, a user ID may be\neither an `Int` or a `String`.\n\nThis can also be used for error handling `(Either String a)` where\nerror messages are stored on the left, and the correct values\n(“right” values) are stored on the right.", - "raw": "data Either a b = Left a | Right b", - "typeVariables": [ - "a", - "b" - ], - "constructors": [ - { - "name": "Left", - "type": [ - "-\u003e", - "a", - [ - "Either", - "a", - "b" - ] - ] - }, - { - "name": "Right", - "type": [ - "-\u003e", - "b", - [ - "Either", - "a", - "b" - ] - ] - } - ] - } - ], - "values": [ - { - "name": "either", - "comment": "Apply the first function to a `Left` and the second function to a `Right`.\nThis allows the extraction of a value from an `Either`.", - "raw": "either : (a -\u003e c) -\u003e (b -\u003e c) -\u003e Either a b -\u003e c", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "c" - ], - [ - "-\u003e", - [ - "-\u003e", - "b", - "c" - ], - [ - "-\u003e", - [ - "Either", - "a", - "b" - ], - "c" - ] - ] - ] - }, - { - "name": "isLeft", - "comment": "True if the value is a `Left`.", - "raw": "isLeft : Either a b -\u003e Bool", - "type": [ - "-\u003e", - [ - "Either", - "a", - "b" - ], - [ - "Bool" - ] - ] - }, - { - "name": "isRight", - "comment": "True if the value is a `Right`.", - "raw": "isRight : Either a b -\u003e Bool", - "type": [ - "-\u003e", - [ - "Either", - "a", - "b" - ], - [ - "Bool" - ] - ] - }, - { - "name": "lefts", - "comment": "Keep only the values held in `Left` values.", - "raw": "lefts : [Either a b] -\u003e [a]", - "type": [ - "-\u003e", - [ - "_List", - [ - "Either", - "a", - "b" - ] - ], - [ - "_List", - "a" - ] - ] - }, - { - "name": "partition", - "comment": "Split into two lists, lefts on the left and rights on the right. So we\nhave the equivalence: `(partition es == (lefts es, rights es))`", - "raw": "partition : [Either a b] -\u003e ([a],[b])", - "type": [ - "-\u003e", - [ - "_List", - [ - "Either", - "a", - "b" - ] - ], - [ - "_Tuple2", - [ - "_List", - "a" - ], - [ - "_List", - "b" - ] - ] - ] - }, - { - "name": "rights", - "comment": "Keep only the values held in `Right` values.", - "raw": "rights : [Either a b] -\u003e [b]", - "type": [ - "-\u003e", - [ - "_List", - [ - "Either", - "a", - "b" - ] - ], - [ - "_List", - "b" - ] - ] - } - ] -}, -{ - "name": "Http", - "document": "A library for asynchronous HTTP requests. See the\n[WebSocket](http://elm-lang.org/docs/WebSocket.elm) library if\nyou have very strict latency requirements.\n\n# Sending Requests\n@docs send, sendGet\n\n# Creating Requests\n@docs get, post, request\n\n# Responses\n@docs Response", - "aliases": [ - { - "name": "Request", - "comment": "", - "raw": "type Request a = {\n verb : String,\n url : String,\n body : a,\n headers : [(String,String)]\n }", - "typeVariables": [ - "a" - ], - "type": { - "headers": [ - "_List", - [ - "_Tuple2", - [ - "String" - ], - [ - "String" - ] - ] - ], - "body": "a", - "url": [ - "String" - ], - "verb": [ - "String" - ] - } - } - ], - "datatypes": [ - { - "name": "Response", - "comment": "The datatype for responses. Success contains only the returned message.\nFailures contain both an error code and an error message.", - "raw": "data Response a = Success a | Waiting | Failure Int String", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Success", - "type": [ - "-\u003e", - "a", - [ - "Response", - "a" - ] - ] - }, - { - "name": "Waiting", - "type": [ - "Response", - "a" - ] - }, - { - "name": "Failure", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Response", - "a" - ] - ] - ] - } - ] - } - ], - "values": [ - { - "name": "get", - "comment": "Create a GET request to the given url.", - "raw": "get : String -\u003e Request String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Request", - [ - "String" - ] - ] - ] - }, - { - "name": "post", - "comment": "Create a POST request to the given url, carrying the given data.", - "raw": "post : String -\u003e String -\u003e Request String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Request", - [ - "String" - ] - ] - ] - ] - }, - { - "name": "request", - "comment": "Create a customized request. Arguments are request type (get, post, put,\ndelete, etc.), target url, data, and a list of additional headers.", - "raw": "request : String -\u003e String -\u003e String -\u003e [(String,String)] -\u003e Request String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "String" - ], - [ - "String" - ] - ] - ], - [ - "Request", - [ - "String" - ] - ] - ] - ] - ] - ] - }, - { - "name": "send", - "comment": "Performs an HTTP request with the given requests. Produces a signal\nthat carries the responses.", - "raw": "send : Signal (Request a) -\u003e Signal (Response String)", - "type": [ - "-\u003e", - [ - "Signal", - [ - "Request", - "a" - ] - ], - [ - "Signal", - [ - "Response", - [ - "String" - ] - ] - ] - ] - }, - { - "name": "sendGet", - "comment": "Performs an HTTP GET request with the given urls. Produces a signal\nthat carries the responses.", - "raw": "sendGet : Signal String -\u003e Signal (Response String)", - "type": [ - "-\u003e", - [ - "Signal", - [ - "String" - ] - ], - [ - "Signal", - [ - "Response", - [ - "String" - ] - ] - ] - ] - } - ] -}, -{ - "name": "JavaScript", - "document": "This library does basic conversions between Elm and JS values. This allows\nthe internal data structures of Elm to change and improve with no impact on JS\nintegration.\n\nIt is intended to be imported as `import JavaScript as JS`. That way functions\nlike `JS.toInt` convert JavaScript *to* Elm integers and functions like\n`JS.fromString` gets JavaScript *from* Elm strings.\n\n# Javascript to Elm\n@docs toString, toInt, toFloat, toBool, toList\n\n# JavaScript from Elm\n@docs fromString, fromInt, fromFloat, fromBool, fromList", - "aliases": [], - "datatypes": [ - { - "name": "JSArray", - "comment": "", - "raw": "data JSArray a = JSArray a", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "JSArray", - "type": [ - "-\u003e", - "a", - [ - "JSArray", - "a" - ] - ] - } - ] - }, - { - "name": "JSBool", - "comment": "", - "raw": "data JSBool = JSBool", - "typeVariables": [], - "constructors": [ - { - "name": "JSBool", - "type": [ - "JSBool" - ] - } - ] - }, - { - "name": "JSDomNode", - "comment": "", - "raw": "data JSDomNode = JSDomNode", - "typeVariables": [], - "constructors": [ - { - "name": "JSDomNode", - "type": [ - "JSDomNode" - ] - } - ] - }, - { - "name": "JSNumber", - "comment": "", - "raw": "data JSNumber = JSNumber", - "typeVariables": [], - "constructors": [ - { - "name": "JSNumber", - "type": [ - "JSNumber" - ] - } - ] - }, - { - "name": "JSObject", - "comment": "", - "raw": "data JSObject = JSObject", - "typeVariables": [], - "constructors": [ - { - "name": "JSObject", - "type": [ - "JSObject" - ] - } - ] - }, - { - "name": "JSString", - "comment": "", - "raw": "data JSString = JSString", - "typeVariables": [], - "constructors": [ - { - "name": "JSString", - "type": [ - "JSString" - ] - } - ] - } - ], - "values": [ - { - "name": "fromBool", - "comment": "", - "raw": "fromBool : Bool -\u003e JSBool", - "type": [ - "-\u003e", - [ - "Bool" - ], - [ - "JSBool" - ] - ] - }, - { - "name": "fromFloat", - "comment": "", - "raw": "fromFloat : Float -\u003e JSNumber", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "JSNumber" - ] - ] - }, - { - "name": "fromInt", - "comment": "", - "raw": "fromInt : Int -\u003e JSNumber", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "JSNumber" - ] - ] - }, - { - "name": "fromList", - "comment": "Produces a uniform JavaScript array with all members of the same type.", - "raw": "fromList : [a] -\u003e JSArray a", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "JSArray", - "a" - ] - ] - }, - { - "name": "fromString", - "comment": "", - "raw": "fromString : String -\u003e JSString", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "JSString" - ] - ] - }, - { - "name": "toBool", - "comment": "", - "raw": "toBool : JSBool -\u003e Bool", - "type": [ - "-\u003e", - [ - "JSBool" - ], - [ - "Bool" - ] - ] - }, - { - "name": "toFloat", - "comment": "", - "raw": "toFloat : JSNumber -\u003e Float", - "type": [ - "-\u003e", - [ - "JSNumber" - ], - [ - "Float" - ] - ] - }, - { - "name": "toInt", - "comment": "", - "raw": "toInt : JSNumber -\u003e Int", - "type": [ - "-\u003e", - [ - "JSNumber" - ], - [ - "Int" - ] - ] - }, - { - "name": "toList", - "comment": "Requires that the input array be uniform (all members have the same type)", - "raw": "toList : JSArray a -\u003e [a]", - "type": [ - "-\u003e", - [ - "JSArray", - "a" - ], - [ - "_List", - "a" - ] - ] - }, - { - "name": "toString", - "comment": "", - "raw": "toString : JSString -\u003e String", - "type": [ - "-\u003e", - [ - "JSString" - ], - [ - "String" - ] - ] - } - ] -}, -{ - "name": "Json", - "document": "Library for working with [JSON](https://en.wikipedia.org/wiki/JSON) values.\n\n# Json Values\n@docs JsonValue\n\n# Strings\n@docs fromString, toString\n\n# JS Strings\n@docs fromJSString, toJSString\n\n# JS Objects\n@docs fromJSObject, toJSObject", - "aliases": [], - "datatypes": [ - { - "name": "JsonValue", - "comment": "This datatype can represent all valid values that can be held in a JSON\nobject. In Elm, a proper JSON object is represented as a (Dict String JsonValue)\nwhich is a mapping from strings to Json Values.", - "raw": "data JsonValue\n = String String\n | Number Float\n | Boolean Bool\n | Null\n | Array [JsonValue]\n | Object (Dict.Dict String JsonValue)", - "typeVariables": [], - "constructors": [ - { - "name": "String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "JsonValue" - ] - ] - }, - { - "name": "Number", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "JsonValue" - ] - ] - }, - { - "name": "Boolean", - "type": [ - "-\u003e", - [ - "Bool" - ], - [ - "JsonValue" - ] - ] - }, - { - "name": "Null", - "type": [ - "JsonValue" - ] - }, - { - "name": "Array", - "type": [ - "-\u003e", - [ - "_List", - [ - "JsonValue" - ] - ], - [ - "JsonValue" - ] - ] - }, - { - "name": "Object", - "type": [ - "-\u003e", - [ - "Dict.Dict", - [ - "String" - ], - [ - "JsonValue" - ] - ], - [ - "JsonValue" - ] - ] - } - ] - } - ], - "values": [ - { - "name": "fromJSObject", - "comment": "Convert a JS object into a `JsonValue`.", - "raw": "fromJSObject : JSObject -\u003e JsonValue", - "type": [ - "-\u003e", - [ - "JSObject" - ], - [ - "JsonValue" - ] - ] - }, - { - "name": "fromJSString", - "comment": "Parse a JavaScript string representation of a proper JSON object into\nits Elm representation.", - "raw": "fromJSString : JSString -\u003e Maybe JsonValue", - "type": [ - "-\u003e", - [ - "JSString" - ], - [ - "Maybe", - [ - "JsonValue" - ] - ] - ] - }, - { - "name": "fromString", - "comment": "Parse a string representation of a proper JSON object into\nits Elm representation.", - "raw": "fromString : String -\u003e Maybe JsonValue", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Maybe", - [ - "JsonValue" - ] - ] - ] - }, - { - "name": "toJSObject", - "comment": "Convert a `JsonValue` into a `JSObject`. Paired with the\n[`JavaScript.Experimental` library](/docs/JavaScript/Experimental.elm),\nThis lets you convert strings into Elm records:\n\n import JavaScript.Experimental as JS\n\n stringToRecord str =\n case fromString str of\n Just jsonValue -\u003e Just (JS.toRecord (toJSObject jsonValue))\n Nothing -\u003e Nothing", - "raw": "toJSObject : JsonValue -\u003e JSObject", - "type": [ - "-\u003e", - [ - "JsonValue" - ], - [ - "JSObject" - ] - ] - }, - { - "name": "toJSString", - "comment": "Convert a proper JSON object into a JavaScript string.\nNote that the type JSString seen here is not the same as the type constructor\nJsonString used elsewhere in this module.", - "raw": "toJSString : String -\u003e JsonValue -\u003e JSString", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "JsonValue" - ], - [ - "JSString" - ] - ] - ] - }, - { - "name": "toString", - "comment": "Convert a `JsonValue` into a prettified string.\nThe first argument is a separator token (e.g. \\\" \\\", \\\"\\\\n\\\", etc.) that will\nbe used for indentation in the prettified string version of the JSON.", - "raw": "toString : String -\u003e JsonValue -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "JsonValue" - ], - [ - "String" - ] - ] - ] - } - ] -}, -{ - "name": "Keyboard", - "document": "Library for working with keyboard input.\n\n# Representing Keys\n@docs KeyCode\n\n# Directions\n@docs arrows, wasd, directions\n\n# Specific Keys\n@docs shift, enter, space, ctrl\n\n# General Keypresses\n@docs isDown, keysDown, lastPressed", - "aliases": [ - { - "name": "KeyCode", - "comment": "Type alias to make it clearer what integers are supposed to represent\nin this library. Use [`Char.toCode`](docs/Char.elm#toCode) and\n[`Char.fromCode`](/docs/Char.elm#fromCode) to convert key codes to characters.\nUse the uppercase character with `toCode`.", - "raw": "type KeyCode = Int", - "typeVariables": [], - "type": [ - "Int" - ] - } - ], - "datatypes": [], - "values": [ - { - "name": "arrows", - "comment": "A signal of records indicating which arrow keys are pressed.\n\n`{ x = 0, y = 0 }` when pressing no arrows.\u003cbr\u003e\n`{ x =-1, y = 0 }` when pressing the left arrow.\u003cbr\u003e\n`{ x = 1, y = 1 }` when pressing the up and right arrows.\u003cbr\u003e\n`{ x = 0, y =-1 }` when pressing the down, left, and right arrows.", - "raw": "arrows : Signal { x:Int, y:Int }", - "type": [ - "Signal", - { - "y": [ - "Int" - ], - "x": [ - "Int" - ] - } - ] - }, - { - "name": "ctrl", - "comment": "Whether the control key is pressed.", - "raw": "ctrl : Signal Bool", - "type": [ - "Signal", - [ - "Bool" - ] - ] - }, - { - "name": "directions", - "comment": "Custom key directions to support different locales. The order is up, down,\nleft, right.", - "raw": "directions : KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e Signal { x:Int, y:Int }", - "type": [ - "-\u003e", - [ - "KeyCode" - ], - [ - "-\u003e", - [ - "KeyCode" - ], - [ - "-\u003e", - [ - "KeyCode" - ], - [ - "-\u003e", - [ - "KeyCode" - ], - [ - "Signal", - { - "y": [ - "Int" - ], - "x": [ - "Int" - ] - } - ] - ] - ] - ] - ] - }, - { - "name": "enter", - "comment": "Whether the enter key is pressed.", - "raw": "enter : Signal Bool", - "type": [ - "Signal", - [ - "Bool" - ] - ] - }, - { - "name": "isDown", - "comment": "Whether an arbitrary key is pressed.", - "raw": "isDown : KeyCode -\u003e Signal Bool", - "type": [ - "-\u003e", - [ - "KeyCode" - ], - [ - "Signal", - [ - "Bool" - ] - ] - ] - }, - { - "name": "keysDown", - "comment": "List of keys that are currently down.", - "raw": "keysDown : Signal [KeyCode]", - "type": [ - "Signal", - [ - "_List", - [ - "KeyCode" - ] - ] - ] - }, - { - "name": "lastPressed", - "comment": "The latest key that has been pressed.", - "raw": "lastPressed : Signal KeyCode", - "type": [ - "Signal", - [ - "KeyCode" - ] - ] - }, - { - "name": "shift", - "comment": "Whether the shift key is pressed.", - "raw": "shift : Signal Bool", - "type": [ - "Signal", - [ - "Bool" - ] - ] - }, - { - "name": "space", - "comment": "Whether the space key is pressed.", - "raw": "space : Signal Bool", - "type": [ - "Signal", - [ - "Bool" - ] - ] - }, - { - "name": "wasd", - "comment": "Just like the arrows signal, but this uses keys w, a, s, and d,\nwhich are common controls for many computer games.", - "raw": "wasd : Signal { x:Int, y:Int }", - "type": [ - "Signal", - { - "y": [ - "Int" - ], - "x": [ - "Int" - ] - } - ] - } - ] -}, -{ - "name": "List", - "document": "A library for manipulating lists of values. Every value in a\nlist must have the same type.\n\n# Basics\n@docs (::), (++), isEmpty, length, reverse, map\n\n# Sub-lists\n@docs head, tail, last, filter, take, drop\n\n# Putting Lists Together\n@docs concat, concatMap, join, intersperse, zip, zipWith\n\n# Taking Lists Apart\n@docs partition, unzip\n\n# Folds\n@docs foldr, foldl, foldr1, foldl1, scanl, scanl1\n\n# Special Folds\n@docs sum, product, maximum, minimum, all, any, and, or\n\n# Sorting\n@docs sort, sortBy, sortWith", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "++", - "comment": "Puts two appendable things together:\n\n [1,1] ++ [2,3] == [1,1,2,3]\n \"abc\" ++ \"123\" == \"abc123\"", - "raw": "(++) : appendable -\u003e appendable -\u003e appendable", - "type": [ - "-\u003e", - "appendable", - [ - "-\u003e", - "appendable", - "appendable" - ] - ], - "associativity": "right", - "precedence": 5 - }, - { - "name": "::", - "comment": "Add an element to the front of a list `(1 :: [2,3] == [1,2,3])`", - "raw": "(::) : a -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ], - "associativity": "right", - "precedence": 5 - }, - { - "name": "all", - "comment": "Check to see if all elements satisfy the predicate.", - "raw": "all : (a -\u003e Bool) -\u003e [a] -\u003e Bool", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "and", - "comment": "Check to see if all elements are True.", - "raw": "and : [Bool] -\u003e Bool", - "type": [ - "-\u003e", - [ - "_List", - [ - "Bool" - ] - ], - [ - "Bool" - ] - ] - }, - { - "name": "any", - "comment": "Check to see if any elements satisfy the predicate.", - "raw": "any : (a -\u003e Bool) -\u003e [a] -\u003e Bool", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "concat", - "comment": "Concatenate a list of appendable things:\n\n concat [[1,2],[3],[4,5]] == [1,2,3,4,5]\n concat [\"tree\",\"house\"] == \"treehouse\"", - "raw": "concat : [appendable] -\u003e appendable", - "type": [ - "-\u003e", - [ - "_List", - "appendable" - ], - "appendable" - ] - }, - { - "name": "concatMap", - "comment": "Map a given function onto a list and flatten the resulting lists.\n\n concatMap f xs == concat (map f xs)", - "raw": "concatMap : (a -\u003e appendable) -\u003e [a] -\u003e appendable", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "appendable" - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - "appendable" - ] - ] - }, - { - "name": "drop", - "comment": "Drop the first n members of a list: `(drop 2 [1,2,3,4] == [3,4])`", - "raw": "drop : Int -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "filter", - "comment": "Keep only elements that satisfy the predicate:\n`(filter isEven [1..6] == [2,4,6])`", - "raw": "filter : (a -\u003e Bool) -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "foldl", - "comment": "Reduce a list from the left: `(foldl (::) [] [1,2,3] == [3,2,1])`", - "raw": "foldl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "_List", - "a" - ], - "b" - ] - ] - ] - }, - { - "name": "foldl1", - "comment": "Reduce a list from the left without a base case. List must be non-empty.", - "raw": "foldl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "a", - "a" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - "a" - ] - ] - }, - { - "name": "foldr", - "comment": "Reduce a list from the right: `(foldr (+) 0 [1,2,3] == 6)`", - "raw": "foldr : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "_List", - "a" - ], - "b" - ] - ] - ] - }, - { - "name": "foldr1", - "comment": "Reduce a list from the right without a base case. List must be non-empty.", - "raw": "foldr1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "a", - "a" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - "a" - ] - ] - }, - { - "name": "head", - "comment": "Extract the first element of a list. List must be non-empty.\n`(head [1,2,3] == 1)`", - "raw": "head : [a] -\u003e a", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - "a" - ] - }, - { - "name": "intersperse", - "comment": "Places the given value between all members of the given list.\n\n intersperse \"on\" [\"turtles\",\"turtles\",\"turtles\"] == [\"turtles\",\"on\",\"turtles\",\"on\",\"turtles\"]", - "raw": "intersperse : a -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "isEmpty", - "comment": "Check if a list is empty `(isEmpty [] == True)`", - "raw": "isEmpty : [a] -\u003e Bool", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "Bool" - ] - ] - }, - { - "name": "join", - "comment": "Places the given value between all of the lists in the second\nargument and concatenates the result.\n\n join \"a\" [\"H\",\"w\",\"ii\",\"n\"] == \"Hawaiian\"", - "raw": "join : appendable -\u003e [appendable] -\u003e appendable", - "type": [ - "-\u003e", - "appendable", - [ - "-\u003e", - [ - "_List", - "appendable" - ], - "appendable" - ] - ] - }, - { - "name": "last", - "comment": "Extract the last element of a list. List must be non-empty.\n`(last [1,2,3] == 3)`", - "raw": "last : [a] -\u003e a", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - "a" - ] - }, - { - "name": "length", - "comment": "Determine the length of a list: `(length [1,2,3] == 3)`", - "raw": "length : [a] -\u003e Int", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "Int" - ] - ] - }, - { - "name": "map", - "comment": "Apply a function to every element of a list: `(map sqrt [1,4,9] == [1,2,3])`", - "raw": "map : (a -\u003e b) -\u003e [a] -\u003e [b]", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "b" - ] - ] - ] - }, - { - "name": "maximum", - "comment": "Find the maximum element in a non-empty list: `maximum [1,4,2] == 4`", - "raw": "maximum : [comparable] -\u003e comparable", - "type": [ - "-\u003e", - [ - "_List", - "comparable" - ], - "comparable" - ] - }, - { - "name": "minimum", - "comment": "Find the minimum element in a non-empty list: `minimum [3,2,1] == 1`", - "raw": "minimum : [comparable] -\u003e comparable", - "type": [ - "-\u003e", - [ - "_List", - "comparable" - ], - "comparable" - ] - }, - { - "name": "or", - "comment": "Check to see if any elements are True.", - "raw": "or : [Bool] -\u003e Bool", - "type": [ - "-\u003e", - [ - "_List", - [ - "Bool" - ] - ], - [ - "Bool" - ] - ] - }, - { - "name": "partition", - "comment": "Split a list based on the predicate.", - "raw": "partition : (a -\u003e Bool) -\u003e [a] -\u003e ([a],[a])", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_Tuple2", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - ] - }, - { - "name": "product", - "comment": "Get the product of the list elements. `(product [1..4] == 24)`", - "raw": "product : [number] -\u003e number", - "type": [ - "-\u003e", - [ - "_List", - "number" - ], - "number" - ] - }, - { - "name": "repeat", - "comment": "Creates a list with *n* copies of a value:\n`(repeat 3 (0,0) == [(0,0),(0,0),(0,0)]`", - "raw": "repeat : Int -\u003e a -\u003e [a]", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - "a", - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "reverse", - "comment": "Reverse a list. `(reverse [1..4] == [4,3,2,1])`", - "raw": "reverse : [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - }, - { - "name": "scanl", - "comment": "Reduce a list from the left, building up all of the intermediate results into a list.\n\n scanl (+) 0 [1,2,3,4] == [0,1,3,6,10]", - "raw": "scanl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e [b]", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "b" - ] - ] - ] - ] - }, - { - "name": "scanl1", - "comment": "Same as scanl but it doesn't require a base case. List must be non-empty.\n\n scanl1 (+) [1,2,3,4] == [1,3,6,10]", - "raw": "scanl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "a", - "a" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "sort", - "comment": "Sort values from lowest to highest: `sort [3,1,5] == [1,3,5]`", - "raw": "sort : [comparable] -\u003e [comparable]", - "type": [ - "-\u003e", - [ - "_List", - "comparable" - ], - [ - "_List", - "comparable" - ] - ] - }, - { - "name": "sortBy", - "comment": "Sort values by a derived property.\n\n```haskell\nalice = { name=\"Alice\", height=1.62 }\nbob = { name=\"Bob\" , height=1.85 }\nchuck = { name=\"Chuck\", height=1.76 }\n\nsortBy .name [chuck,alice,bob] == [alice,bob,chuck]\nsortBy .height [chuck,alice,bob] == [alice,chuck,bob]\n\nsortBy String.length [\"mouse\",\"cat\"] == [\"cat\",\"mouse\"]\n```", - "raw": "sortBy : (a -\u003e comparable) -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "comparable" - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "sortWith", - "comment": "Sort values with a custom comparison function.\n\n```haskell\nsortWith flippedComparison [1..5] == [5,4,3,2,1]\n\nflippedComparison a b =\n case compare a b of\n LT -\u003e GT\n EQ -\u003e EQ\n GT -\u003e LT\n```\n\nThis is also the most general sort function, allowing you\nto define any other: `sort == sortWith compare`", - "raw": "sortWith : (a -\u003e a -\u003e Order) -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "a", - [ - "Order" - ] - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "sum", - "comment": "Get the sum of the list elements. `(sum [1..4] == 10)`", - "raw": "sum : [number] -\u003e number", - "type": [ - "-\u003e", - [ - "_List", - "number" - ], - "number" - ] - }, - { - "name": "tail", - "comment": "Extract the elements after the head of the list. List must be non-empty.\n`(tail [1,2,3] == [2,3])`", - "raw": "tail : [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - }, - { - "name": "take", - "comment": "Take the first n members of a list: `(take 2 [1,2,3,4] == [1,2])`", - "raw": "take : Int -\u003e [a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "unzip", - "comment": "Decompose a list of tuples.", - "raw": "unzip : [(a,b)] -\u003e ([a],[b])", - "type": [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - "a", - "b" - ] - ], - [ - "_Tuple2", - [ - "_List", - "a" - ], - [ - "_List", - "b" - ] - ] - ] - }, - { - "name": "zip", - "comment": "Combine two lists, combining them into tuples pairwise.\nIf one list is longer, the extra elements are dropped.\n\n zip [1,2,3] [6,7] == [(1,6),(2,7)]\n zip == zipWith (,)", - "raw": "zip : [a] -\u003e [b] -\u003e [(a,b)]", - "type": [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "-\u003e", - [ - "_List", - "b" - ], - [ - "_List", - [ - "_Tuple2", - "a", - "b" - ] - ] - ] - ] - }, - { - "name": "zipWith", - "comment": "Combine two lists, combining them with the given function.\nIf one list is longer, the extra elements are dropped.\n\n zipWith (+) [1,2,3] [1,2,3,4] == [2,4,6]", - "raw": "zipWith : (a -\u003e b -\u003e c) -\u003e [a] -\u003e [b] -\u003e [c]", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "c" - ] - ], - [ - "-\u003e", - [ - "_List", - "a" - ], - [ - "-\u003e", - [ - "_List", - "b" - ], - [ - "_List", - "c" - ] - ] - ] - ] - } - ] -}, -{ - "name": "Maybe", - "document": "Represents an optional value. Maybe it is there, maybe it is not.\n\n# Type and Constructors\n@docs Maybe\n\n# Taking Maybes apart\n@docs maybe, isJust, isNothing\n\n# Maybes and Lists\n@docs justs", - "aliases": [], - "datatypes": [ - { - "name": "Maybe", - "comment": "The Maybe datatype. Useful when a computation may or may not\nresult in a value (e.g. logarithm is defined only for positive\nnumbers).", - "raw": "data Maybe a = Just a | Nothing", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Just", - "type": [ - "-\u003e", - "a", - [ - "Maybe", - "a" - ] - ] - }, - { - "name": "Nothing", - "type": [ - "Maybe", - "a" - ] - } - ] - } - ], - "values": [ - { - "name": "isJust", - "comment": "Check if constructed with `Just`.", - "raw": "isJust : Maybe a -\u003e Bool", - "type": [ - "-\u003e", - [ - "Maybe", - "a" - ], - [ - "Bool" - ] - ] - }, - { - "name": "isNothing", - "comment": "Check if constructed with `Nothing`.", - "raw": "isNothing : Maybe a -\u003e Bool", - "type": [ - "-\u003e", - [ - "Maybe", - "a" - ], - [ - "Bool" - ] - ] - }, - { - "name": "justs", - "comment": "Filters out Nothings and extracts the remaining values.", - "raw": "justs : [Maybe a] -\u003e [a]", - "type": [ - "-\u003e", - [ - "_List", - [ - "Maybe", - "a" - ] - ], - [ - "_List", - "a" - ] - ] - }, - { - "name": "maybe", - "comment": "Apply a function to the contents of a `Maybe`.\nReturn default when given `Nothing`.", - "raw": "maybe : b -\u003e (a -\u003e b) -\u003e Maybe a -\u003e b", - "type": [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - [ - "-\u003e", - [ - "Maybe", - "a" - ], - "b" - ] - ] - ] - } - ] -}, -{ - "name": "Mouse", - "document": "Library for working with mouse input.\n\n# Position\n@docs position, x, y\n\n# Button Status\n@docs isDown, clicks, isClicked", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "clicks", - "comment": "Always equal to unit. Event triggers on every mouse click.", - "raw": "clicks : Signal ()", - "type": [ - "Signal", - [ - "_Tuple0" - ] - ] - }, - { - "name": "isClicked", - "comment": "True immediately after the left mouse-button has been clicked,\nand false otherwise.", - "raw": "isClicked : Signal Bool", - "type": [ - "Signal", - [ - "Bool" - ] - ] - }, - { - "name": "isDown", - "comment": "The current state of the left mouse-button.\nTrue when the button is down, and false otherwise.", - "raw": "isDown : Signal Bool", - "type": [ - "Signal", - [ - "Bool" - ] - ] - }, - { - "name": "position", - "comment": "The current mouse position.", - "raw": "position : Signal (Int,Int)", - "type": [ - "Signal", - [ - "_Tuple2", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "x", - "comment": "The current x-coordinate of the mouse.", - "raw": "x : Signal Int", - "type": [ - "Signal", - [ - "Int" - ] - ] - }, - { - "name": "y", - "comment": "The current y-coordinate of the mouse.", - "raw": "y : Signal Int", - "type": [ - "Signal", - [ - "Int" - ] - ] - } - ] -}, -{ - "name": "Prelude", - "document": "Everything that is automatically imported", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "show", - "comment": "", - "raw": "show : a -\u003e String", - "type": [ - "-\u003e", - "a", - [ - "String" - ] - ] - } - ] -}, -{ - "name": "Random", - "document": "Since the core of Elm is pure, randomness must be handled via signals.\n\n# Random Numbers\n@docs range, float, floatList", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "float", - "comment": "Produces a new signal that changes whenever the input signal changes.\nThe new values are random numbers in [0..1).", - "raw": "float : Signal a -\u003e Signal Float", - "type": [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - [ - "Float" - ] - ] - ] - }, - { - "name": "floatList", - "comment": "Produces a new signal of lists that changes whenever the input signal\nchanges. The input signal specifies the length of the random list. Each value is\na random number in [0..1).", - "raw": "floatList : Signal Int -\u003e Signal [Float]", - "type": [ - "-\u003e", - [ - "Signal", - [ - "Int" - ] - ], - [ - "Signal", - [ - "_List", - [ - "Float" - ] - ] - ] - ] - }, - { - "name": "range", - "comment": "Given a range from low to high and a signal of values, this produces\na new signal that changes whenever the input signal changes. The new\nvalues are random number between 'low' and 'high' inclusive.", - "raw": "range : Int -\u003e Int -\u003e Signal a -\u003e Signal Int", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - [ - "Int" - ] - ] - ] - ] - ] - } - ] -}, -{ - "name": "Regex", - "document": "A library for working with regular expressions. It uses [the\nsame kind of regular expressions accepted by JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions).\n\n# Create\n@docs pattern, caseInsensitive, escape\n\n# Match\n@docs Match\n\n# Find and Replace\n@docs contains, find, findAll, replace, replaceAll\n\n# Split\n@docs split, splitN", - "aliases": [ - { - "name": "Match", - "comment": "A `Match` represents all of the details about a particular match in a string.\nHere are details on each field:\n\n * `match` — the full string of the match.\n * `submatches` — a pattern might have [subpatterns, surrounded by\n parentheses](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Using_Parenthesized_Substring_Matches).\n If there are N subpatterns, there will be N elements in the `submatches` list.\n Each submatch in this list is a `Maybe` because not all subpatterns may trigger.\n For example, `(pattern \"(a+)|(b+)\")` will either match many `a`’s or\n many `b`’s, but never both.\n * `index` — the index of the match in the original string.\n * `number` — if you find many matches, you can think of each one\n as being labeled with a `number` starting at one. So the first time you\n find a match, that is match `number` one. Second time is match `number` two.\n This is useful when paired with `replaceAll` if replacement is dependent on how\n many times a pattern has appeared before.", - "raw": "type Match = { match : String, submatches : [Maybe String], index : Int, number : Int }", - "typeVariables": [], - "type": { - "submatches": [ - "_List", - [ - "Maybe", - [ - "String" - ] - ] - ], - "match": [ - "String" - ], - "index": [ - "Int" - ], - "number": [ - "Int" - ] - } - } - ], - "datatypes": [ - { - "name": "Regex", - "comment": "", - "raw": "data Regex = Regex", - "typeVariables": [], - "constructors": [ - { - "name": "Regex", - "type": [ - "Regex" - ] - } - ] - } - ], - "values": [ - { - "name": "caseInsensitive", - "comment": "Make a pattern case insensitive", - "raw": "caseInsensitive : Regex -\u003e Regex", - "type": [ - "-\u003e", - [ - "Regex" - ], - [ - "Regex" - ] - ] - }, - { - "name": "contains", - "comment": "Check to see if a Regex is contained in a string.\n\n```haskell\n contains (pattern \"123\") \"12345\" == True\n contains (pattern \"b+\") \"aabbcc\" == True\n\n contains (pattern \"789\") \"12345\" == False\n contains (pattern \"z+\") \"aabbcc\" == False\n```", - "raw": "contains : Regex -\u003e String -\u003e Bool", - "type": [ - "-\u003e", - [ - "Regex" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "escape", - "comment": "Escape all special characters. So `pattern (escape \"$$$\")`\nwill match exactly `\"$$$\"` even though `$` is a special character.", - "raw": "escape : String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - }, - { - "name": "find", - "comment": "Same as `findAll`, but `find` will quit searching after the *n\u003csup\u003eth\u003c/sup\u003e* match.\nThat means the resulting list has maximum length N, but *it can be shorter*\nif there are not that many matches in the given string.", - "raw": "find : Int -\u003e Regex -\u003e String -\u003e [Match]", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Regex" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "Match" - ] - ] - ] - ] - ] - }, - { - "name": "findAll", - "comment": "Find all of the matches in a string:\n\n```haskell\n words = findAll (pattern \"\\\\w+\") \"hello world\"\n\n map .match words == [\"hello\",\"world\"]\n map .index words == [0,6]\n\n places = findAll (pattern \"[oi]n a (\\\\w+)\") \"I am on a boat in a lake.\"\n\n map .match places== [\"on a boat\", \"in a lake\"]\n map .submatches places == [ [Just \"boat\"], [Just \"lake\"] ]\n```", - "raw": "findAll : Regex -\u003e String -\u003e [Match]", - "type": [ - "-\u003e", - [ - "Regex" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "Match" - ] - ] - ] - ] - }, - { - "name": "pattern", - "comment": "Create a Regex that matches patterns [as specified in JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Writing_a_Regular_Expression_Pattern).\nBe careful to escape backslashes properly!", - "raw": "pattern : String -\u003e Regex", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Regex" - ] - ] - }, - { - "name": "replace", - "comment": "Same as `replaceAll`, but `replace` will quit after the *n\u003csup\u003eth\u003c/sup\u003e* match.", - "raw": "replace : Int -\u003e Regex -\u003e (Match -\u003e String) -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Regex" - ], - [ - "-\u003e", - [ - "-\u003e", - [ - "Match" - ], - [ - "String" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - ] - ] - }, - { - "name": "replaceAll", - "comment": "Replace all matches. The function from `Match` to `String` lets\nyou use the details of a specific match when making replacements.\n\n```haskell\n devowel = replaceAll (pattern \"[aeiou]\") (\\_ -\u003e \"\")\n\n devowel \"The quick brown fox\" == \"Th qck brwn fx\"\n\n reverseWords = replaceAll (pattern \"\\\\w+\") (\\{match} -\u003e String.reverse match)\n\n reverseWords \"deliver mined parts\" == \"reviled denim strap\"\n```", - "raw": "replaceAll : Regex -\u003e (Match -\u003e String) -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Regex" - ], - [ - "-\u003e", - [ - "-\u003e", - [ - "Match" - ], - [ - "String" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - ] - }, - { - "name": "split", - "comment": "Split a string, using the regex as the separator.\n\n```haskell\n split (pattern \" *, *\") \"a ,b, c,d\" == [\"a\",\"b\",\"c\",\"d\"]\n```", - "raw": "split : Regex -\u003e String -\u003e [String]", - "type": [ - "-\u003e", - [ - "Regex" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "String" - ] - ] - ] - ] - }, - { - "name": "splitN", - "comment": "Same as `split` but stops after the *n\u003csup\u003eth\u003c/sup\u003e* match.\n\n```haskell\n splitN 1 (pattern \": *\") \"tom: 99,90,85\" == [\"tom\",\"99,90,85\"]\n```", - "raw": "splitN : Int -\u003e Regex -\u003e String -\u003e [String]", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Regex" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "String" - ] - ] - ] - ] - ] - } - ] -}, -{ - "name": "Set", - "document": "A set of unique values. The values can be any comparable type. This\nincludes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or lists\nof comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, remove\n\n# Query\n@docs member\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs toList, fromList\n\n# Transform\n@docs map, foldl, foldr", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "diff", - "comment": "Get the difference between the first set and the second. Keeps values\nthat do not appear in the second set.", - "raw": "diff : Set comparable -\u003e Set comparable -\u003e Set comparable", - "type": [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "Set", - "comparable" - ] - ] - ] - }, - { - "name": "empty", - "comment": "Create an empty set.", - "raw": "empty : Set comparable", - "type": [ - "Set", - "comparable" - ] - }, - { - "name": "foldl", - "comment": "Fold over the values in a set, in order from lowest to highest.", - "raw": "foldl : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - "comparable", - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "Set", - "comparable" - ], - "b" - ] - ] - ] - }, - { - "name": "foldr", - "comment": "Fold over the values in a set, in order from highest to lowest.", - "raw": "foldr : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - "comparable", - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "Set", - "comparable" - ], - "b" - ] - ] - ] - }, - { - "name": "fromList", - "comment": "Convert a list into a set, removing any duplicates.", - "raw": "fromList : [comparable] -\u003e Set comparable", - "type": [ - "-\u003e", - [ - "_List", - "comparable" - ], - [ - "Set", - "comparable" - ] - ] - }, - { - "name": "insert", - "comment": "Insert a value into a set.", - "raw": "insert : comparable -\u003e Set comparable -\u003e Set comparable", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "Set", - "comparable" - ] - ] - ] - }, - { - "name": "intersect", - "comment": "Get the intersection of two sets. Keeps values that appear in both sets.", - "raw": "intersect : Set comparable -\u003e Set comparable -\u003e Set comparable", - "type": [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "Set", - "comparable" - ] - ] - ] - }, - { - "name": "map", - "comment": "Map a function onto a set, creating a new set with no duplicates.", - "raw": "map : (comparable -\u003e comparable') -\u003e Set comparable -\u003e Set comparable'", - "type": [ - "-\u003e", - [ - "-\u003e", - "comparable", - "comparable'" - ], - [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "Set", - "comparable'" - ] - ] - ] - }, - { - "name": "member", - "comment": "Determine if a value is in a set.", - "raw": "member : comparable -\u003e Set comparable -\u003e Bool", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "remove", - "comment": "Remove a value from a set. If the value is not found, no changes are made.", - "raw": "remove : comparable -\u003e Set comparable -\u003e Set comparable", - "type": [ - "-\u003e", - "comparable", - [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "Set", - "comparable" - ] - ] - ] - }, - { - "name": "singleton", - "comment": "Create a set with one value.", - "raw": "singleton : comparable -\u003e Set comparable", - "type": [ - "-\u003e", - "comparable", - [ - "Set", - "comparable" - ] - ] - }, - { - "name": "toList", - "comment": "Convert a set into a list.", - "raw": "toList : Set comparable -\u003e [comparable]", - "type": [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "_List", - "comparable" - ] - ] - }, - { - "name": "union", - "comment": "Get the union of two sets. Keep all values.", - "raw": "union : Set comparable -\u003e Set comparable -\u003e Set comparable", - "type": [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "-\u003e", - [ - "Set", - "comparable" - ], - [ - "Set", - "comparable" - ] - ] - ] - } - ] -}, -{ - "name": "Signal", - "document": "The library for general signal manipulation. Includes lift functions up to\n`lift8` and infix lift operators `\u003c~` and `~`, combinations, filters, and\npast-dependence.\n\nSignals are time-varying values. Lifted functions are reevaluated whenever any of\ntheir input signals has an event. Signal events may be of the same value as the\nprevious value of the signal. Such signals are useful for timing and\npast-dependence.\n\nSome useful functions for working with time (e.g. setting FPS) and combining\nsignals and time (e.g. delaying updates, getting timestamps) can be found in\nthe [`Time`](/docs/Signal/Time.elm) library.\n\n# Combine\n@docs constant, lift, lift2, merge, merges, combine\n\n# Past-Dependence\n@docs foldp, count, countIf\n\n#Filters\n@docs keepIf, dropIf, keepWhen, dropWhen, dropRepeats, sampleOn\n\n# Pretty Lift\n@docs (\u003c~), (~)\n\n# Do you even lift?\n@docs lift3, lift4, lift5, lift6, lift7, lift8", - "aliases": [], - "datatypes": [ - { - "name": "Signal", - "comment": "", - "raw": "data Signal a = Signal", - "typeVariables": [ - "a" - ], - "constructors": [ - { - "name": "Signal", - "type": [ - "Signal", - "a" - ] - } - ] - } - ], - "values": [ - { - "name": "\u003c~", - "comment": "An alias for `lift`. A prettier way to apply a function to the current value\nof a signal.", - "raw": "(\u003c~) : (a -\u003e b) -\u003e Signal a -\u003e Signal b", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "b" - ] - ] - ], - "associativity": "left", - "precedence": 4 - }, - { - "name": "combine", - "comment": "Combine a list of signals into a signal of lists.", - "raw": "combine : [Signal a] -\u003e Signal [a]", - "type": [ - "-\u003e", - [ - "_List", - [ - "Signal", - "a" - ] - ], - [ - "Signal", - [ - "_List", - "a" - ] - ] - ] - }, - { - "name": "constant", - "comment": "Create a constant signal that never changes.", - "raw": "constant : a -\u003e Signal a", - "type": [ - "-\u003e", - "a", - [ - "Signal", - "a" - ] - ] - }, - { - "name": "count", - "comment": "Count the number of events that have occurred.", - "raw": "count : Signal a -\u003e Signal Int", - "type": [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - [ - "Int" - ] - ] - ] - }, - { - "name": "countIf", - "comment": "Count the number of events that have occurred that satisfy a given predicate.", - "raw": "countIf : (a -\u003e Bool) -\u003e Signal a -\u003e Signal Int", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - [ - "Int" - ] - ] - ] - ] - }, - { - "name": "dropIf", - "comment": "Drop events that satisfy the given predicate. Elm does not allow undefined\nsignals, so a base case must be provided in case the predicate is satisfied\ninitially.", - "raw": "dropIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ], - [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "a" - ] - ] - ] - ] - }, - { - "name": "dropRepeats", - "comment": "Drop updates that repeat the current value of the signal.\n\nImagine a signal `numbers` has initial value\n0 and then updates with values 0, 0, 1, 1, and 2. `dropRepeats numbers`\nis a signal that has initial value 0 and updates as follows: ignore 0,\nignore 0, update to 1, ignore 1, update to 2.", - "raw": "dropRepeats : Signal a -\u003e Signal a", - "type": [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "a" - ] - ] - }, - { - "name": "dropWhen", - "comment": "Drop events when the first signal is true. When the first signal becomes\nfalse, the most recent value of the second signal will be propagated. Until the\nfirst signal becomes true again, all events will be propagated. Elm does not\nallow undefined signals, s oa base case must be provided in case the first\nsignal is true initially.", - "raw": "dropWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", - "type": [ - "-\u003e", - [ - "Signal", - [ - "Bool" - ] - ], - [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "a" - ] - ] - ] - ] - }, - { - "name": "foldp", - "comment": "Create a past-dependent signal. Each value given on the input signal will\nbe accumulated, producing a new output value.\n\nFor instance, `foldp (+) 0 (fps 40)` is the time the program has been running,\nupdated 40 times a second.", - "raw": "foldp : (a -\u003e b -\u003e b) -\u003e b -\u003e Signal a -\u003e Signal b", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "b" - ] - ] - ] - ] - }, - { - "name": "keepIf", - "comment": "Keep only events that satisfy the given predicate. Elm does not allow\nundefined signals, so a base case must be provided in case the predicate is\nnot satisfied initially.", - "raw": "keepIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "Bool" - ] - ], - [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "a" - ] - ] - ] - ] - }, - { - "name": "keepWhen", - "comment": "Keep events only when the first signal is true. When the first signal\nbecomes true, the most recent value of the second signal will be propagated.\nUntil the first signal becomes false again, all events will be propagated. Elm\ndoes not allow undefined signals, so a base case must be provided in case the\nfirst signal is not true initially.", - "raw": "keepWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", - "type": [ - "-\u003e", - [ - "Signal", - [ - "Bool" - ] - ], - [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "a" - ] - ] - ] - ] - }, - { - "name": "lift", - "comment": "Transform a signal with a given function.", - "raw": "lift : (a -\u003e b) -\u003e Signal a -\u003e Signal b", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "b" - ] - ] - ] - }, - { - "name": "lift2", - "comment": "Combine two signals with a given function.", - "raw": "lift2 : (a -\u003e b -\u003e c) -\u003e Signal a -\u003e Signal b -\u003e Signal c", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - "c" - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "Signal", - "c" - ] - ] - ] - ] - }, - { - "name": "lift3", - "comment": "", - "raw": "lift3 : (a -\u003e b -\u003e c -\u003e d) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - [ - "-\u003e", - "c", - "d" - ] - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "c" - ], - [ - "Signal", - "d" - ] - ] - ] - ] - ] - }, - { - "name": "lift4", - "comment": "", - "raw": "lift4 : (a -\u003e b -\u003e c -\u003e d -\u003e e) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - [ - "-\u003e", - "c", - [ - "-\u003e", - "d", - "e" - ] - ] - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "c" - ], - [ - "-\u003e", - [ - "Signal", - "d" - ], - [ - "Signal", - "e" - ] - ] - ] - ] - ] - ] - }, - { - "name": "lift5", - "comment": "", - "raw": "lift5 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - [ - "-\u003e", - "c", - [ - "-\u003e", - "d", - [ - "-\u003e", - "e", - "f" - ] - ] - ] - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "c" - ], - [ - "-\u003e", - [ - "Signal", - "d" - ], - [ - "-\u003e", - [ - "Signal", - "e" - ], - [ - "Signal", - "f" - ] - ] - ] - ] - ] - ] - ] - }, - { - "name": "lift6", - "comment": "", - "raw": "lift6 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - [ - "-\u003e", - "c", - [ - "-\u003e", - "d", - [ - "-\u003e", - "e", - [ - "-\u003e", - "f", - "g" - ] - ] - ] - ] - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "c" - ], - [ - "-\u003e", - [ - "Signal", - "d" - ], - [ - "-\u003e", - [ - "Signal", - "e" - ], - [ - "-\u003e", - [ - "Signal", - "f" - ], - [ - "Signal", - "g" - ] - ] - ] - ] - ] - ] - ] - ] - }, - { - "name": "lift7", - "comment": "", - "raw": "lift7 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - [ - "-\u003e", - "c", - [ - "-\u003e", - "d", - [ - "-\u003e", - "e", - [ - "-\u003e", - "f", - [ - "-\u003e", - "g", - "h" - ] - ] - ] - ] - ] - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "c" - ], - [ - "-\u003e", - [ - "Signal", - "d" - ], - [ - "-\u003e", - [ - "Signal", - "e" - ], - [ - "-\u003e", - [ - "Signal", - "f" - ], - [ - "-\u003e", - [ - "Signal", - "g" - ], - [ - "Signal", - "h" - ] - ] - ] - ] - ] - ] - ] - ] - ] - }, - { - "name": "lift8", - "comment": "", - "raw": "lift8 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h -\u003e i)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h -\u003e Signal i", - "type": [ - "-\u003e", - [ - "-\u003e", - "a", - [ - "-\u003e", - "b", - [ - "-\u003e", - "c", - [ - "-\u003e", - "d", - [ - "-\u003e", - "e", - [ - "-\u003e", - "f", - [ - "-\u003e", - "g", - [ - "-\u003e", - "h", - "i" - ] - ] - ] - ] - ] - ] - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "-\u003e", - [ - "Signal", - "c" - ], - [ - "-\u003e", - [ - "Signal", - "d" - ], - [ - "-\u003e", - [ - "Signal", - "e" - ], - [ - "-\u003e", - [ - "Signal", - "f" - ], - [ - "-\u003e", - [ - "Signal", - "g" - ], - [ - "-\u003e", - [ - "Signal", - "h" - ], - [ - "Signal", - "i" - ] - ] - ] - ] - ] - ] - ] - ] - ] - ] - }, - { - "name": "merge", - "comment": "Merge two signals into one, biased towards the first signal if both signals\nupdate at the same time.", - "raw": "merge : Signal a -\u003e Signal a -\u003e Signal a", - "type": [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "a" - ] - ] - ] - }, - { - "name": "merges", - "comment": "Merge many signals into one, biased towards the left-most signal if multiple\nsignals update simultaneously.", - "raw": "merges : [Signal a] -\u003e Signal a", - "type": [ - "-\u003e", - [ - "_List", - [ - "Signal", - "a" - ] - ], - [ - "Signal", - "a" - ] - ] - }, - { - "name": "sampleOn", - "comment": "Sample from the second input every time an event occurs on the first input.\nFor example, `(sampleOn clicks (every second))` will give the approximate time\nof the latest click.", - "raw": "sampleOn : Signal a -\u003e Signal b -\u003e Signal b", - "type": [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "-\u003e", - [ - "Signal", - "b" - ], - [ - "Signal", - "b" - ] - ] - ] - }, - { - "name": "~", - "comment": "Informally, an alias for `liftN`. Intersperse it between additional signal\narguments of the lifted function.\n\nFormally, signal application. This takes two signals, holding a function and\na value. It applies the current function to the current value.\n\nThe following expressions are equivalent:\n\n scene \u003c~ Window.dimensions ~ Mouse.position\n lift2 scene Window.dimensions Mouse.position", - "raw": "(~) : Signal (a -\u003e b) -\u003e Signal a -\u003e Signal b", - "type": [ - "-\u003e", - [ - "Signal", - [ - "-\u003e", - "a", - "b" - ] - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "b" - ] - ] - ], - "associativity": "left", - "precedence": 4 - } - ] -}, -{ - "name": "String", - "document": "A built-in representation for efficient string manipulation. String literals\nare enclosed in `\"double quotes\"`. Strings are *not* lists of characters.\n\n# Basics\n@docs isEmpty, length, reverse, repeat\n\n# Building and Splitting\n@docs cons, uncons, append, concat, split, join, words, lines\n\n# Get Substrings\n@docs sub, left, right, dropLeft, dropRight\n\n# Check for Substrings\n@docs contains, startsWith, endsWith, indexes, indices\n\n# Conversions\n@docs toInt, toFloat, toList, fromList\n\n# Formatting\nCosmetic operations such as padding with extra characters or trimming whitespace.\n\n@docs toUpper, toLower,\n pad, padLeft, padRight,\n trim, trimLeft, trimRight\n\n# Higher-Order Functions\n@docs map, filter, foldl, foldr, any, all", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "all", - "comment": "Check to see if *all* characters satisfy a predicate.\n\n all isDigit \"90210\" == True\n all isDigit \"R2-D2\" == False\n any isDigit \"heart\" == False", - "raw": "all : (Char -\u003e Bool) -\u003e String -\u003e Bool", - "type": [ - "-\u003e", - [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "any", - "comment": "Check to see if *any* characters satisfy a predicate.\n\n any isDigit \"90210\" == True\n any isDigit \"R2-D2\" == True\n any isDigit \"heart\" == False", - "raw": "any : (Char -\u003e Bool) -\u003e String -\u003e Bool", - "type": [ - "-\u003e", - [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "append", - "comment": "Append two strings. You can also use [the `(++)` operator](/library/List.elm#++)\nto do this.\n\n append \"butter\" \"fly\" == \"butterfly\"", - "raw": "append : String -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "concat", - "comment": "Concatenate many strings into one.\n\n concat [\"never\",\"the\",\"less\"] == \"nevertheless\"", - "raw": "concat : [String] -\u003e String", - "type": [ - "-\u003e", - [ - "_List", - [ - "String" - ] - ], - [ - "String" - ] - ] - }, - { - "name": "cons", - "comment": "Add a character to the beginning of a string", - "raw": "cons : Char -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Char" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "contains", - "comment": "See if a string contains another one.\n\n contains \"the\" \"theory\" == True\n contains \"hat\" \"theory\" == False\n contains \"THE\" \"theory\" == False", - "raw": "contains : String -\u003e String -\u003e Bool", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "dropLeft", - "comment": "Drop N characters from the left side of a string.", - "raw": "dropLeft : Int -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "dropRight", - "comment": "Drop N characters from the right side of a string.", - "raw": "dropRight : Int -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "endsWith", - "comment": "See if a string ends with another one.\n\n endsWith \"the\" \"theory\" == False\n endsWith \"ory\" \"theory\" == True", - "raw": "endsWith : String -\u003e String -\u003e Bool", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "filter", - "comment": "Keep only the characters that satisfy the predicate:\n\n filter isDigit \"R2-D2\" == \"22\"", - "raw": "filter : (Char -\u003e Bool) -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "-\u003e", - [ - "Char" - ], - [ - "Bool" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "foldl", - "comment": "Reduce a string from the left:\n\n foldl cons \"\" \"time\" == \"emit\"", - "raw": "foldl : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - [ - "Char" - ], - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "String" - ], - "b" - ] - ] - ] - }, - { - "name": "foldr", - "comment": "Reduce a string from the right:\n\n foldr cons \"\" \"time\" == \"time\"", - "raw": "foldr : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", - "type": [ - "-\u003e", - [ - "-\u003e", - [ - "Char" - ], - [ - "-\u003e", - "b", - "b" - ] - ], - [ - "-\u003e", - "b", - [ - "-\u003e", - [ - "String" - ], - "b" - ] - ] - ] - }, - { - "name": "fromList", - "comment": "Convert a list of characters into a String. Can be useful if you\nwant to create a string primarly by consing, perhaps for decoding\nsomething.\n\n fromList ['a','b','c'] == \"abc\"", - "raw": "fromList : [Char] -\u003e String", - "type": [ - "-\u003e", - [ - "_List", - [ - "Char" - ] - ], - [ - "String" - ] - ] - }, - { - "name": "indexes", - "comment": "Get all of the indexes for a substring.\n\n indexes \"i\" \"Mississippi\" == [1,4,7,10]\n indexes \"ss\" \"Mississippi\" == [2,5]\n indexes \"needle\" \"haystack\" == []", - "raw": "indexes : String -\u003e String -\u003e [Int]", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "Int" - ] - ] - ] - ] - }, - { - "name": "indices", - "comment": "Alias for `indexes`", - "raw": "indices : String -\u003e String -\u003e [Int]", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "Int" - ] - ] - ] - ] - }, - { - "name": "isEmpty", - "comment": "Check if a string is empty `(isEmpty \"\" == True)`", - "raw": "isEmpty : String -\u003e Bool", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Bool" - ] - ] - }, - { - "name": "join", - "comment": "Put many strings together with a given separator.\n\n join \" \" [\"cat\",\"dog\",\"cow\"] == \"cat dog cow\"\n join \"/\" [\"home\",\"evan\",\"Desktop\"] == \"home/evan/Desktop\"", - "raw": "join : String -\u003e [String] -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "_List", - [ - "String" - ] - ], - [ - "String" - ] - ] - ] - }, - { - "name": "left", - "comment": "Take N characters from the left side of a string.", - "raw": "left : Int -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "length", - "comment": "Get the length of a string `(length \"innumerable\" == 11)`", - "raw": "length : String -\u003e Int", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Int" - ] - ] - }, - { - "name": "lines", - "comment": "Break a string into lines, splitting on newlines.\n\n lines \"How are you?\\nGood? == [\"How are you?\", \"Good?\"]", - "raw": "lines : String -\u003e [String]", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "String" - ] - ] - ] - }, - { - "name": "map", - "comment": "Transform every character in a string\n\n map (\\c -\u003e if c == '/' then '.' else c) \"a/b/c\" == \"a.b.c\"", - "raw": "map : (Char -\u003e Char) -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "-\u003e", - [ - "Char" - ], - [ - "Char" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "pad", - "comment": "Pad a string on both sides until it has a given length.\n\n pad 5 ' ' \"1\" == \" 1 \"\n pad 5 ' ' \"11\" == \" 11 \"\n pad 5 ' ' \"121\" == \" 121 \"", - "raw": "pad : Int -\u003e Char -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Char" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - ] - }, - { - "name": "padLeft", - "comment": "Pad a string on the left until it has a given length.\n\n pad 5 '.' \"1\" == \"....1\"\n pad 5 '.' \"11\" == \"...11\"\n pad 5 '.' \"121\" == \"..121\"", - "raw": "padLeft : Int -\u003e Char -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Char" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - ] - }, - { - "name": "padRight", - "comment": "Pad a string on the right until it has a given length.\n\n pad 5 '.' \"1\" == \"1....\"\n pad 5 '.' \"11\" == \"11...\"\n pad 5 '.' \"121\" == \"121..\"", - "raw": "padRight : Int -\u003e Char -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Char" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - ] - }, - { - "name": "repeat", - "comment": "Repeat a string N times `(repeat 3 \"ha\" == \"hahaha\")`", - "raw": "repeat : Int -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "reverse", - "comment": "Reverse a string. `(reverse \"stressed\" == \"desserts\")`", - "raw": "reverse : String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - }, - { - "name": "right", - "comment": "Take N characters from the right side of a string.", - "raw": "right : Int -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - }, - { - "name": "split", - "comment": "Split a string using a given separator.\n\n split \",\" \"cat,dog,cow\" == [\"cat\",\"dog\",\"cow\"]\n split \"/\" \"home/evan/Desktop/\" == [\"home\",\"evan\",\"Desktop\"]", - "raw": "split : String -\u003e String -\u003e [String]", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "String" - ] - ] - ] - ] - }, - { - "name": "startsWith", - "comment": "See if a string starts with another one.\n\n startsWith \"the\" \"theory\" == True\n startsWith \"ory\" \"theory\" == False", - "raw": "startsWith : String -\u003e String -\u003e Bool", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Bool" - ] - ] - ] - }, - { - "name": "sub", - "comment": "Take a substring given a start and end index. Negative indexes\nare taken starting from the *end* of the list.\n\n sub 7 9 \"snakes on a plane!\" == \"on\"\n sub 0 6 \"snakes on a plane!\" == \"snakes\"\n sub 0 -7 \"snakes on a plane!\" == \"snakes on a\"\n sub -6 -1 \"snakes on a plane!\" == \"plane\"", - "raw": "sub : Int -\u003e Int -\u003e String -\u003e String", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - ] - ] - }, - { - "name": "toFloat", - "comment": "Try to convert a string into a float, failing on improperly formatted strings.\n\n toFloat \"123\" == Just 123.0\n toFloat \"-42\" == Just -42.0\n toFloat \"3.1\" == Just 3.1\n toFloat \"31a\" == Nothing", - "raw": "toFloat : String -\u003e Maybe Float", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Maybe", - [ - "Float" - ] - ] - ] - }, - { - "name": "toInt", - "comment": "Try to convert a string into an int, failing on improperly formatted strings.\n\n toInt \"123\" == Just 123\n toInt \"-42\" == Just -42\n toInt \"3.1\" == Nothing\n toInt \"31a\" == Nothing", - "raw": "toInt : String -\u003e Maybe Int", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Maybe", - [ - "Int" - ] - ] - ] - }, - { - "name": "toList", - "comment": "Convert a string to a list of characters.\n\n toList \"abc\" == ['a','b','c']", - "raw": "toList : String -\u003e [Char]", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "Char" - ] - ] - ] - }, - { - "name": "toLower", - "comment": "Convert a string to all lower case. Useful for case insensitive comparisons.", - "raw": "toLower : String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - }, - { - "name": "toUpper", - "comment": "Convert a string to all upper case. Useful for case insensitive comparisons\nand VIRTUAL YELLING.", - "raw": "toUpper : String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - }, - { - "name": "trim", - "comment": "Get rid of whitespace on both sides of a string.\n\n trim \" hats \\n\" == \"hats\"", - "raw": "trim : String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - }, - { - "name": "trimLeft", - "comment": "Get rid of whitespace on the left of a string.\n\n trimLeft \" hats \\n\" == \"hats \\n\"", - "raw": "trimLeft : String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - }, - { - "name": "trimRight", - "comment": "Get rid of whitespace on the left of a string.\n\n trimRight \" hats \\n\" == \" hats\"", - "raw": "trimRight : String -\u003e String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "String" - ] - ] - }, - { - "name": "uncons", - "comment": "Split a non-empty string into its head and tail. This lets you\npattern match on strings exactly as you would with lists.\n\n uncons \"abc\" == Just ('a',\"bc\")\n uncons \"\" == Nothing", - "raw": "uncons : String -\u003e Maybe (Char, String)", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Maybe", - [ - "_Tuple2", - [ - "Char" - ], - [ - "String" - ] - ] - ] - ] - }, - { - "name": "words", - "comment": "Break a string into words, splitting on chunks of whitespace.\n\n words \"How are \\t you? \\n Good?\" == [\"How\",\"are\",\"you?\",\"Good?\"]", - "raw": "words : String -\u003e [String]", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "_List", - [ - "String" - ] - ] - ] - } - ] -}, -{ - "name": "Text", - "document": "Functions for displaying text\n\n# Creating Text\n@docs toText\n\n# Creating Elements\n@docs plainText, asText, text, centered, justified, righted\n\n# Formatting\n@docs color, typeface, height, link\n\n# Simple Formatting\n@docs monospace, bold, italic, underline, overline, strikeThrough", - "aliases": [], - "datatypes": [ - { - "name": "Text", - "comment": "", - "raw": "data Text = Text", - "typeVariables": [], - "constructors": [ - { - "name": "Text", - "type": [ - "Text" - ] - } - ] - } - ], - "values": [ - { - "name": "asText", - "comment": "Convert anything to its textual representation and make it displayable in\nthe browser:\n\n asText == text . monospace . show\n\nExcellent for debugging.", - "raw": "asText : a -\u003e Element", - "type": [ - "-\u003e", - "a", - [ - "Element" - ] - ] - }, - { - "name": "bold", - "comment": "Make a string bold.", - "raw": "bold : Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - }, - { - "name": "centered", - "comment": "Display centered, styled text.", - "raw": "centered : Text -\u003e Element", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Element" - ] - ] - }, - { - "name": "color", - "comment": "Set the color of a string.", - "raw": "color : Color -\u003e Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - ] - }, - { - "name": "height", - "comment": "Set the height of text in pixels.", - "raw": "height : Float -\u003e Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - ] - }, - { - "name": "italic", - "comment": "Italicize a string.", - "raw": "italic : Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - }, - { - "name": "justified", - "comment": "Display justified, styled text.", - "raw": "justified : Text -\u003e Element", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Element" - ] - ] - }, - { - "name": "link", - "comment": "Create a link.", - "raw": "link : String -\u003e Text -\u003e Text", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - ] - }, - { - "name": "markdown", - "comment": "for internal use only", - "raw": "markdown : Element", - "type": [ - "Element" - ] - }, - { - "name": "monospace", - "comment": "Switch to a monospace typeface. Good for code snippets.", - "raw": "monospace : Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - }, - { - "name": "overline", - "comment": "Draw a line above a string.", - "raw": "overline : Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - }, - { - "name": "plainText", - "comment": "Display a plain string.", - "raw": "plainText : String -\u003e Element", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Element" - ] - ] - }, - { - "name": "righted", - "comment": "Display right justified, styled text.", - "raw": "righted : Text -\u003e Element", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Element" - ] - ] - }, - { - "name": "strikeThrough", - "comment": "Draw a line through a string.", - "raw": "strikeThrough : Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - }, - { - "name": "text", - "comment": "Display styled text.", - "raw": "text : Text -\u003e Element", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Element" - ] - ] - }, - { - "name": "toText", - "comment": "Convert a string into text which can be styled and displayed.", - "raw": "toText : String -\u003e Text", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "Text" - ] - ] - }, - { - "name": "typeface", - "comment": "Set the typeface of some text. The first argument should be a comma\nseparated listing of the desired typefaces:\n\n \"helvetica, arial, sans-serif\"\n\nWorks the same as the CSS font-family property.", - "raw": "typeface : String -\u003e Text -\u003e Text", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - ] - }, - { - "name": "underline", - "comment": "Underline a string.", - "raw": "underline : Text -\u003e Text", - "type": [ - "-\u003e", - [ - "Text" - ], - [ - "Text" - ] - ] - } - ] -}, -{ - "name": "Time", - "document": "Library for working with time.\n\n# Units\n@docs Time, millisecond, second, minute, hour,\n inMilliseconds, inSeconds, inMinutes, inHours\n\n# Tickers\n@docs fps, fpsWhen, every\n\n# Timing\n@docs timestamp, delay, since", - "aliases": [ - { - "name": "Time", - "comment": "Type alias to make it clearer when you are working with time values.\nUsing the `Time` constants instead of raw numbers is very highly recommended.", - "raw": "type Time = Float", - "typeVariables": [], - "type": [ - "Float" - ] - } - ], - "datatypes": [], - "values": [ - { - "name": "delay", - "comment": "Delay a signal by a certain amount of time. So `(delay second Mouse.clicks)`\nwill update one second later than any mouse click.", - "raw": "delay : Time -\u003e Signal a -\u003e Signal a", - "type": [ - "-\u003e", - [ - "Time" - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - "a" - ] - ] - ] - }, - { - "name": "every", - "comment": "Takes a time interval t. The resulting signal is the current time, updated\nevery t.", - "raw": "every : Time -\u003e Signal Time", - "type": [ - "-\u003e", - [ - "Time" - ], - [ - "Signal", - [ - "Time" - ] - ] - ] - }, - { - "name": "fps", - "comment": "Takes desired number of frames per second (fps). The resulting signal\ngives a sequence of time deltas as quickly as possible until it reaches\nthe desired FPS. A time delta is the time between the last frame and the\ncurrent frame.", - "raw": "fps : number -\u003e Signal Time", - "type": [ - "-\u003e", - "number", - [ - "Signal", - [ - "Time" - ] - ] - ] - }, - { - "name": "fpsWhen", - "comment": "Same as the fps function, but you can turn it on and off. Allows you\nto do brief animations based on user input without major inefficiencies.\nThe first time delta after a pause is always zero, no matter how long\nthe pause was. This way summing the deltas will actually give the amount\nof time that the output signal has been running.", - "raw": "fpsWhen : number -\u003e Signal Bool -\u003e Signal Time", - "type": [ - "-\u003e", - "number", - [ - "-\u003e", - [ - "Signal", - [ - "Bool" - ] - ], - [ - "Signal", - [ - "Time" - ] - ] - ] - ] - }, - { - "name": "hour", - "comment": "", - "raw": "hour : Time", - "type": [ - "Time" - ] - }, - { - "name": "inHours", - "comment": "", - "raw": "inHours : Time -\u003e Float", - "type": [ - "-\u003e", - [ - "Time" - ], - [ - "Float" - ] - ] - }, - { - "name": "inMilliseconds", - "comment": "", - "raw": "inMilliseconds : Time -\u003e Float", - "type": [ - "-\u003e", - [ - "Time" - ], - [ - "Float" - ] - ] - }, - { - "name": "inMinutes", - "comment": "", - "raw": "inMinutes : Time -\u003e Float", - "type": [ - "-\u003e", - [ - "Time" - ], - [ - "Float" - ] - ] - }, - { - "name": "inSeconds", - "comment": "", - "raw": "inSeconds : Time -\u003e Float", - "type": [ - "-\u003e", - [ - "Time" - ], - [ - "Float" - ] - ] - }, - { - "name": "millisecond", - "comment": "Units of time, making it easier to specify things like a half-second\n`(500 * milliseconds)` without remembering Elm’s underlying units of time.", - "raw": "millisecond : Time", - "type": [ - "Time" - ] - }, - { - "name": "minute", - "comment": "", - "raw": "minute : Time", - "type": [ - "Time" - ] - }, - { - "name": "second", - "comment": "", - "raw": "second : Time", - "type": [ - "Time" - ] - }, - { - "name": "since", - "comment": "Takes a time `t` and any signal. The resulting boolean signal is true for\ntime `t` after every event on the input signal. So ``(second `since`\nMouse.clicks)`` would result in a signal that is true for one second after\neach mouse click and false otherwise.", - "raw": "since : Time -\u003e Signal a -\u003e Signal Bool", - "type": [ - "-\u003e", - [ - "Time" - ], - [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - [ - "Bool" - ] - ] - ] - ] - }, - { - "name": "timestamp", - "comment": "Add a timestamp to any signal. Timestamps increase monotonically. When you\ncreate `(timestamp Mouse.x)`, an initial timestamp is produced. The timestamp\nupdates whenever `Mouse.x` updates.\n\nTimestamp updates are tied to individual events, so\n`(timestamp Mouse.x)` and `(timestamp Mouse.y)` will always have the same\ntimestamp because they rely on the same underlying event (`Mouse.position`).", - "raw": "timestamp : Signal a -\u003e Signal (Time, a)", - "type": [ - "-\u003e", - [ - "Signal", - "a" - ], - [ - "Signal", - [ - "_Tuple2", - [ - "Time" - ], - "a" - ] - ] - ] - } - ] -}, -{ - "name": "Touch", - "document": "This is an early version of the touch library. It will likely grow to\ninclude gestures that would be useful for both games and web-pages.\n\n# Touches\n@docs Touch, touches\n\n# Gestures\n@docs taps", - "aliases": [ - { - "name": "Touch", - "comment": "Every `Touch` has `xy` coordinates. It also has an identifier\n`id` to distinguish one touch from another.\n\nA touch also keeps info about the initial point and time of contact:\n`x0`, `y0`, and `t0`. This helps compute more complicated gestures\nlike taps, drags, and swipes which need to know about timing or direction.", - "raw": "type Touch = { x:Int, y:Int, id:Int, x0:Int, y0:Int, t0:Time }", - "typeVariables": [], - "type": { - "y0": [ - "Int" - ], - "y": [ - "Int" - ], - "x": [ - "Int" - ], - "id": [ - "Int" - ], - "t0": [ - "Time" - ], - "x0": [ - "Int" - ] - } - } - ], - "datatypes": [], - "values": [ - { - "name": "taps", - "comment": "The last position that was tapped. Default value is `{x=0,y=0}`.\nUpdates whenever the user taps the screen.", - "raw": "taps : Signal { x:Int, y:Int }", - "type": [ - "Signal", - { - "y": [ - "Int" - ], - "x": [ - "Int" - ] - } - ] - }, - { - "name": "touches", - "comment": "A list of ongoing touches.", - "raw": "touches : Signal [Touch]", - "type": [ - "Signal", - [ - "_List", - [ - "Touch" - ] - ] - ] - } - ] -}, -{ - "name": "Transform2D", - "document": "A library for performing [2D matrix transformations][affine].\nIt is used primarily with the `groupTransform` function from `Graphics.Collage` and\nallows you to do things like rotation, scaling, translation, shearing, and reflection.\n\nNote that all the matrices in this library are 3x3 matrices of homogeneous\ncoordinates, used for [affine transformations][affine]. Since the bottom row as\nalways `0 0 1` in these matrices, it is omitted in the diagrams below.\n\n [affine]: http://en.wikipedia.org/wiki/Transformation_matrix#Affine_transformations\n\n# Transforms\n@docs identity, matrix, rotation, translation, scale, scaleX, scaleY\n\n# Multiplication\n@docs multiply", - "aliases": [], - "datatypes": [ - { - "name": "Transform2D", - "comment": "", - "raw": "data Transform2D = Transform2D", - "typeVariables": [], - "constructors": [ - { - "name": "Transform2D", - "type": [ - "Transform2D" - ] - } - ] - } - ], - "values": [ - { - "name": "identity", - "comment": "Create an identity transform. Transforming by the identity does\nnot change anything, but it can come in handy as a default or\nbase case.\n\n / 1 0 0 \\\n \\ 0 1 0 /", - "raw": "identity : Transform2D", - "type": [ - "Transform2D" - ] - }, - { - "name": "matrix", - "comment": "Creates a transformation matrix. This lets you create transforms\nsuch as scales, shears, reflections, and translations.\n\n matrix a b c d x y\n\n / a b x \\\n \\ c d y /\n\nNote that `x` and `y` are the translation values.", - "raw": "matrix : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Transform2D", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Transform2D" - ] - ] - ] - ] - ] - ] - ] - }, - { - "name": "multiply", - "comment": "Multiplies two transforms together:\n\n multiply m n\n\n / ma mb mx \\ / na nb nx \\\n | mc md my | . | nc nd ny |\n \\ 0 0 1 / \\ 0 0 1 /", - "raw": "multiply : Transform2D -\u003e Transform2D -\u003e Transform2D", - "type": [ - "-\u003e", - [ - "Transform2D" - ], - [ - "-\u003e", - [ - "Transform2D" - ], - [ - "Transform2D" - ] - ] - ] - }, - { - "name": "rotation", - "comment": "Creates a [rotation matrix](http://en.wikipedia.org/wiki/Rotation_matrix).\nGiven an angle t, it creates a counterclockwise rotation matrix:\n\n / cos t -sin t 0 \\\n \\ sin t cos t 0 /", - "raw": "rotation : Float -\u003e Transform2D", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Transform2D" - ] - ] - }, - { - "name": "scale", - "comment": "Creates a transformation matrix for scaling by a all directions:\n\n scale s\n\n / s 0 0 \\\n \\ 0 s 0 /", - "raw": "scale : Float -\u003e Transform2D", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Transform2D" - ] - ] - }, - { - "name": "scaleX", - "comment": "Creates a transformation for horizontal scaling", - "raw": "scaleX : Float -\u003e Transform2D", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Transform2D" - ] - ] - }, - { - "name": "scaleY", - "comment": "Creates a transformation for vertical scaling", - "raw": "scaleY : Float -\u003e Transform2D", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Transform2D" - ] - ] - }, - { - "name": "translation", - "comment": "Creates a transformation matrix for translation:\n\n translation x y\n\n / 1 0 x \\\n \\ 0 1 y /", - "raw": "translation : Float -\u003e Float -\u003e Transform2D", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Transform2D" - ] - ] - ] - } - ] -}, -{ - "name": "WebSocket", - "document": "A library for low latency HTTP communication. See the HTTP library for\nstandard requests like GET, POST, etc. The API of this library is likely to\nchange to make it more flexible.\n\n# Open a Connection\n@docs connect", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "connect", - "comment": "Create a web-socket. The first argument is the URL of the desired\nweb-socket server. The input signal holds the outgoing messages,\nand the resulting signal contains the incoming ones.", - "raw": "connect : String -\u003e Signal String -\u003e Signal String", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "Signal", - [ - "String" - ] - ], - [ - "Signal", - [ - "String" - ] - ] - ] - ] - } - ] -}, -{ - "name": "Window", - "document": "Provides information about the container that your Elm program lives in.\nWhen you embed Elm in a `\u003cdiv\u003e` it gives the dimensions of the container, not\nthe whole window.\n\n# Dimensions\n@docs dimensions, width, height", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "dimensions", - "comment": "The current width and height of the window (i.e. the area viewable to the\nuser, not including scroll bars).", - "raw": "dimensions : Signal (Int,Int)", - "type": [ - "Signal", - [ - "_Tuple2", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "height", - "comment": "The current height of the window.", - "raw": "height : Signal Int", - "type": [ - "Signal", - [ - "Int" - ] - ] - }, - { - "name": "width", - "comment": "The current width of the window.", - "raw": "width : Signal Int", - "type": [ - "Signal", - [ - "Int" - ] - ] - } - ] -}, -{ - "name": "Graphics.Collage", - "document": "The collage API is for freeform graphics. You can move, rotate, scale, etc.\nall sorts of forms including lines, shapes, images, and elements.\n\n# Unstructured Graphics\n@docs collage\n \n# Creating Forms\n@docs toForm, filled, textured, gradient, outlined, traced\n \n# Transforming Forms\n@docs move, moveX, moveY, scale, rotate, alpha\n \n# Grouping Forms\nGrouping forms makes it easier to write modular graphics code. You can create\na form that is a composite of many subforms. From there it is easy to transform\nit as a single unit.\n\n@docs group, groupTransform\n \n# Shapes\n@docs rect, oval, square, circle, ngon, polygon\n\n# Paths\n@docs segment, path\n \n# Line Styles\n@docs solid, dashed, dotted, LineStyle, LineCap, LineJoin, defaultLine", - "aliases": [ - { - "name": "Form", - "comment": "", - "raw": "type Form = {\n theta : Float,\n scale : Float,\n x : Float,\n y : Float,\n alpha : Float,\n form : BasicForm\n }", - "typeVariables": [], - "type": { - "alpha": [ - "Float" - ], - "y": [ - "Float" - ], - "form": [ - "BasicForm" - ], - "x": [ - "Float" - ], - "theta": [ - "Float" - ], - "scale": [ - "Float" - ] - } - }, - { - "name": "LineStyle", - "comment": "All of the attributes of a line style. This lets you build up a line style\nhowever you want. You can also update existing line styles with record updates.", - "raw": "type LineStyle = {\n color : Color,\n width : Float,\n cap : LineCap,\n join : LineJoin,\n dashing : [Int],\n dashOffset : Int\n }", - "typeVariables": [], - "type": { - "width": [ - "Float" - ], - "dashOffset": [ - "Int" - ], - "color": [ - "Color" - ], - "join": [ - "LineJoin" - ], - "dashing": [ - "_List", - [ - "Int" - ] - ], - "cap": [ - "LineCap" - ] - } - }, - { - "name": "Path", - "comment": "", - "raw": "type Path = [(Float,Float)]", - "typeVariables": [], - "type": [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ] - ] - }, - { - "name": "Shape", - "comment": "", - "raw": "type Shape = [(Float,Float)]", - "typeVariables": [], - "type": [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ] - ] - } - ], - "datatypes": [ - { - "name": "BasicForm", - "comment": "", - "raw": "data BasicForm\n = FPath LineStyle Path\n | FShape (Either LineStyle FillStyle) Shape\n | FImage Int Int (Int,Int) String\n | FElement Element\n | FGroup Transform2D [Form]", - "typeVariables": [], - "constructors": [ - { - "name": "FPath", - "type": [ - "-\u003e", - [ - "LineStyle" - ], - [ - "-\u003e", - [ - "Path" - ], - [ - "BasicForm" - ] - ] - ] - }, - { - "name": "FShape", - "type": [ - "-\u003e", - [ - "Either", - [ - "LineStyle" - ], - [ - "FillStyle" - ] - ], - [ - "-\u003e", - [ - "Shape" - ], - [ - "BasicForm" - ] - ] - ] - }, - { - "name": "FImage", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "_Tuple2", - [ - "Int" - ], - [ - "Int" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "BasicForm" - ] - ] - ] - ] - ] - }, - { - "name": "FElement", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "BasicForm" - ] - ] - }, - { - "name": "FGroup", - "type": [ - "-\u003e", - [ - "Transform2D" - ], - [ - "-\u003e", - [ - "_List", - [ - "Form" - ] - ], - [ - "BasicForm" - ] - ] - ] - } - ] - }, - { - "name": "FillStyle", - "comment": "", - "raw": "data FillStyle\n = Solid Color\n | Texture String\n | Grad Gradient", - "typeVariables": [], - "constructors": [ - { - "name": "Solid", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "FillStyle" - ] - ] - }, - { - "name": "Texture", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "FillStyle" - ] - ] - }, - { - "name": "Grad", - "type": [ - "-\u003e", - [ - "Gradient" - ], - [ - "FillStyle" - ] - ] - } - ] - }, - { - "name": "LineCap", - "comment": "The shape of the ends of a line.", - "raw": "data LineCap = Flat | Round | Padded", - "typeVariables": [], - "constructors": [ - { - "name": "Flat", - "type": [ - "LineCap" - ] - }, - { - "name": "Round", - "type": [ - "LineCap" - ] - }, - { - "name": "Padded", - "type": [ - "LineCap" - ] - } - ] - }, - { - "name": "LineJoin", - "comment": "The shape of the “joints” of a line, where each line segment\nmeets. `Sharp` takes an argument to limit the length of the joint. This\ndefaults to 10.", - "raw": "data LineJoin = Smooth | Sharp Float | Clipped", - "typeVariables": [], - "constructors": [ - { - "name": "Smooth", - "type": [ - "LineJoin" - ] - }, - { - "name": "Sharp", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "LineJoin" - ] - ] - }, - { - "name": "Clipped", - "type": [ - "LineJoin" - ] - } - ] - } - ], - "values": [ - { - "name": "alpha", - "comment": "Set the alpha of a `Form`. The default is 1, and 0 is totally transparent.", - "raw": "alpha : Float -\u003e Form -\u003e Form", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Form" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "circle", - "comment": "A circle with a given radius.", - "raw": "circle : Float -\u003e Shape", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Shape" - ] - ] - }, - { - "name": "collage", - "comment": "A collage is a collection of 2D forms. There are no strict positioning\nrelationships between forms, so you are free to do all kinds of 2D graphics.", - "raw": "collage : Int -\u003e Int -\u003e [Form] -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "_List", - [ - "Form" - ] - ], - [ - "Element" - ] - ] - ] - ] - }, - { - "name": "dashed", - "comment": "Create a dashed line style with a given color. Dashing equals `[8,4]`.", - "raw": "dashed : Color -\u003e LineStyle", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "LineStyle" - ] - ] - }, - { - "name": "defaultLine", - "comment": "The default line style, which is solid black with flat caps and sharp joints.\nYou can use record updates to build the line style you\nwant. For example, to make a thicker line, you could say:\n\n { defaultLine | width \u003c- 10 }", - "raw": "defaultLine : LineStyle", - "type": [ - "LineStyle" - ] - }, - { - "name": "dotted", - "comment": "Create a dotted line style with a given color. Dashing equals `[3,3]`.", - "raw": "dotted : Color -\u003e LineStyle", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "LineStyle" - ] - ] - }, - { - "name": "filled", - "comment": "Create a filled in shape.", - "raw": "filled : Color -\u003e Shape -\u003e Form", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "-\u003e", - [ - "Shape" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "form", - "comment": "", - "raw": "form : BasicForm -\u003e Form", - "type": [ - "-\u003e", - [ - "BasicForm" - ], - [ - "Form" - ] - ] - }, - { - "name": "gradient", - "comment": "Fill a shape with a [gradient](/library/Color.elm#linear).", - "raw": "gradient : Gradient -\u003e Shape -\u003e Form", - "type": [ - "-\u003e", - [ - "Gradient" - ], - [ - "-\u003e", - [ - "Shape" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "group", - "comment": "Flatten many forms into a single `Form`. This lets you move and rotate them\nas a single unit, making it possible to build small, modular components.", - "raw": "group : [Form] -\u003e Form", - "type": [ - "-\u003e", - [ - "_List", - [ - "Form" - ] - ], - [ - "Form" - ] - ] - }, - { - "name": "groupTransform", - "comment": "Flatten many forms into a single `Form` and then apply a matrix\ntransformation.", - "raw": "groupTransform : Transform2D -\u003e [Form] -\u003e Form", - "type": [ - "-\u003e", - [ - "Transform2D" - ], - [ - "-\u003e", - [ - "_List", - [ - "Form" - ] - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "move", - "comment": "Move a form by the given amount. This is a relative translation so\n`(move (10,10) form)` would move `form` ten pixels up and ten pixels to the\nright.", - "raw": "move : (Float,Float) -\u003e Form -\u003e Form", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "-\u003e", - [ - "Form" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "moveX", - "comment": "Move a shape in the x direction. This is relative so `(moveX 10 form)` moves\n`form` 10 pixels to the right.", - "raw": "moveX : Float -\u003e Form -\u003e Form", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Form" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "moveY", - "comment": "Move a shape in the y direction. This is relative so `(moveY 10 form)` moves\n`form` upwards by 10 pixels.", - "raw": "moveY : Float -\u003e Form -\u003e Form", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Form" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "ngon", - "comment": "A regular polygon with N sides. The first argument specifies the number\nof sides and the second is the radius. So to create a pentagon with radius\n30 you would say:\n\n ngon 5 30", - "raw": "ngon : Int -\u003e Float -\u003e Shape", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Shape" - ] - ] - ] - }, - { - "name": "outlined", - "comment": "Outline a shape with a given line style.", - "raw": "outlined : LineStyle -\u003e Shape -\u003e Form", - "type": [ - "-\u003e", - [ - "LineStyle" - ], - [ - "-\u003e", - [ - "Shape" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "oval", - "comment": "An oval with a given width and height.", - "raw": "oval : Float -\u003e Float -\u003e Shape", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Shape" - ] - ] - ] - }, - { - "name": "path", - "comment": "Create a path that follows a sequence of points.", - "raw": "path : [(Float,Float)] -\u003e Path", - "type": [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ] - ], - [ - "Path" - ] - ] - }, - { - "name": "polygon", - "comment": "Create an arbitrary polygon by specifying its corners in order.\n`polygon` will automatically close all shapes, so the given list\nof points does not need to start and end with the same position.", - "raw": "polygon : [(Float,Float)] -\u003e Shape", - "type": [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ] - ], - [ - "Shape" - ] - ] - }, - { - "name": "rect", - "comment": "A rectangle with a given width and height.", - "raw": "rect : Float -\u003e Float -\u003e Shape", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Float" - ], - [ - "Shape" - ] - ] - ] - }, - { - "name": "rotate", - "comment": "Rotate a form by a given angle. Rotate takes standard Elm angles (radians)\nand turns things counterclockwise. So to turn `form` 30° to the left\nyou would say, `(rotate (degrees 30) form)`.", - "raw": "rotate : Float -\u003e Form -\u003e Form", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Form" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "scale", - "comment": "Scale a form by a given factor. Scaling by 2 doubles the size.", - "raw": "scale : Float -\u003e Form -\u003e Form", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Form" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "segment", - "comment": "Create a path along a given line segment.", - "raw": "segment : (Float,Float) -\u003e (Float,Float) -\u003e Path", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "-\u003e", - [ - "_Tuple2", - [ - "Float" - ], - [ - "Float" - ] - ], - [ - "Path" - ] - ] - ] - }, - { - "name": "solid", - "comment": "Create a solid line style with a given color.", - "raw": "solid : Color -\u003e LineStyle", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "LineStyle" - ] - ] - }, - { - "name": "sprite", - "comment": "Create a sprite from a sprite sheet. It cuts out a rectangle\nat a given position.", - "raw": "sprite : Int -\u003e Int -\u003e (Int,Int) -\u003e String -\u003e Form", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "_Tuple2", - [ - "Int" - ], - [ - "Int" - ] - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Form" - ] - ] - ] - ] - ] - }, - { - "name": "square", - "comment": "A square with a given edge length.", - "raw": "square : Float -\u003e Shape", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Shape" - ] - ] - }, - { - "name": "textured", - "comment": "Create a textured shape. The texture is described by some url and is\ntiled to fill the entire shape.", - "raw": "textured : String -\u003e Shape -\u003e Form", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "Shape" - ], - [ - "Form" - ] - ] - ] - }, - { - "name": "toForm", - "comment": "Turn any `Element` into a `Form`. This lets you use text, gifs, and video\nin your collage. This means you can move, rotate, and scale\nan `Element` however you want.", - "raw": "toForm : Element -\u003e Form", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "Form" - ] - ] - }, - { - "name": "traced", - "comment": "Trace a path with a given line style.", - "raw": "traced : LineStyle -\u003e Path -\u003e Form", - "type": [ - "-\u003e", - [ - "LineStyle" - ], - [ - "-\u003e", - [ - "Path" - ], - [ - "Form" - ] - ] - ] - } - ] -}, -{ - "name": "Graphics.Element", - "document": "Graphical elements that snap together to build complex widgets and layouts.\nEach Element is a rectangle with a known width and height, making them easy to\ncombine and position.\n\n# Images\n@docs image, fittedImage, croppedImage, tiledImage\n\n# Styling\n@docs width, height, size, color, opacity, link, tag\n\n# Inspection\n@docs widthOf, heightOf, sizeOf\n\n# Layout\n@docs flow, up, down, left, right, inward, outward\n\n## Layout Aliases\nThere are also some convenience functions for working\nwith `flow` in specific cases:\n\n@docs layers, above, below, beside\n\n# Positioning\n@docs empty, spacer, container\n\n## Specific Positions\n\nTo create a `Position` you can use any of the built-in positions\nwhich cover nine common positions.\n@docs middle, midTop, midBottom, midLeft, midRight, topLeft, topRight,\n bottomLeft, bottomRight\n\nIf you need more precision, you can create custom positions.\n\n@docs absolute, relative, middleAt, midTopAt, midBottomAt, midLeftAt,\n midRightAt, topLeftAt, topRightAt, bottomLeftAt, bottomRightAt", - "aliases": [ - { - "name": "Element", - "comment": "", - "raw": "type Element = { props : Properties, element : ElementPrim }", - "typeVariables": [], - "type": { - "props": [ - "Properties" - ], - "element": [ - "ElementPrim" - ] - } - }, - { - "name": "Position", - "comment": "", - "raw": "type Position = { horizontal : Three, vertical : Three, x : Pos, y : Pos }", - "typeVariables": [], - "type": { - "y": [ - "Pos" - ], - "horizontal": [ - "Three" - ], - "x": [ - "Pos" - ], - "vertical": [ - "Three" - ] - } - }, - { - "name": "Properties", - "comment": "", - "raw": "type Properties = {\n id : Int,\n width : Int,\n height : Int,\n opacity : Float,\n color : Maybe Color,\n href : JSString,\n tag : JSString,\n hover : ()\n }", - "typeVariables": [], - "type": { - "height": [ - "Int" - ], - "href": [ - "JSString" - ], - "width": [ - "Int" - ], - "id": [ - "Int" - ], - "color": [ - "Maybe", - [ - "Color" - ] - ], - "opacity": [ - "Float" - ], - "hover": [ - "_Tuple0" - ], - "tag": [ - "JSString" - ] - } - } - ], - "datatypes": [ - { - "name": "Direction", - "comment": "", - "raw": "data Direction = DUp | DDown | DLeft | DRight | DIn | DOut", - "typeVariables": [], - "constructors": [ - { - "name": "DUp", - "type": [ - "Direction" - ] - }, - { - "name": "DDown", - "type": [ - "Direction" - ] - }, - { - "name": "DLeft", - "type": [ - "Direction" - ] - }, - { - "name": "DRight", - "type": [ - "Direction" - ] - }, - { - "name": "DIn", - "type": [ - "Direction" - ] - }, - { - "name": "DOut", - "type": [ - "Direction" - ] - } - ] - }, - { - "name": "ElementPrim", - "comment": "", - "raw": "data ElementPrim\n = Image ImageStyle Int Int JSString\n | Container Position Element\n | Flow Direction [Element]\n | Spacer\n | RawHtml\n | Custom", - "typeVariables": [], - "constructors": [ - { - "name": "Image", - "type": [ - "-\u003e", - [ - "ImageStyle" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "JSString" - ], - [ - "ElementPrim" - ] - ] - ] - ] - ] - }, - { - "name": "Container", - "type": [ - "-\u003e", - [ - "Position" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "ElementPrim" - ] - ] - ] - }, - { - "name": "Flow", - "type": [ - "-\u003e", - [ - "Direction" - ], - [ - "-\u003e", - [ - "_List", - [ - "Element" - ] - ], - [ - "ElementPrim" - ] - ] - ] - }, - { - "name": "Spacer", - "type": [ - "ElementPrim" - ] - }, - { - "name": "RawHtml", - "type": [ - "ElementPrim" - ] - }, - { - "name": "Custom", - "type": [ - "ElementPrim" - ] - } - ] - }, - { - "name": "ImageStyle", - "comment": "", - "raw": "data ImageStyle = Plain | Fitted | Cropped (Int,Int) | Tiled", - "typeVariables": [], - "constructors": [ - { - "name": "Plain", - "type": [ - "ImageStyle" - ] - }, - { - "name": "Fitted", - "type": [ - "ImageStyle" - ] - }, - { - "name": "Cropped", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Int" - ], - [ - "Int" - ] - ], - [ - "ImageStyle" - ] - ] - }, - { - "name": "Tiled", - "type": [ - "ImageStyle" - ] - } - ] - }, - { - "name": "Pos", - "comment": "", - "raw": "data Pos = Absolute Int | Relative Float", - "typeVariables": [], - "constructors": [ - { - "name": "Absolute", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "Pos" - ] - ] - }, - { - "name": "Relative", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Pos" - ] - ] - } - ] - }, - { - "name": "Three", - "comment": "", - "raw": "data Three = P | Z | N", - "typeVariables": [], - "constructors": [ - { - "name": "P", - "type": [ - "Three" - ] - }, - { - "name": "Z", - "type": [ - "Three" - ] - }, - { - "name": "N", - "type": [ - "Three" - ] - } - ] - } - ], - "values": [ - { - "name": "above", - "comment": "Stack elements vertically.\nTo put `a` above `b` you would say: ``a `above` b``", - "raw": "above : Element -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "absolute", - "comment": "", - "raw": "absolute : Int -\u003e Pos", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "Pos" - ] - ] - }, - { - "name": "below", - "comment": "Stack elements vertically.\nTo put `a` below `b` you would say: ``a `below` b``", - "raw": "below : Element -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "beside", - "comment": "Put elements beside each other horizontally.\nTo put `a` beside `b` you would say: ``a `beside` b``", - "raw": "beside : Element -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "bottomLeft", - "comment": "", - "raw": "bottomLeft : Position", - "type": [ - "Position" - ] - }, - { - "name": "bottomLeftAt", - "comment": "", - "raw": "bottomLeftAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "bottomRight", - "comment": "", - "raw": "bottomRight : Position", - "type": [ - "Position" - ] - }, - { - "name": "bottomRightAt", - "comment": "", - "raw": "bottomRightAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "color", - "comment": "Create an `Element` with a given background color.", - "raw": "color : Color -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Color" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "container", - "comment": "Put an element in a container. This lets you position the element really\neasily, and there are tons of ways to set the `Position`.\nTo center `element` exactly in a 300-by-300 square you would say:\n\n container 300 300 middle element\n\nBy setting the color of the container, you can create borders.", - "raw": "container : Int -\u003e Int -\u003e Position -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Position" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - ] - ] - }, - { - "name": "croppedImage", - "comment": "Create a cropped image. Take a rectangle out of the picture starting\nat the given top left coordinate. If you have a 140-by-140 image,\nthe following will cut a 100-by-100 square out of the middle of it.\n\n croppedImage (20,20) 100 100 \"yogi.jpg\"", - "raw": "croppedImage : (Int,Int) -\u003e Int -\u003e Int -\u003e String -\u003e Element", - "type": [ - "-\u003e", - [ - "_Tuple2", - [ - "Int" - ], - [ - "Int" - ] - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Element" - ] - ] - ] - ] - ] - }, - { - "name": "down", - "comment": "", - "raw": "down : Direction", - "type": [ - "Direction" - ] - }, - { - "name": "empty", - "comment": "An Element that takes up no space. Good for things that appear conditionally:\n\n flow down [ img1, if showMore then img2 else empty ]", - "raw": "empty : Element", - "type": [ - "Element" - ] - }, - { - "name": "fittedImage", - "comment": "Create a fitted image given a width, height, and image source.\nThis will crop the picture to best fill the given dimensions.", - "raw": "fittedImage : Int -\u003e Int -\u003e String -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Element" - ] - ] - ] - ] - }, - { - "name": "flow", - "comment": "Have a list of elements flow in a particular direction.\nThe `Direction` starts from the first element in the list.\n\n flow right [a,b,c]\n\n +---+---+---+\n | a | b | c |\n +---+---+---+", - "raw": "flow : Direction -\u003e [Element] -\u003e Element", - "type": [ - "-\u003e", - [ - "Direction" - ], - [ - "-\u003e", - [ - "_List", - [ - "Element" - ] - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "height", - "comment": "Create an `Element` with a given height.", - "raw": "height : Int -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "heightOf", - "comment": "Get the height of an Element", - "raw": "heightOf : Element -\u003e Int", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "Int" - ] - ] - }, - { - "name": "image", - "comment": "Create an image given a width, height, and image source.", - "raw": "image : Int -\u003e Int -\u003e String -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Element" - ] - ] - ] - ] - }, - { - "name": "inward", - "comment": "", - "raw": "inward : Direction", - "type": [ - "Direction" - ] - }, - { - "name": "layers", - "comment": "Layer elements on top of each other, starting from the bottom:\n`layers == flow outward`", - "raw": "layers : [Element] -\u003e Element", - "type": [ - "-\u003e", - [ - "_List", - [ - "Element" - ] - ], - [ - "Element" - ] - ] - }, - { - "name": "left", - "comment": "", - "raw": "left : Direction", - "type": [ - "Direction" - ] - }, - { - "name": "link", - "comment": "Create an `Element` that is a hyper-link.", - "raw": "link : String -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "midBottom", - "comment": "", - "raw": "midBottom : Position", - "type": [ - "Position" - ] - }, - { - "name": "midBottomAt", - "comment": "", - "raw": "midBottomAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "midLeft", - "comment": "", - "raw": "midLeft : Position", - "type": [ - "Position" - ] - }, - { - "name": "midLeftAt", - "comment": "", - "raw": "midLeftAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "midRight", - "comment": "", - "raw": "midRight : Position", - "type": [ - "Position" - ] - }, - { - "name": "midRightAt", - "comment": "", - "raw": "midRightAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "midTop", - "comment": "", - "raw": "midTop : Position", - "type": [ - "Position" - ] - }, - { - "name": "midTopAt", - "comment": "", - "raw": "midTopAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "middle", - "comment": "", - "raw": "middle : Position", - "type": [ - "Position" - ] - }, - { - "name": "middleAt", - "comment": "", - "raw": "middleAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "opacity", - "comment": "Create an `Element` with a given opacity. Opacity is a number between 0 and 1\nwhere 0 means totally clear.", - "raw": "opacity : Float -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "outward", - "comment": "", - "raw": "outward : Direction", - "type": [ - "Direction" - ] - }, - { - "name": "relative", - "comment": "", - "raw": "relative : Float -\u003e Pos", - "type": [ - "-\u003e", - [ - "Float" - ], - [ - "Pos" - ] - ] - }, - { - "name": "right", - "comment": "", - "raw": "right : Direction", - "type": [ - "Direction" - ] - }, - { - "name": "size", - "comment": "Create an `Element` with a new width and height.", - "raw": "size : Int -\u003e Int -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - ] - }, - { - "name": "sizeOf", - "comment": "Get the width and height of an Element", - "raw": "sizeOf : Element -\u003e (Int,Int)", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "_Tuple2", - [ - "Int" - ], - [ - "Int" - ] - ] - ] - }, - { - "name": "spacer", - "comment": "Create an empty box. This is useful for getting your spacing right and\nfor making borders.", - "raw": "spacer : Int -\u003e Int -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "tag", - "comment": "Create an `Element` with a tag. This lets you link directly to it.\nThe element `(tag \"all-about-badgers\" thirdParagraph)` can be reached\nwith a link like this: `/facts-about-animals.elm#all-about-badgers`", - "raw": "tag : String -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "tiledImage", - "comment": "", - "raw": "tiledImage : Int -\u003e Int -\u003e String -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "Element" - ] - ] - ] - ] - }, - { - "name": "topLeft", - "comment": "", - "raw": "topLeft : Position", - "type": [ - "Position" - ] - }, - { - "name": "topLeftAt", - "comment": "", - "raw": "topLeftAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "topRight", - "comment": "", - "raw": "topRight : Position", - "type": [ - "Position" - ] - }, - { - "name": "topRightAt", - "comment": "", - "raw": "topRightAt : Pos -\u003e Pos -\u003e Position", - "type": [ - "-\u003e", - [ - "Pos" - ], - [ - "-\u003e", - [ - "Pos" - ], - [ - "Position" - ] - ] - ] - }, - { - "name": "up", - "comment": "", - "raw": "up : Direction", - "type": [ - "Direction" - ] - }, - { - "name": "width", - "comment": "Create an `Element` with a given width.", - "raw": "width : Int -\u003e Element -\u003e Element", - "type": [ - "-\u003e", - [ - "Int" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - }, - { - "name": "widthOf", - "comment": "Get the width of an Element", - "raw": "widthOf : Element -\u003e Int", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "Int" - ] - ] - } - ] -}, -{ - "name": "Graphics.Input", - "document": "This module is for creating standard input widgets such as buttons and\ntext boxes. In general, functions in this library return a signal representing\nevents from the user.\n\nThe simplest inputs are *one-way inputs*, meaning the user can update\nthem, but the programmer cannot. If you need to update an input from\nwithin the program you want the slightly more complex *two-way inputs*.\nThis document will always show the one-way inputs first, *then* the\ntwo-way inputs.\n\n# Buttons\n@docs button, customButton, buttons, customButtons\n\n# Fields\n@docs field, password, email, fields, FieldState, emptyFieldState\n\n# Checkboxes\n@docs checkbox, checkboxes\n\n# Drop Downs\n@docs stringDropDown, dropDown\n\n# Mouse Hover\n@docs hoverable, hoverables", - "aliases": [ - { - "name": "FieldState", - "comment": "Represents the current state of a text field. The `string` represents the\ncharacters filling the text field. The `selectionStart` and `selectionEnd`\nvalues represent what the user has selected with their mouse or keyboard.\nFor example:\n\n { string=\"She sells sea shells\", selectionStart=3, selectionEnd=0 }\n\nThis means the user highlighted the substring `\"She\"` backwards.", - "raw": "type FieldState = { string:String, selectionStart:Int, selectionEnd:Int }", - "typeVariables": [], - "type": { - "selectionEnd": [ - "Int" - ], - "selectionStart": [ - "Int" - ], - "string": [ - "String" - ] - } - } - ], - "datatypes": [], - "values": [ - { - "name": "button", - "comment": "Create a button with a given label. The result is an `Element` and\na signal of units. This signal triggers whenever the button is pressed.", - "raw": "button : String -\u003e (Element, Signal ())", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "_Tuple2", - [ - "Element" - ], - [ - "Signal", - [ - "_Tuple0" - ] - ] - ] - ] - }, - { - "name": "buttons", - "comment": "Create a group of buttons.\n\n * The first argument is the default value of the `events` signal.\n * The `events` signal represents all of the activity in this group\n of buttons.\n * The `button` function creates a button\n with the given name, like “Submit” or “Cancel”.\n The `a` value is sent to `events` whenever the button is pressed.", - "raw": "buttons : a -\u003e { events : Signal a,\n button : a -\u003e String -\u003e Element }", - "type": [ - "-\u003e", - "a", - { - "events": [ - "Signal", - "a" - ], - "button": [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "String" - ], - [ - "Element" - ] - ] - ] - } - ] - }, - { - "name": "checkbox", - "comment": "Create a checkbox with a given start state. Unlike `button`, this\nresult is a *signal* of elements. That is because a checkbox has state\nthat updates based on user input. The boolean signal represents the\ncurrent state of the checkbox.", - "raw": "checkbox : Bool -\u003e (Signal Element, Signal Bool)", - "type": [ - "-\u003e", - [ - "Bool" - ], - [ - "_Tuple2", - [ - "Signal", - [ - "Element" - ] - ], - [ - "Signal", - [ - "Bool" - ] - ] - ] - ] - }, - { - "name": "checkboxes", - "comment": "Create a group of checkboxes.\n\n * The first argument is the default value of the `events` signal.\n * The `events` signal represents all of the activity in this group\n of checkboxes.\n * The `checkbox` function creates a\n checkbox with a given state. The `(Bool -\u003e a)` function is used\n when the checkbox is modified. It takes the new state and turns\n it into a value that can be sent to `events`. For example, this\n lets you add an ID to distinguish between checkboxes.", - "raw": "checkboxes : a -\u003e { events : Signal a,\n checkbox : (Bool -\u003e a) -\u003e Bool -\u003e Element }", - "type": [ - "-\u003e", - "a", - { - "events": [ - "Signal", - "a" - ], - "checkbox": [ - "-\u003e", - [ - "-\u003e", - [ - "Bool" - ], - "a" - ], - [ - "-\u003e", - [ - "Bool" - ], - [ - "Element" - ] - ] - ] - } - ] - }, - { - "name": "customButton", - "comment": "Create a button with custom states for up, hovering, and down\n(given in that order). The result is an `Element` and a signal of\nunits. This signal triggers whenever the button is pressed.", - "raw": "customButton : Element -\u003e Element -\u003e Element -\u003e (Element, Signal ())", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "_Tuple2", - [ - "Element" - ], - [ - "Signal", - [ - "_Tuple0" - ] - ] - ] - ] - ] - ] - }, - { - "name": "customButtons", - "comment": "Create a group of custom buttons.\n\n * The first argument is the default value of the `events` signal.\n * The `events` signal represents all of the activity in this group\n of custom buttons.\n * The `customButton` function creates a button with three different visual\n states, one for up, hovering, and down. The resulting button has dimensions\n large enough to fit all three possible `Elements`.\n The `a` value is sent to `events` whenever the button is pressed.", - "raw": "customButtons : a -\u003e { events : Signal a,\n customButton : a -\u003e Element -\u003e Element -\u003e Element -\u003e Element }", - "type": [ - "-\u003e", - "a", - { - "customButton": [ - "-\u003e", - "a", - [ - "-\u003e", - [ - "Element" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ] - ] - ], - "events": [ - "Signal", - "a" - ] - } - ] - }, - { - "name": "dropDown", - "comment": "Create a drop-down menu. When the user selects a string,\nthe current state of the drop-down is set to the associated\nvalue. This lets you avoid manually mapping the string onto\nfunctions and values.", - "raw": "dropDown : [(String,a)] -\u003e (Signal Element, Signal a)", - "type": [ - "-\u003e", - [ - "_List", - [ - "_Tuple2", - [ - "String" - ], - "a" - ] - ], - [ - "_Tuple2", - [ - "Signal", - [ - "Element" - ] - ], - [ - "Signal", - "a" - ] - ] - ] - }, - { - "name": "email", - "comment": "Same as `field` but it adds an annotation that this field is for email\naddresses. This is helpful for auto-complete and for mobile users who may\nget a custom keyboard with an `@` and `.com` button.", - "raw": "email : String -\u003e (Signal Element, Signal String)", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "_Tuple2", - [ - "Signal", - [ - "Element" - ] - ], - [ - "Signal", - [ - "String" - ] - ] - ] - ] - }, - { - "name": "emptyFieldState", - "comment": "The empty field state:\n\n { string=\"\", selectionStart=0, selectionEnd=0 }", - "raw": "emptyFieldState : FieldState", - "type": [ - "FieldState" - ] - }, - { - "name": "field", - "comment": "Create a field with the given default text. The output is an element\nthat updates to match the user input and a signal of strings representing\nthe content of the field.", - "raw": "field : String -\u003e (Signal Element, Signal String)", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "_Tuple2", - [ - "Signal", - [ - "Element" - ] - ], - [ - "Signal", - [ - "String" - ] - ] - ] - ] - }, - { - "name": "fields", - "comment": "Create a group of text input fields.\n\n * The first argument is the default value of the `events` signal.\n * The `events` signal represents all of the activity in this group\n of text fields.\n * The `field` function creates a\n field with the given ghost text and initial field state.\n When the field is modified, the `(FieldState -\u003e a)` function\n takes the new state and turns\n it into a value that can be sent to `events`. For example, this\n lets you add an ID to distinguish between input fields.", - "raw": "fields : a -\u003e { events : Signal a,\n field : (FieldState -\u003e a) -\u003e String -\u003e FieldState -\u003e Element }", - "type": [ - "-\u003e", - "a", - { - "events": [ - "Signal", - "a" - ], - "field": [ - "-\u003e", - [ - "-\u003e", - [ - "FieldState" - ], - "a" - ], - [ - "-\u003e", - [ - "String" - ], - [ - "-\u003e", - [ - "FieldState" - ], - [ - "Element" - ] - ] - ] - ] - } - ] - }, - { - "name": "hoverable", - "comment": "Detect when the mouse is hovering over a specific `Element`.", - "raw": "hoverable : Element -\u003e (Element, Signal Bool)", - "type": [ - "-\u003e", - [ - "Element" - ], - [ - "_Tuple2", - [ - "Element" - ], - [ - "Signal", - [ - "Bool" - ] - ] - ] - ] - }, - { - "name": "hoverables", - "comment": "Detect when the mouse is hovering over some elements. This\nallows you to create and destroy elements dynamically and still\ndetect hover information.", - "raw": "hoverables : a -\u003e { events : Signal a,\n hoverable : (Bool -\u003e a) -\u003e Element -\u003e Element }", - "type": [ - "-\u003e", - "a", - { - "hoverable": [ - "-\u003e", - [ - "-\u003e", - [ - "Bool" - ], - "a" - ], - [ - "-\u003e", - [ - "Element" - ], - [ - "Element" - ] - ] - ], - "events": [ - "Signal", - "a" - ] - } - ] - }, - { - "name": "password", - "comment": "Same as `field` but the UI element blocks out each characters.", - "raw": "password : String -\u003e (Signal Element, Signal String)", - "type": [ - "-\u003e", - [ - "String" - ], - [ - "_Tuple2", - [ - "Signal", - [ - "Element" - ] - ], - [ - "Signal", - [ - "String" - ] - ] - ] - ] - }, - { - "name": "stringDropDown", - "comment": "Create a drop-down menu for selecting strings. The resulting\nsignal of strings represents the string that is currently selected.", - "raw": "stringDropDown : [String] -\u003e (Signal Element, Signal String)", - "type": [ - "-\u003e", - [ - "_List", - [ - "String" - ] - ], - [ - "_Tuple2", - [ - "Signal", - [ - "Element" - ] - ], - [ - "Signal", - [ - "String" - ] - ] - ] - ] - } - ] -}, -{ - "name": "JavaScript.Experimental", - "document": "A pair of very experimental functions for converting between\nElm records and JavaScript objects. It currently uses a best effort\nconversion that can cause runtime errors. This API should change and\nimprove as we find its key failings.\n\n# Converting between Elm records and JS Objects\n@docs toRecord, fromRecord", - "aliases": [], - "datatypes": [], - "values": [ - { - "name": "fromRecord", - "comment": "Turn arbitrary Elm records into JavaScript objects.\nLists become arrays, nested records are allowed. No ADTs.\n\n -- OK records\n { student=\"Steve\", scores=[83,94,99,72] }\n { errorLevel=10, critical=True }\n\n -- BAD records\n { answer = Nothing }\n { result = Left \"An error occurred\" }", - "raw": "fromRecord : a -\u003e JSObject", - "type": [ - "-\u003e", - "a", - [ - "JSObject" - ] - ] - }, - { - "name": "toRecord", - "comment": "Turn arbitrary JavaScript objects into Elm records.\nArrays are converted into lists, nested objects are allowed.\nNo `null` values or non-homogeneous arrays.\n\n -- OK objects\n { student:\"Steve\", scores:[83,94,99,72] }\n { errorLevel:10, critical:true }\n\n -- BAD objects\n { answer:null }\n { info:[true,42,'what'] }", - "raw": "toRecord : JSObject -\u003e a", - "type": [ - "-\u003e", - [ - "JSObject" - ], - "a" - ] + "document": "Tons of useful functions that get imported by default.\n\nThe following libraries also get imported by default: List, Signal,\nText, Maybe, Time, Graphics.Element, Color, Graphics.Collage.\n\n# Equality\n@docs (==), (/=)\n\n# Comparison\n\nThese functions only work on `comparable` types. This includes numbers,\ncharacters, strings, lists of comparable things, and tuples of comparable\nthings. Note that tuples with 7 or more elements are not comparable; why\nare your tuples so big?\n\n@docs (\u003c), (\u003e), (\u003c=), (\u003e=), max, min, Order, compare\n\n# Booleans\n@docs not, (&&), (||), xor, otherwise\n\n# Mathematics\n@docs (+), (-), (*), (/), (^), div, rem, mod, abs, sqrt, clamp, logBase, e\n\n# Trigonometry\n@docs pi, cos, sin, tan, acos, asin, atan, atan2\n\n# Number Conversions\n@docs round, floor, ceiling, truncate, toFloat\n\n# Angle Conversions\nAll angle conversions result in “standard Elm angles”\nwhich happen to be radians.\n\n@docs degrees, radians, turns\n\n# Polar Coordinates\n@docs toPolar, fromPolar\n\n# Floating Point Checks\n@docs isNaN, isInfinite\n\n# Tuples\n@docs fst, snd\n\n# Higher-Order Helpers\n@docs id, (\u003c|), (|\u003e), (.), always, flip, curry, uncurry", + "aliases": [], + "datatypes": [ + { + "name": "Order", + "comment": "Represents the relative ordering of two things.\nThe relations are less than, equal to, and greater than.", + "raw": "data Order = LT | EQ | GT", + "typeVariables": [], + "constructors": [ + { + "name": "LT", + "type": { + "tag": "adt", + "name": "Order", + "args": [] + } + }, + { + "name": "EQ", + "type": { + "tag": "adt", + "name": "Order", + "args": [] + } + }, + { + "name": "GT", + "type": { + "tag": "adt", + "name": "Order", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "&&", + "comment": "The and operator. True if both inputs are True.\nThis operator short-circuits if the first argument is False.", + "raw": "(&&) : Bool -\u003e Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "right", + "precedence": 3 + }, + { + "name": "*", + "comment": "", + "raw": "(*) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "+", + "comment": "", + "raw": "(+) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 6 + }, + { + "name": "-", + "comment": "", + "raw": "(-) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 6 + }, + { + "name": ".", + "comment": "Function composition: `(f . g == (\\\\x -\u003e f (g x)))`", + "raw": "(.) : (b -\u003e c) -\u003e (a -\u003e b) -\u003e (a -\u003e c)", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + "associativity": "right", + "precedence": 9 + }, + { + "name": "/", + "comment": "Floating point division.", + "raw": "(/) : Float -\u003e Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "/=", + "comment": "", + "raw": "(/=) : a -\u003e a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003c", + "comment": "", + "raw": "(\u003c) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003c=", + "comment": "", + "raw": "(\u003c=) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003c|", + "comment": "Function application `f \u003c| x == f x`. This function is useful for avoiding\nparenthesis. Consider the following code to create a text element:\n\n text (monospace (toText \"code\"))\n\nThis can also be written as:\n\n text . monospace \u003c| toText \"code\"", + "raw": "(\u003c|) : (a -\u003e b) -\u003e a -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + "associativity": "right", + "precedence": 0 + }, + { + "name": "==", + "comment": "", + "raw": "(==) : a -\u003e a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003e", + "comment": "", + "raw": "(\u003e) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "\u003e=", + "comment": "", + "raw": "(\u003e=) : comparable -\u003e comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "non", + "precedence": 4 + }, + { + "name": "^", + "comment": "Exponentiation: `3^2 == 9`", + "raw": "(^) : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + }, + "associativity": "left", + "precedence": 8 + }, + { + "name": "abs", + "comment": "Take the absolute value of a number.", + "raw": "abs : number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "acos", + "comment": "", + "raw": "acos : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "always", + "comment": "Creates a [constant function](http://en.wikipedia.org/wiki/Constant_function),\na function that *always* returns the same value regardless of what input you give.\nIt is defined as:\n\n always a b = a\n\nIt totally ignores the second argument, so `always 42` is a function that always\nreturns 42. When you are dealing with higher-order functions, this comes in\nhandy more often than you might expect. For example, creating a zeroed out list\nof length ten would be:\n\n map (always 0) [0..9]", + "raw": "always : a -\u003e b -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "asin", + "comment": "", + "raw": "asin : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "atan", + "comment": "You probably do not want to use this. It takes `(y/x)` as the\nargument, so there is no way to know whether the negative signs comes from\nthe `y` or `x`. Thus, the resulting angle is always between π/2 and -π/2\n(in quadrants I and IV). You probably want to use `atan2` instead.", + "raw": "atan : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "atan2", + "comment": "This helps you find the angle of a cartesian coordinate.\nYou will almost certainly want to use this instead of `atan`.\nSo `atan2 y x` computes *atan(y/x)* but also keeps track of which\nquadrant the angle should really be in. The result will be between\nπ and -π, giving you the full range of angles.", + "raw": "atan2 : Float -\u003e Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "ceiling", + "comment": "Ceiling function, rounding up.", + "raw": "ceiling : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "clamp", + "comment": "Clamps a number within a given range. With the expression\n`clamp 100 200 x` the results are as follows:\n\n 100 if x \u003c 100\n x if 100 \u003c= x \u003c 200\n 200 if 200 \u003c= x", + "raw": "clamp : number -\u003e number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "compare", + "comment": "Compare any two comparable values. Comparable values include `String`, `Char`,\n`Int`, `Float`, `Time`, or a list or tuple containing comparable values.\nThese are also the only values that work as `Dict` keys or `Set` members.", + "raw": "compare : comparable -\u003e comparable -\u003e Order", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Order", + "args": [] + } + } + }, + { + "name": "cos", + "comment": "", + "raw": "cos : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "curry", + "comment": "Change how arguments are passed to a function.\nThis splits paired arguments into two separate arguments.", + "raw": "curry : ((a,b) -\u003e c) -\u003e a -\u003e b -\u003e c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "degrees", + "comment": "Convert degrees to standard Elm angles (radians).", + "raw": "degrees : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "div", + "comment": "Integer division, remainder is discarded.", + "raw": "div : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "e", + "comment": "An approximation of e.", + "raw": "e : Float", + "type": { + "tag": "adt", + "name": "Float", + "args": [] + } + }, + { + "name": "flip", + "comment": "Flips the order of the first two arguments to a function.", + "raw": "flip : (a -\u003e b -\u003e c) -\u003e (b -\u003e a -\u003e c)", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "floor", + "comment": "Floor function, rounding down.", + "raw": "floor : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "fromPolar", + "comment": "Start with polar coordinates (r,θ)\nand get out cartesian coordinates (x,y).", + "raw": "fromPolar : (Float,Float) -\u003e (Float,Float)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "fst", + "comment": "Given a 2-tuple, returns the first value.", + "raw": "fst : (a,b) -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "id", + "comment": "Given a value, returns exactly the same value.", + "raw": "id : a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "isInfinite", + "comment": "", + "raw": "isInfinite : Float -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isNaN", + "comment": "", + "raw": "isNaN : Float -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "logBase", + "comment": "Calculate the logarithm of a number with a given base: `logBase 10 100 == 2`", + "raw": "logBase : number -\u003e number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "max", + "comment": "Given two comparables, returns the larger one.", + "raw": "max : comparable -\u003e comparable -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "min", + "comment": "Given two comparables, returns the smaller one.", + "raw": "min : comparable -\u003e comparable -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "mod", + "comment": "Perform modular arithmetic: ``7 `mod` 2 == 1``", + "raw": "mod : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "not", + "comment": "Negate a boolean value: `(not True == False)` and `(not False == True)`", + "raw": "not : Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "otherwise", + "comment": "Equal to true. Useful as the last case of a multi-way-if.", + "raw": "otherwise : Bool", + "type": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "name": "pi", + "comment": "An approximation of pi.", + "raw": "pi : Float", + "type": { + "tag": "adt", + "name": "Float", + "args": [] + } + }, + { + "name": "radians", + "comment": "Convert radians to standard Elm angles (radians).", + "raw": "radians : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "rem", + "comment": "Finds the remainder after dividing one number by another: ``4 `rem` 3 == 1``", + "raw": "rem : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + }, + "associativity": "left", + "precedence": 7 + }, + { + "name": "round", + "comment": "Round a number to the nearest integer.", + "raw": "round : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "sin", + "comment": "", + "raw": "sin : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "snd", + "comment": "Given a 2-tuple, returns the second value.", + "raw": "snd : (a,b) -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "sqrt", + "comment": "Take the square root of a number.", + "raw": "sqrt : number -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "tan", + "comment": "", + "raw": "tan : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "toFloat", + "comment": "Convert an integer into a float.", + "raw": "toFloat : Int -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "toPolar", + "comment": "Start with cartesian coordinates (x,y)\nand get out polar coordinates (r,θ).", + "raw": "toPolar : (Float,Float) -\u003e (Float,Float)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "truncate", + "comment": "Truncate a decimal number, rounding towards zero.", + "raw": "truncate : Float -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "turns", + "comment": "Convert turns to standard Elm angles (radians).\nOne turn is equal to 360°.", + "raw": "turns : Float -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "uncurry", + "comment": "Change how arguments are passed to a function.\nThis combines two arguments into a single pair.", + "raw": "uncurry : (a -\u003e b -\u003e c) -\u003e (a,b) -\u003e c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "xor", + "comment": "The exclusive-or operator. True if exactly one input is True.", + "raw": "xor : Bool -\u003e Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "|\u003e", + "comment": "Forward function application `x |\u003e f == f x`. This function is useful\nfor avoiding parenthesis and writing code in a more natural way.\nConsider the following code to create a pentagon:\n\n scale 2 (move (10,10) (filled blue (ngon 5 30)))\n\nThis can also be written as:\n\n ngon 5 30 |\u003e filled blue\n |\u003e move (10,10)\n |\u003e scale 2", + "raw": "(|\u003e) : a -\u003e (a -\u003e b) -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + "associativity": "left", + "precedence": 0 + }, + { + "name": "||", + "comment": "The or operator. True if one or both inputs are True.\nThis operator short-circuits if the first argument is True.", + "raw": "(||) : Bool -\u003e Bool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + "associativity": "right", + "precedence": 2 + } + ] +}, +{ + "name": "Bitwise", + "document": "Library for [bitwise operations](http://en.wikipedia.org/wiki/Bitwise_operation).\n\n# Basic Operations\n\n@docs and, or, xor, complement\n\n# Bit Shifts\n\n@docs shiftLeft, shiftRight, shiftRightLogical", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "and", + "comment": "Bitwise AND", + "raw": "and : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "complement", + "comment": "Flip each bit individually, often called bitwise NOT", + "raw": "complement : Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "or", + "comment": "Bitwise OR", + "raw": "or : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "shiftLeft", + "comment": "Shift bits to the left by a given offset, filling new bits with zeros.\nThis can be used to multiply numbers by powers of two.\n\n 8 `shiftLeft` 1 == 16\n 8 `shiftLeft` 2 == 32", + "raw": "shiftLeft : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "shiftRight", + "comment": "Shift bits to the right by a given offset, filling new bits with\nwhatever is the topmost bit. This can be used to divide numbers by powers of two.\n\n 32 `shiftRight` 1 == 16\n 32 `shiftRight` 2 == 8\n -32 `shiftRight` 1 == -16\n\nThis is called an [arithmatic right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Arithmetic_shift),\noften written (\u003e\u003e), and sometimes called a sign-propagating\nright shift because it fills empty spots with copies of the highest bit.", + "raw": "shiftRight : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "shiftRightLogical", + "comment": "Shift bits to the right by a given offset, filling new bits with\nzeros.\n\n 32 `shiftRightLogical` 1 == 16\n 32 `shiftRightLogical` 2 == 8\n -32 `shiftRightLogical` 1 == 2147483632\n\nThis is called an [logical right\nshift](http://en.wikipedia.org/wiki/Bitwise_operation#Logical_shift), often written (\u003e\u003e\u003e),\nand sometimes called a zero-fill right shift because it fills empty spots\nwith zeros.", + "raw": "shiftRightLogical : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "xor", + "comment": "Bitwise XOR", + "raw": "xor : Int -\u003e Int -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + } + ] +}, +{ + "name": "Char", + "document": "Functions for working with characters. Character literals are enclosed in\n`'a'` pair of single quotes.\n\n# Classification\n@docs isUpper, isLower, isDigit, isOctDigit, isHexDigit\n\n# Conversion\n@docs toUpper, toLower, toLocaleUpper, toLocaleLower, toCode, fromCode", + "aliases": [ + { + "name": "KeyCode", + "comment": "", + "raw": "type KeyCode = Int", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + ], + "datatypes": [], + "values": [ + { + "name": "fromCode", + "comment": "Convert from unicode.", + "raw": "fromCode : KeyCode -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "isDigit", + "comment": "True for ASCII digits `[0-9]`.", + "raw": "isDigit : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isHexDigit", + "comment": "True for ASCII hexadecimal digits `[0-9a-fA-F]`.", + "raw": "isHexDigit : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isLower", + "comment": "True for lower case letters.", + "raw": "isLower : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isOctDigit", + "comment": "True for ASCII octal digits `[0-7]`.", + "raw": "isOctDigit : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isUpper", + "comment": "True for upper case letters.", + "raw": "isUpper : Char -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "toCode", + "comment": "Convert to unicode. Used with the [`Keyboard`](/docs/Keyboard.elm)\nlibrary, which expects the input to be uppercase.", + "raw": "toCode : Char -\u003e KeyCode", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + } + }, + { + "name": "toLocaleLower", + "comment": "Convert to lower case, according to any locale-specific case mappings.", + "raw": "toLocaleLower : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "toLocaleUpper", + "comment": "Convert to upper case, according to any locale-specific case mappings.", + "raw": "toLocaleUpper : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "toLower", + "comment": "Convert to lower case.", + "raw": "toLower : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + }, + { + "name": "toUpper", + "comment": "Convert to upper case.", + "raw": "toUpper : Char -\u003e Char", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + } + } + ] +}, +{ + "name": "Color", + "document": "Library for working with colors. Includes\n[RGB](https://en.wikipedia.org/wiki/RGB_color_model) and\n[HSV](http://en.wikipedia.org/wiki/HSL_and_HSV) creation, gradients, and\nbuilt-in names.\n\n# Creation\n@docs rgb, rgba, hsv, hsva, greyscale, grayscale\n\n# From Other Colors\n@docs complement\n\n# Gradients\n@docs linear, radial\n\n# Built-in Colors\nThese colors come from the [Tango\npalette](http://tango.freedesktop.org/Tango_Icon_Theme_Guidelines)\nwhich provides aesthetically reasonable defaults for colors. Each color also\ncomes with a light and dark version.\n\n### Standard\n@docs red, orange, yellow, green, blue, purple, brown\n\n### Light\n@docs lightRed, lightOrange, lightYellow, lightGreen, lightBlue, lightPurple,\n lightBrown\n\n### Dark\n@docs darkRed, darkOrange, darkYellow, darkGreen, darkBlue, darkPurple,\n darkBrown\n\n### Eight Shades of Grey\nThese colors are a compatible series of shades of grey, fitting nicely\nwith the Tango palette.\n@docs white, lightGrey, grey, darkGrey, lightCharcoal, charcoal, darkCharcoal, black\n\nThese are identical to the *grey* versions. It seems the spelling is regional, but\nthat has never helped me remember which one I should be writing.\n@docs lightGray, gray, darkGray", + "aliases": [], + "datatypes": [ + { + "name": "Color", + "comment": "", + "raw": "data Color = Color Int Int Int Float", + "typeVariables": [], + "constructors": [ + { + "name": "Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + } + ] + }, + { + "name": "Gradient", + "comment": "", + "raw": "data Gradient\n = Linear (Float,Float) (Float,Float) [(Float,Color)]\n | Radial (Float,Float) Float (Float,Float) Float [(Float,Color)]", + "typeVariables": [], + "constructors": [ + { + "name": "Linear", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + }, + { + "name": "Radial", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + } + ] + } + ], + "values": [ + { + "name": "black", + "comment": "", + "raw": "black : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "blue", + "comment": "", + "raw": "blue : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "brown", + "comment": "", + "raw": "brown : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "charcoal", + "comment": "", + "raw": "charcoal : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "complement", + "comment": "Produce a “complementary color”.\nThe two colors will accent each other.", + "raw": "complement : Color -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "darkBlue", + "comment": "", + "raw": "darkBlue : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkBrown", + "comment": "", + "raw": "darkBrown : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkCharcoal", + "comment": "", + "raw": "darkCharcoal : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkGray", + "comment": "", + "raw": "darkGray : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkGreen", + "comment": "", + "raw": "darkGreen : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkGrey", + "comment": "", + "raw": "darkGrey : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkOrange", + "comment": "", + "raw": "darkOrange : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkPurple", + "comment": "", + "raw": "darkPurple : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkRed", + "comment": "", + "raw": "darkRed : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "darkYellow", + "comment": "", + "raw": "darkYellow : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "gray", + "comment": "", + "raw": "gray : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "grayscale", + "comment": "Produce a gray based on the input. 0 is white, 1 is black.", + "raw": "grayscale : Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "green", + "comment": "", + "raw": "green : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "grey", + "comment": "", + "raw": "grey : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "greyscale", + "comment": "", + "raw": "greyscale : Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "hsv", + "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV). This is very\nconvenient for creating colors that cycle and shift. Hue is an angle and should\nbe given in standard Elm angles (radians).", + "raw": "hsv : Float -\u003e Float -\u003e Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "hsva", + "comment": "Create [HSV colors](http://en.wikipedia.org/wiki/HSL_and_HSV)\nwith an alpha component for transparency.", + "raw": "hsva : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "lightBlue", + "comment": "", + "raw": "lightBlue : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightBrown", + "comment": "", + "raw": "lightBrown : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightCharcoal", + "comment": "", + "raw": "lightCharcoal : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightGray", + "comment": "", + "raw": "lightGray : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightGreen", + "comment": "", + "raw": "lightGreen : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightGrey", + "comment": "", + "raw": "lightGrey : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightOrange", + "comment": "", + "raw": "lightOrange : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightPurple", + "comment": "", + "raw": "lightPurple : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightRed", + "comment": "", + "raw": "lightRed : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "lightYellow", + "comment": "", + "raw": "lightYellow : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "linear", + "comment": "Create a linear gradient. Takes a start and end point and then a series of\n“color stops” that indicate how to interpolate between the start and\nend points. See [this example](/edit/examples/Elements/LinearGradient.elm) for a\nmore visual explanation.", + "raw": "linear : (number, number) -\u003e (number, number) -\u003e [(Float,Color)] -\u003e Gradient", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + }, + { + "name": "orange", + "comment": "", + "raw": "orange : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "purple", + "comment": "", + "raw": "purple : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "radial", + "comment": "Create a radial gradient. First takes a start point and inner radius. Then\ntakes an end point and outer radius. It then takes a series of “color\nstops” that indicate how to interpolate between the inner and outer\ncircles. See [this example](/edit/examples/Elements/RadialGradient.elm) for a\nmore visual explanation.", + "raw": "radial : (number,number) -\u003e number -\u003e (number,number) -\u003e number -\u003e [(Float,Color)] -\u003e Gradient", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "var", + "name": "number" + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "var", + "name": "number" + } + ] + }, + { + "tag": "var", + "name": "number" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Gradient", + "args": [] + } + } + }, + { + "name": "red", + "comment": "", + "raw": "red : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "rgb", + "comment": "Create RGB colors from numbers between 0 and 255 inclusive.", + "raw": "rgb : Int -\u003e Int -\u003e Int -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "rgba", + "comment": "Create RGB colors with an alpha component for transparency.\nThe alpha component is specified with numbers between 0 and 1.", + "raw": "rgba : Int -\u003e Int -\u003e Int -\u003e Float -\u003e Color", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + }, + { + "name": "white", + "comment": "", + "raw": "white : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + }, + { + "name": "yellow", + "comment": "", + "raw": "yellow : Color", + "type": { + "tag": "adt", + "name": "Color", + "args": [] + } + } + ] +}, +{ + "name": "Date", + "document": "Library for working with dates. Email the mailing list if you encounter\nissues with internationalization or locale formatting.\n\n# Conversions\n@docs read, toTime, fromTime\n\n# Extractions\n@docs year, month, Month, day, dayOfWeek, Day, hour, minute, second", + "aliases": [], + "datatypes": [ + { + "name": "Date", + "comment": "", + "raw": "data Date = Date", + "typeVariables": [], + "constructors": [ + { + "name": "Date", + "type": { + "tag": "adt", + "name": "Date", + "args": [] + } + } + ] + }, + { + "name": "Day", + "comment": "Represents the days of the week.", + "raw": "data Day = Mon | Tue | Wed | Thu | Fri | Sat | Sun", + "typeVariables": [], + "constructors": [ + { + "name": "Mon", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Tue", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Wed", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Thu", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Fri", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Sat", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + }, + { + "name": "Sun", + "type": { + "tag": "adt", + "name": "Day", + "args": [] + } + } + ] + }, + { + "name": "Month", + "comment": "Represents the month of the year.", + "raw": "data Month = Jan | Feb | Mar | Apr\n | May | Jun | Jul | Aug\n | Sep | Oct | Nov | Dec", + "typeVariables": [], + "constructors": [ + { + "name": "Jan", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Feb", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Mar", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Apr", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "May", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Jun", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Jul", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Aug", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Sep", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Oct", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Nov", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + }, + { + "name": "Dec", + "type": { + "tag": "adt", + "name": "Month", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "day", + "comment": "Extract the day of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `23`.", + "raw": "day : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "dayOfWeek", + "comment": "Extract the day of the week for a given date. Given the date 23 June\n1990 at 11:45AM this returns the Day `Thu` as defined below.", + "raw": "dayOfWeek : Date -\u003e Day", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Day", + "args": [] + } + } + }, + { + "name": "fromTime", + "comment": "Take a UNIX time and convert it to a `Date`", + "raw": "fromTime : Time -\u003e Date", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Date", + "args": [] + } + } + }, + { + "name": "hour", + "comment": "Extract the hour of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `11`.", + "raw": "hour : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "minute", + "comment": "Extract the minute of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `45`.", + "raw": "minute : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "month", + "comment": "Extract the month of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the Month `Jun` as defined below.", + "raw": "month : Date -\u003e Month", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Month", + "args": [] + } + } + }, + { + "name": "read", + "comment": "Attempt to read a date from a string.", + "raw": "read : String -\u003e Maybe Date", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ] + } + } + }, + { + "name": "second", + "comment": "Extract the second of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `0`.", + "raw": "second : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "toTime", + "comment": "Convert a date into a time since midnight (UTC) of 1 January 1990 (i.e.\n[UNIX time](http://en.wikipedia.org/wiki/Unix_time)). Given the date 23 June\n1990 at 11:45AM this returns the corresponding time.", + "raw": "toTime : Date -\u003e Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Time", + "args": [] + } + } + }, + { + "name": "year", + "comment": "Extract the year of a given date. Given the date 23 June 1990 at 11:45AM\nthis returns the integer `1990`.", + "raw": "year : Date -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Date", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + } + ] +}, +{ + "name": "Debug", + "document": "This library is for investigating bugs or performance problems. It should\n*not* be used in production code.", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "log", + "comment": "Log a tagged value on the developer console, and then return the value.\n\n 1 + log \"number\" 1 -- equals 2, logs \"number: 1\"\n length (log \"start\" []) -- equals 0, logs \"start: []\"\n\nNotice that `log` is not a pure function! It should *only* be used for\ninvestigating bugs or performance problems.", + "raw": "log : String -\u003e a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + } + ] +}, +{ + "name": "Dict", + "document": "A dictionary mapping unique keys to values. The keys can be any comparable\ntype. This includes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or\nlists of comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, update, remove\n\n# Query\n@docs member, lookup, findWithDefault\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs keys, values, toList, fromList\n\n# Transform\n@docs map, foldl, foldr", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "diff", + "comment": "Keep a key-value pair when its key does not appear in the second dictionary.\nPreference is given to the first dictionary.", + "raw": "diff : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "empty", + "comment": "Create an empty dictionary.", + "raw": "empty : Dict comparable v", + "type": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + }, + { + "name": "findWithDefault", + "comment": "Find the value associated with a key. If the key is not found,\nreturn the default value.", + "raw": "findWithDefault : v -\u003e comparable -\u003e Dict comparable v -\u003e v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "v" + }, + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "var", + "name": "v" + } + } + }, + { + "name": "foldl", + "comment": "Fold over the key-value pairs in a dictionary, in order from lowest\nkey to highest key.", + "raw": "foldl : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr", + "comment": "Fold over the key-value pairs in a dictionary, in order from highest\nkey to lowest key.", + "raw": "foldr : (comparable -\u003e v -\u003e b -\u003e b) -\u003e b -\u003e Dict comparable v -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "fromList", + "comment": "Convert an association list into a dictionary.", + "raw": "fromList : [(comparable,v)] -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "insert", + "comment": "Insert a key-value pair into a dictionary. Replaces value when there is\na collision.", + "raw": "insert : comparable -\u003e v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "intersect", + "comment": "Keep a key-value pair when its key appears in the second dictionary.\nPreference is given to values in the first dictionary.", + "raw": "intersect : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "keys", + "comment": "Get all of the keys in a dictionary.", + "raw": "keys : Dict comparable v -\u003e [comparable]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "lookup", + "comment": "Lookup the value associated with a key.", + "raw": "lookup : comparable -\u003e Dict comparable v -\u003e Maybe v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "map", + "comment": "Apply a function to all values in a dictionary.", + "raw": "map : (a -\u003e b) -\u003e Dict comparable a -\u003e Dict comparable b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "member", + "comment": "Determine if a key is in a dictionary.", + "raw": "member : comparable -\u003e Dict comparable v -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "remove", + "comment": "Remove a key-value pair from a dictionary. If the key is not found,\nno changes are made.", + "raw": "remove : comparable -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "singleton", + "comment": "Create a dictionary with one key-value pair.", + "raw": "singleton : comparable -\u003e v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "toList", + "comment": "Convert a dictionary into an association list of key-value pairs.", + "raw": "toList : Dict comparable v -\u003e [(comparable,v)]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ] + } + } + }, + { + "name": "union", + "comment": "Combine two dictionaries. If there is a collision, preference is given\nto the first dictionary.", + "raw": "union : Dict comparable v -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "update", + "comment": "Update the value of a dictionary for a specific key with a given function.", + "raw": "update : comparable -\u003e (Maybe v -\u003e Maybe v) -\u003e Dict comparable v -\u003e Dict comparable v", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + }, + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + } + }, + { + "name": "values", + "comment": "Get all of the values in a dictionary.", + "raw": "values : Dict comparable v -\u003e [v]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "v" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "v" + } + ] + } + } + } + ] +}, +{ + "name": "Either", + "document": "Represents any data that can take two different types.\n\n# Type and Constructors\n@docs Either\n\n# Taking Eithers apart\n@docs either, isLeft, isRight\n\n# Eithers and Lists\n@docs lefts, rights, partition", + "aliases": [], + "datatypes": [ + { + "name": "Either", + "comment": "Represents any data may take two forms. For example, a user ID may be\neither an `Int` or a `String`.\n\nThis can also be used for error handling `(Either String a)` where\nerror messages are stored on the left, and the correct values\n(“right” values) are stored on the right.", + "raw": "data Either a b = Left a | Right b", + "typeVariables": [ + "a", + "b" + ], + "constructors": [ + { + "name": "Left", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "Right", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + } + } + ] + } + ], + "values": [ + { + "name": "either", + "comment": "Apply the first function to a `Left` and the second function to a `Right`.\nThis allows the extraction of a value from an `Either`.\n\n either (\\n -\u003e n + 1) sqrt (Left 4) == 5\n either (\\n -\u003e n + 1) sqrt (Right 4) == 2\n\n map : (a -\u003e b) -\u003e Either err a -\u003e Either err b\n map f e = either Left (\\x -\u003e Right (f x)) e", + "raw": "either : (a -\u003e c) -\u003e (b -\u003e c) -\u003e Either a b -\u003e c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "var", + "name": "c" + } + } + }, + { + "name": "isLeft", + "comment": "True if the value is a `Left`.\n\n isLeft (Left \"Cat\") == True\n isLeft (Right 1123) == False", + "raw": "isLeft : Either a b -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isRight", + "comment": "True if the value is a `Right`.\n\n isRight (Left \"Cat\") == False\n isRight (Right 1123) == True", + "raw": "isRight : Either a b -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "lefts", + "comment": "Keep only the values held in `Left` values.\n\n lefts [Left 3, Right 'a', Left 5, Right \"eight\"] == [3,5]", + "raw": "lefts : [Either a b] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "partition", + "comment": "Split into two lists, lefts on the left and rights on the right. So we\nhave the equivalence: `(partition es == (lefts es, rights es))`\n\n partition [Left 3, Right 'a', Left 5, Right 'b'] == ([3,5],['a','b'])", + "raw": "partition : [Either a b] -\u003e ([a],[b])", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + } + }, + { + "name": "rights", + "comment": "Keep only the values held in `Right` values.\n\n rights [Left 3, Right 'a', Left 5, Right 'b'] == ['a','b']", + "raw": "rights : [Either a b] -\u003e [b]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + } + ] +}, +{ + "name": "Http", + "document": "A library for asynchronous HTTP requests. See the\n[WebSocket](http://elm-lang.org/docs/WebSocket.elm) library if\nyou have very strict latency requirements.\n\n# Sending Requests\n@docs send, sendGet\n\n# Creating Requests\n@docs get, post, request\n\n# Responses\n@docs Response", + "aliases": [ + { + "name": "Request", + "comment": "", + "raw": "type Request a = {\n verb : String,\n url : String,\n body : a,\n headers : [(String,String)]\n }", + "typeVariables": [ + "a" + ], + "type": { + "tag": "record", + "fields": [ + [ + "verb", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "url", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "body", + { + "tag": "var", + "name": "a" + } + ], + [ + "headers", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Response", + "comment": "The datatype for responses. Success contains only the returned message.\nFailures contain both an error code and an error message.", + "raw": "data Response a = Success a | Waiting | Failure Int String", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Success", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "Waiting", + "type": { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + }, + { + "name": "Failure", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] + } + ], + "values": [ + { + "name": "get", + "comment": "Create a GET request to the given url.", + "raw": "get : String -\u003e Request String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "post", + "comment": "Create a POST request to the given url, carrying the given data.", + "raw": "post : String -\u003e String -\u003e Request String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "request", + "comment": "Create a customized request. Arguments are request type (get, post, put,\ndelete, etc.), target url, data, and a list of additional headers.", + "raw": "request : String -\u003e String -\u003e String -\u003e [(String,String)] -\u003e Request String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "send", + "comment": "Performs an HTTP request with the given requests. Produces a signal\nthat carries the responses.", + "raw": "send : Signal (Request a) -\u003e Signal (Response String)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Request", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + } + }, + { + "name": "sendGet", + "comment": "Performs an HTTP GET request with the given urls. Produces a signal\nthat carries the responses.", + "raw": "sendGet : Signal String -\u003e Signal (Response String)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Response", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + } + } + ] +}, +{ + "name": "JavaScript", + "document": "This library does basic conversions between Elm and JS values. This allows\nthe internal data structures of Elm to change and improve with no impact on JS\nintegration.\n\nIt is intended to be imported as `import JavaScript as JS`. That way functions\nlike `JS.toInt` convert JavaScript *to* Elm integers and functions like\n`JS.fromString` gets JavaScript *from* Elm strings.\n\n# Javascript to Elm\n@docs toString, toInt, toFloat, toBool, toList\n\n# JavaScript from Elm\n@docs fromString, fromInt, fromFloat, fromBool, fromList", + "aliases": [], + "datatypes": [ + { + "name": "JSArray", + "comment": "", + "raw": "data JSArray a = JSArray a", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "JSArray", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "JSArray", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] + }, + { + "name": "JSBool", + "comment": "", + "raw": "data JSBool = JSBool", + "typeVariables": [], + "constructors": [ + { + "name": "JSBool", + "type": { + "tag": "adt", + "name": "JSBool", + "args": [] + } + } + ] + }, + { + "name": "JSDomNode", + "comment": "", + "raw": "data JSDomNode = JSDomNode", + "typeVariables": [], + "constructors": [ + { + "name": "JSDomNode", + "type": { + "tag": "adt", + "name": "JSDomNode", + "args": [] + } + } + ] + }, + { + "name": "JSNumber", + "comment": "", + "raw": "data JSNumber = JSNumber", + "typeVariables": [], + "constructors": [ + { + "name": "JSNumber", + "type": { + "tag": "adt", + "name": "JSNumber", + "args": [] + } + } + ] + }, + { + "name": "JSObject", + "comment": "", + "raw": "data JSObject = JSObject", + "typeVariables": [], + "constructors": [ + { + "name": "JSObject", + "type": { + "tag": "adt", + "name": "JSObject", + "args": [] + } + } + ] + }, + { + "name": "JSString", + "comment": "", + "raw": "data JSString = JSString", + "typeVariables": [], + "constructors": [ + { + "name": "JSString", + "type": { + "tag": "adt", + "name": "JSString", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "fromBool", + "comment": "", + "raw": "fromBool : Bool -\u003e JSBool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JSBool", + "args": [] + } + } + }, + { + "name": "fromFloat", + "comment": "", + "raw": "fromFloat : Float -\u003e JSNumber", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JSNumber", + "args": [] + } + } + }, + { + "name": "fromInt", + "comment": "", + "raw": "fromInt : Int -\u003e JSNumber", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JSNumber", + "args": [] + } + } + }, + { + "name": "fromList", + "comment": "Produces a uniform JavaScript array with all members of the same type.", + "raw": "fromList : [a] -\u003e JSArray a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "JSArray", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "fromString", + "comment": "", + "raw": "fromString : String -\u003e JSString", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JSString", + "args": [] + } + } + }, + { + "name": "toBool", + "comment": "", + "raw": "toBool : JSBool -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSBool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "toFloat", + "comment": "", + "raw": "toFloat : JSNumber -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSNumber", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "toInt", + "comment": "", + "raw": "toInt : JSNumber -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSNumber", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "toList", + "comment": "Requires that the input array be uniform (all members have the same type)", + "raw": "toList : JSArray a -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSArray", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "toString", + "comment": "", + "raw": "toString : JSString -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSString", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + } + ] +}, +{ + "name": "Json", + "document": "Library for working with [JSON](https://en.wikipedia.org/wiki/JSON) values.\n\n# Json Values\n@docs JsonValue\n\n# Strings\n@docs fromString, toString\n\n# JS Strings\n@docs fromJSString, toJSString\n\n# JS Objects\n@docs fromJSObject, toJSObject", + "aliases": [], + "datatypes": [ + { + "name": "JsonValue", + "comment": "This datatype can represent all valid values that can be held in a JSON\nobject. In Elm, a proper JSON object is represented as a (Dict String JsonValue)\nwhich is a mapping from strings to Json Values.", + "raw": "data JsonValue\n = String String\n | Number Float\n | Boolean Bool\n | Null\n | Array [JsonValue]\n | Object (Dict.Dict String JsonValue)", + "typeVariables": [], + "constructors": [ + { + "name": "String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + } + }, + { + "name": "Number", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + } + }, + { + "name": "Boolean", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + } + }, + { + "name": "Null", + "type": { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + }, + { + "name": "Array", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + } + }, + { + "name": "Object", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Dict.Dict", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + } + } + ] + } + ], + "values": [ + { + "name": "fromJSObject", + "comment": "Convert a JS object into a `JsonValue`.", + "raw": "fromJSObject : JSObject -\u003e JsonValue", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSObject", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + } + }, + { + "name": "fromJSString", + "comment": "Parse a JavaScript string representation of a proper JSON object into\nits Elm representation.", + "raw": "fromJSString : JSString -\u003e Maybe JsonValue", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSString", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + ] + } + } + }, + { + "name": "fromString", + "comment": "Parse a string representation of a proper JSON object into\nits Elm representation.", + "raw": "fromString : String -\u003e Maybe JsonValue", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + ] + } + } + }, + { + "name": "toJSObject", + "comment": "Convert a `JsonValue` into a `JSObject`. Paired with the\n[`JavaScript.Experimental` library](/docs/JavaScript/Experimental.elm),\nThis lets you convert strings into Elm records:\n\n import JavaScript.Experimental as JS\n\n stringToRecord str =\n case fromString str of\n Just jsonValue -\u003e Just (JS.toRecord (toJSObject jsonValue))\n Nothing -\u003e Nothing", + "raw": "toJSObject : JsonValue -\u003e JSObject", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JSObject", + "args": [] + } + } + }, + { + "name": "toJSString", + "comment": "Convert a proper JSON object into a JavaScript string.\nNote that the type JSString seen here is not the same as the type constructor\nJsonString used elsewhere in this module.", + "raw": "toJSString : String -\u003e JsonValue -\u003e JSString", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "JSString", + "args": [] + } + } + }, + { + "name": "toString", + "comment": "Convert a `JsonValue` into a prettified string.\nThe first argument is a separator token (e.g. \\\" \\\", \\\"\\\\n\\\", etc.) that will\nbe used for indentation in the prettified string version of the JSON.", + "raw": "toString : String -\u003e JsonValue -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "JsonValue", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + } + ] +}, +{ + "name": "Keyboard", + "document": "Library for working with keyboard input.\n\n# Representing Keys\n@docs KeyCode\n\n# Directions\n@docs arrows, wasd, directions\n\n# Specific Keys\n@docs shift, enter, space, ctrl\n\n# General Keypresses\n@docs isDown, keysDown, lastPressed", + "aliases": [ + { + "name": "KeyCode", + "comment": "Type alias to make it clearer what integers are supposed to represent\nin this library. Use [`Char.toCode`](docs/Char.elm#toCode) and\n[`Char.fromCode`](/docs/Char.elm#fromCode) to convert key codes to characters.\nUse the uppercase character with `toCode`.", + "raw": "type KeyCode = Int", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + ], + "datatypes": [], + "values": [ + { + "name": "arrows", + "comment": "A signal of records indicating which arrow keys are pressed.\n\n`{ x = 0, y = 0 }` when pressing no arrows.\u003cbr\u003e\n`{ x =-1, y = 0 }` when pressing the left arrow.\u003cbr\u003e\n`{ x = 1, y = 1 }` when pressing the up and right arrows.\u003cbr\u003e\n`{ x = 0, y =-1 }` when pressing the down, left, and right arrows.", + "raw": "arrows : Signal { x:Int, y:Int }", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + }, + { + "name": "ctrl", + "comment": "Whether the control key is pressed.", + "raw": "ctrl : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "directions", + "comment": "Custom key directions to support different locales. The order is up, down,\nleft, right.", + "raw": "directions : KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e KeyCode -\u003e Signal { x:Int, y:Int }", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + }, + { + "tag": "adt", + "name": "KeyCode", + "args": [] + }, + { + "tag": "adt", + "name": "KeyCode", + "args": [] + }, + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + } + }, + { + "name": "enter", + "comment": "Whether the enter key is pressed.", + "raw": "enter : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "isDown", + "comment": "Whether an arbitrary key is pressed.", + "raw": "isDown : KeyCode -\u003e Signal Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + } + }, + { + "name": "keysDown", + "comment": "List of keys that are currently down.", + "raw": "keysDown : Signal [KeyCode]", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ] + } + ] + } + }, + { + "name": "lastPressed", + "comment": "The latest key that has been pressed.", + "raw": "lastPressed : Signal KeyCode", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "KeyCode", + "args": [] + } + ] + } + }, + { + "name": "shift", + "comment": "Whether the shift key is pressed.", + "raw": "shift : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "space", + "comment": "Whether the space key is pressed.", + "raw": "space : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "wasd", + "comment": "Just like the arrows signal, but this uses keys w, a, s, and d,\nwhich are common controls for many computer games.", + "raw": "wasd : Signal { x:Int, y:Int }", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + } + ] +}, +{ + "name": "List", + "document": "A library for manipulating lists of values. Every value in a\nlist must have the same type.\n\n# Basics\n@docs (::), (++), isEmpty, length, reverse, map\n\n# Sub-lists\n@docs head, tail, last, filter, take, drop\n\n# Putting Lists Together\n@docs concat, concatMap, join, intersperse, zip, zipWith, repeat\n\n# Taking Lists Apart\n@docs partition, unzip\n\n# Folds\n@docs foldr, foldl, foldr1, foldl1, scanl, scanl1\n\n# Special Folds\n@docs sum, product, maximum, minimum, all, any, and, or\n\n# Sorting\n@docs sort, sortBy, sortWith", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "++", + "comment": "Puts two appendable things together:\n\n [1,1] ++ [2,3] == [1,1,2,3]\n \"abc\" ++ \"123\" == \"abc123\"", + "raw": "(++) : appendable -\u003e appendable -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "appendable" + }, + { + "tag": "var", + "name": "appendable" + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + }, + "associativity": "right", + "precedence": 5 + }, + { + "name": "::", + "comment": "Add an element to the front of a list `(1 :: [2,3] == [1,2,3])`", + "raw": "(::) : a -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + }, + "associativity": "right", + "precedence": 5 + }, + { + "name": "all", + "comment": "Check to see if all elements satisfy the predicate.", + "raw": "all : (a -\u003e Bool) -\u003e [a] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "and", + "comment": "Check to see if all elements are True.", + "raw": "and : [Bool] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "any", + "comment": "Check to see if any elements satisfy the predicate.", + "raw": "any : (a -\u003e Bool) -\u003e [a] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "concat", + "comment": "Concatenate a list of appendable things:\n\n concat [[1,2],[3],[4,5]] == [1,2,3,4,5]\n concat [\"tree\",\"house\"] == \"treehouse\"", + "raw": "concat : [appendable] -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "appendable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + } + }, + { + "name": "concatMap", + "comment": "Map a given function onto a list and flatten the resulting lists.\n\n concatMap f xs == concat (map f xs)", + "raw": "concatMap : (a -\u003e appendable) -\u003e [a] -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + } + }, + { + "name": "drop", + "comment": "Drop the first n members of a list: `(drop 2 [1,2,3,4] == [3,4])`", + "raw": "drop : Int -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "filter", + "comment": "Keep only elements that satisfy the predicate:\n`(filter isEven [1..6] == [2,4,6])`", + "raw": "filter : (a -\u003e Bool) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "foldl", + "comment": "Reduce a list from the left: `(foldl (::) [] [1,2,3] == [3,2,1])`", + "raw": "foldl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldl1", + "comment": "Reduce a list from the left without a base case. List must be non-empty.", + "raw": "foldl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "foldr", + "comment": "Reduce a list from the right: `(foldr (+) 0 [1,2,3] == 6)`", + "raw": "foldr : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr1", + "comment": "Reduce a list from the right without a base case. List must be non-empty.", + "raw": "foldr1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "head", + "comment": "Extract the first element of a list. List must be non-empty.\n`(head [1,2,3] == 1)`", + "raw": "head : [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "intersperse", + "comment": "Places the given value between all members of the given list.\n\n intersperse \"on\" [\"turtles\",\"turtles\",\"turtles\"] == [\"turtles\",\"on\",\"turtles\",\"on\",\"turtles\"]", + "raw": "intersperse : a -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "isEmpty", + "comment": "Check if a list is empty `(isEmpty [] == True)`", + "raw": "isEmpty : [a] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "join", + "comment": "Places the given value between all of the lists in the second\nargument and concatenates the result.\n\n join \"a\" [\"H\",\"w\",\"ii\",\"n\"] == \"Hawaiian\"", + "raw": "join : appendable -\u003e [appendable] -\u003e appendable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "appendable" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "appendable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "appendable" + } + } + }, + { + "name": "last", + "comment": "Extract the last element of a list. List must be non-empty.\n`(last [1,2,3] == 3)`", + "raw": "last : [a] -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + }, + { + "name": "length", + "comment": "Determine the length of a list: `(length [1,2,3] == 3)`", + "raw": "length : [a] -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "map", + "comment": "Apply a function to every element of a list: `(map sqrt [1,4,9] == [1,2,3])`", + "raw": "map : (a -\u003e b) -\u003e [a] -\u003e [b]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "maximum", + "comment": "Find the maximum element in a non-empty list: `maximum [1,4,2] == 4`", + "raw": "maximum : [comparable] -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "minimum", + "comment": "Find the minimum element in a non-empty list: `minimum [3,2,1] == 1`", + "raw": "minimum : [comparable] -\u003e comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + } + }, + { + "name": "or", + "comment": "Check to see if any elements are True.", + "raw": "or : [Bool] -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "partition", + "comment": "Split a list based on the predicate.", + "raw": "partition : (a -\u003e Bool) -\u003e [a] -\u003e ([a],[a])", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + } + }, + { + "name": "product", + "comment": "Get the product of the list elements. `(product [1..4] == 24)`", + "raw": "product : [number] -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "number" + } + ] + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "repeat", + "comment": "Creates a list with *n* copies of a value:\n`(repeat 3 (0,0) == [(0,0),(0,0),(0,0)]`", + "raw": "repeat : Int -\u003e a -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "reverse", + "comment": "Reverse a list. `(reverse [1..4] == [4,3,2,1])`", + "raw": "reverse : [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "scanl", + "comment": "Reduce a list from the left, building up all of the intermediate results into a list.\n\n scanl (+) 0 [1,2,3,4] == [0,1,3,6,10]", + "raw": "scanl : (a -\u003e b -\u003e b) -\u003e b -\u003e [a] -\u003e [b]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "scanl1", + "comment": "Same as scanl but it doesn't require a base case. List must be non-empty.\n\n scanl1 (+) [1,2,3,4] == [1,3,6,10]", + "raw": "scanl1 : (a -\u003e a -\u003e a) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sort", + "comment": "Sort values from lowest to highest: `sort [3,1,5] == [1,3,5]`", + "raw": "sort : [comparable] -\u003e [comparable]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "sortBy", + "comment": "Sort values by a derived property.\n\n```haskell\nalice = { name=\"Alice\", height=1.62 }\nbob = { name=\"Bob\" , height=1.85 }\nchuck = { name=\"Chuck\", height=1.76 }\n\nsortBy .name [chuck,alice,bob] == [alice,bob,chuck]\nsortBy .height [chuck,alice,bob] == [alice,chuck,bob]\n\nsortBy String.length [\"mouse\",\"cat\"] == [\"cat\",\"mouse\"]\n```", + "raw": "sortBy : (a -\u003e comparable) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "comparable" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sortWith", + "comment": "Sort values with a custom comparison function.\n\n```haskell\nsortWith flippedComparison [1..5] == [5,4,3,2,1]\n\nflippedComparison a b =\n case compare a b of\n LT -\u003e GT\n EQ -\u003e EQ\n GT -\u003e LT\n```\n\nThis is also the most general sort function, allowing you\nto define any other: `sort == sortWith compare`", + "raw": "sortWith : (a -\u003e a -\u003e Order) -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Order", + "args": [] + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sum", + "comment": "Get the sum of the list elements. `(sum [1..4] == 10)`", + "raw": "sum : [number] -\u003e number", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "number" + } + ] + } + ], + "result": { + "tag": "var", + "name": "number" + } + } + }, + { + "name": "tail", + "comment": "Extract the elements after the head of the list. List must be non-empty.\n`(tail [1,2,3] == [2,3])`", + "raw": "tail : [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "take", + "comment": "Take the first n members of a list: `(take 2 [1,2,3,4] == [1,2])`", + "raw": "take : Int -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "unzip", + "comment": "Decompose a list of tuples.", + "raw": "unzip : [(a,b)] -\u003e ([a],[b])", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + } + }, + { + "name": "zip", + "comment": "Combine two lists, combining them into tuples pairwise.\nIf one list is longer, the extra elements are dropped.\n\n zip [1,2,3] [6,7] == [(1,6),(2,7)]\n zip == zipWith (,)", + "raw": "zip : [a] -\u003e [b] -\u003e [(a,b)]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ] + } + ] + } + } + }, + { + "name": "zipWith", + "comment": "Combine two lists, combining them with the given function.\nIf one list is longer, the extra elements are dropped.\n\n zipWith (+) [1,2,3] [1,2,3,4] == [2,4,6]", + "raw": "zipWith : (a -\u003e b -\u003e c) -\u003e [a] -\u003e [b] -\u003e [c]", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + } + } + } + ] +}, +{ + "name": "Maybe", + "document": "Represents an optional value. Maybe it is there, maybe it is not.\n\n# Type and Constructors\n@docs Maybe\n\n# Taking Maybes apart\n@docs maybe, isJust, isNothing\n\n# Maybes and Lists\n@docs justs", + "aliases": [], + "datatypes": [ + { + "name": "Maybe", + "comment": "The Maybe datatype. Useful when a computation may or may not\nresult in a value (e.g. logarithm is defined only for positive\nnumbers).", + "raw": "data Maybe a = Just a | Nothing", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Just", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "Nothing", + "type": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ] + } + ], + "values": [ + { + "name": "cons", + "comment": "", + "raw": "cons : Maybe a -\u003e [a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "isJust", + "comment": "Check if a maybe happens to be a `Just`.\n\n isJust (Just 42) == True\n isJust (Just []) == True\n isJust Nothing == False", + "raw": "isJust : Maybe a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "isNothing", + "comment": "Check if constructed with `Nothing`.\n\n isNothing (Just 42) == False\n isNothing (Just []) == False\n isNothing Nothing == True", + "raw": "isNothing : Maybe a -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "justs", + "comment": "Filters out Nothings and extracts the remaining values.\n\n justs [Just 0, Nothing, Just 5, Just 7] == [0,5,7]", + "raw": "justs : [Maybe a] -\u003e [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "maybe", + "comment": "Provide a default value and a function to extract the contents of a `Maybe`.\nWhen given `Nothing` you get the default, when given a `Just` you apply the\nfunction to the associated value.\n\n isPositive : Maybe Int -\u003e Bool\n isPositive maybeInt = maybe False (\\n -\u003e n \u003e 0) maybeInt\n\n map : (a -\u003e b) -\u003e Maybe a -\u003e Maybe b\n map f m = maybe Nothing (\\x -\u003e Just (f x)) m", + "raw": "maybe : b -\u003e (a -\u003e b) -\u003e Maybe a -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "b" + }, + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + } + ] +}, +{ + "name": "Mouse", + "document": "Library for working with mouse input.\n\n# Position\n@docs position, x, y\n\n# Button Status\n@docs isDown, clicks", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "clicks", + "comment": "Always equal to unit. Event triggers on every mouse click.", + "raw": "clicks : Signal ()", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ] + } + }, + { + "name": "isDown", + "comment": "The current state of the left mouse-button.\nTrue when the button is down, and false otherwise.", + "raw": "isDown : Signal Bool", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + }, + { + "name": "position", + "comment": "The current mouse position.", + "raw": "position : Signal (Int,Int)", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ] + } + }, + { + "name": "x", + "comment": "The current x-coordinate of the mouse.", + "raw": "x : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + }, + { + "name": "y", + "comment": "The current y-coordinate of the mouse.", + "raw": "y : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + ] +}, +{ + "name": "Random", + "document": "Since the core of Elm is pure, randomness must be handled via signals.\n\n# Random Numbers\n@docs range, float, floatList", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "float", + "comment": "Produces a new signal that changes whenever the input signal changes.\nThe new values are random numbers in [0..1).", + "raw": "float : Signal a -\u003e Signal Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "floatList", + "comment": "Produces a new signal of lists that changes whenever the input signal\nchanges. The input signal specifies the length of the random list. Each value is\na random number in [0..1).", + "raw": "floatList : Signal Int -\u003e Signal [Float]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + } + }, + { + "name": "range", + "comment": "Given a range from low to high and a signal of values, this produces\na new signal that changes whenever the input signal changes. The new\nvalues are random number between 'low' and 'high' inclusive.", + "raw": "range : Int -\u003e Int -\u003e Signal a -\u003e Signal Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Regex", + "document": "A library for working with regular expressions. It uses [the\nsame kind of regular expressions accepted by JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions).\n\n# Create\n@docs regex, escape, caseInsensitive\n\n# Helpful Data Structures\n\nThese data structures are needed to help define functions like [`find`](#find)\nand [`replace`](#replace).\n\n@docs HowMany, Match\n\n# Use\n@docs contains, find, replace, split", + "aliases": [ + { + "name": "Match", + "comment": "A `Match` represents all of the details about a particular match in a string.\nHere are details on each field:\n\n * `match` — the full string of the match.\n * `submatches` — a regex might have [subpatterns, surrounded by\n parentheses](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Using_Parenthesized_Substring_Matches).\n If there are N subpatterns, there will be N elements in the `submatches` list.\n Each submatch in this list is a `Maybe` because not all subpatterns may trigger.\n For example, `(regex \"(a+)|(b+)\")` will either match many `a`’s or\n many `b`’s, but never both.\n * `index` — the index of the match in the original string.\n * `number` — if you find many matches, you can think of each one\n as being labeled with a `number` starting at one. So the first time you\n find a match, that is match `number` one. Second time is match `number` two.\n This is useful when paired with `replace All` if replacement is dependent on how\n many times a pattern has appeared before.", + "raw": "type Match = { match : String, submatches : [Maybe String], index : Int, number : Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "match", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "submatches", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + ], + [ + "index", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "number", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "HowMany", + "comment": "`HowMany` is used to specify how many matches you want to make. So\n`replace All` would replace every match, but `replace (AtMost 2)` would\nreplace at most two matches (i.e. zero, one, two, but never three or more).", + "raw": "data HowMany = All | AtMost Int", + "typeVariables": [], + "constructors": [ + { + "name": "All", + "type": { + "tag": "adt", + "name": "HowMany", + "args": [] + } + }, + { + "name": "AtMost", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "HowMany", + "args": [] + } + } + } + ] + }, + { + "name": "Regex", + "comment": "", + "raw": "data Regex = Regex", + "typeVariables": [], + "constructors": [ + { + "name": "Regex", + "type": { + "tag": "adt", + "name": "Regex", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "caseInsensitive", + "comment": "Make a regex case insensitive", + "raw": "caseInsensitive : Regex -\u003e Regex", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Regex", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Regex", + "args": [] + } + } + }, + { + "name": "contains", + "comment": "Check to see if a Regex is contained in a string.\n\n```haskell\n contains (regex \"123\") \"12345\" == True\n contains (regex \"b+\") \"aabbcc\" == True\n\n contains (regex \"789\") \"12345\" == False\n contains (regex \"z+\") \"aabbcc\" == False\n```", + "raw": "contains : Regex -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "escape", + "comment": "Escape strings to be regular expressions, making all special characters\nsafe. So `regex (escape \"^a+\")` will match exactly `\"^a+\"` instead of a series\nof `a`’s that start at the beginning of the line.", + "raw": "escape : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "find", + "comment": "Find matches in a string:\n\n```haskell\n findTwoCommas = find (AtMost 2) (regex \",\")\n\n -- map .index (findTwoCommas \"a,b,c,d,e\") == [1,3]\n -- map .index (findTwoCommas \"a b c d e\") == []\n\n places = find All (regex \"[oi]n a (\\\\w+)\") \"I am on a boat in a lake.\"\n\n -- map .match places == [\"on a boat\", \"in a lake\"]\n -- map .submatches places == [ [Just \"boat\"], [Just \"lake\"] ]\n```", + "raw": "find : HowMany -\u003e Regex -\u003e String -\u003e [Match]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "HowMany", + "args": [] + }, + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Match", + "args": [] + } + ] + } + } + }, + { + "name": "regex", + "comment": "Create a Regex that matches patterns [as specified in JavaScript](https://developer.mozilla.org/en/docs/Web/JavaScript/Guide/Regular_Expressions#Writing_a_Regular_Expression_Pattern).\n\nBe careful to escape backslashes properly! For example, `\"\\w\"` is escaping the\nletter `w` which is probably not what you want. You probably want `\"\\\\w\"`\ninstead, which escapes the backslash.", + "raw": "regex : String -\u003e Regex", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Regex", + "args": [] + } + } + }, + { + "name": "replace", + "comment": "Replace matches. The function from `Match` to `String` lets\nyou use the details of a specific match when making replacements.\n\n```haskell\n devowel = replace All (regex \"[aeiou]\") (\\_ -\u003e \"\")\n\n -- devowel \"The quick brown fox\" == \"Th qck brwn fx\"\n\n reverseWords = replace All (regex \"\\\\w+\") (\\{match} -\u003e String.reverse match)\n\n -- reverseWords \"deliver mined parts\" == \"reviled denim strap\"\n```", + "raw": "replace : HowMany -\u003e Regex -\u003e (Match -\u003e String) -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "HowMany", + "args": [] + }, + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Match", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "split", + "comment": "Split a string, using the regex as the separator.\n\n```haskell\n split (AtMost 1) (regex \",\") \"tom,99,90,85\" == [\"tom\",\"99,90,85\"]\n\n split All (regex \",\") \"a,b,c,d\" == [\"a\",\"b\",\"c\",\"d\"]\n```", + "raw": "split : HowMany -\u003e Regex -\u003e String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "HowMany", + "args": [] + }, + { + "tag": "adt", + "name": "Regex", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Set", + "document": "A set of unique values. The values can be any comparable type. This\nincludes `Int`, `Float`, `Time`, `Char`, `String`, and tuples or lists\nof comparable types.\n\nInsert, remove, and query operations all take *O(log n)* time.\n\n# Build\n@docs empty, singleton, insert, remove\n\n# Query\n@docs member\n\n# Combine\n@docs union, intersect, diff\n\n# Lists\n@docs toList, fromList\n\n# Transform\n@docs map, foldl, foldr", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "diff", + "comment": "Get the difference between the first set and the second. Keeps values\nthat do not appear in the second set.", + "raw": "diff : Set comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "empty", + "comment": "Create an empty set.", + "raw": "empty : Set comparable", + "type": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + }, + { + "name": "foldl", + "comment": "Fold over the values in a set, in order from lowest to highest.", + "raw": "foldl : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr", + "comment": "Fold over the values in a set, in order from highest to lowest.", + "raw": "foldr : (comparable -\u003e b -\u003e b) -\u003e b -\u003e Set comparable -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "fromList", + "comment": "Convert a list into a set, removing any duplicates.", + "raw": "fromList : [comparable] -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "insert", + "comment": "Insert a value into a set.", + "raw": "insert : comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "intersect", + "comment": "Get the intersection of two sets. Keeps values that appear in both sets.", + "raw": "intersect : Set comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "map", + "comment": "Map a function onto a set, creating a new set with no duplicates.", + "raw": "map : (comparable -\u003e comparable') -\u003e Set comparable -\u003e Set comparable'", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "var", + "name": "comparable'" + } + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable'" + } + ] + } + } + }, + { + "name": "member", + "comment": "Determine if a value is in a set.", + "raw": "member : comparable -\u003e Set comparable -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "remove", + "comment": "Remove a value from a set. If the value is not found, no changes are made.", + "raw": "remove : comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "singleton", + "comment": "Create a set with one value.", + "raw": "singleton : comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "toList", + "comment": "Convert a set into a list.", + "raw": "toList : Set comparable -\u003e [comparable]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + }, + { + "name": "union", + "comment": "Get the union of two sets. Keep all values.", + "raw": "union : Set comparable -\u003e Set comparable -\u003e Set comparable", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + }, + { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Set", + "args": [ + { + "tag": "var", + "name": "comparable" + } + ] + } + } + } + ] +}, +{ + "name": "Signal", + "document": "The library for general signal manipulation. Includes lift functions up to\n`lift8` and infix lift operators `\u003c~` and `~`, combinations, filters, and\npast-dependence.\n\nSignals are time-varying values. Lifted functions are reevaluated whenever any of\ntheir input signals has an event. Signal events may be of the same value as the\nprevious value of the signal. Such signals are useful for timing and\npast-dependence.\n\nSome useful functions for working with time (e.g. setting FPS) and combining\nsignals and time (e.g. delaying updates, getting timestamps) can be found in\nthe [`Time`](/docs/Signal/Time.elm) library.\n\n# Combine\n@docs constant, lift, lift2, merge, merges, combine\n\n# Past-Dependence\n@docs foldp, count, countIf\n\n#Filters\n@docs keepIf, dropIf, keepWhen, dropWhen, dropRepeats, sampleOn\n\n# Pretty Lift\n@docs (\u003c~), (~)\n\n# Do you even lift?\n@docs lift3, lift4, lift5, lift6, lift7, lift8", + "aliases": [], + "datatypes": [ + { + "name": "Signal", + "comment": "", + "raw": "data Signal a = Signal", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Signal", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ] + } + ], + "values": [ + { + "name": "\u003c~", + "comment": "An alias for `lift`. A prettier way to apply a function to the current value\nof a signal.", + "raw": "(\u003c~) : (a -\u003e b) -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + }, + "associativity": "left", + "precedence": 4 + }, + { + "name": "combine", + "comment": "Combine a list of signals into a signal of lists.", + "raw": "combine : [Signal a] -\u003e Signal [a]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + } + }, + { + "name": "constant", + "comment": "Create a constant signal that never changes.", + "raw": "constant : a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "count", + "comment": "Count the number of events that have occurred.", + "raw": "count : Signal a -\u003e Signal Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "countIf", + "comment": "Count the number of events that have occurred that satisfy a given predicate.", + "raw": "countIf : (a -\u003e Bool) -\u003e Signal a -\u003e Signal Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "dropIf", + "comment": "Drop events that satisfy the given predicate. Elm does not allow undefined\nsignals, so a base case must be provided in case the predicate is satisfied\ninitially.", + "raw": "dropIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "dropRepeats", + "comment": "Drop updates that repeat the current value of the signal.\n\nImagine a signal `numbers` has initial value\n0 and then updates with values 0, 0, 1, 1, and 2. `dropRepeats numbers`\nis a signal that has initial value 0 and updates as follows: ignore 0,\nignore 0, update to 1, ignore 1, update to 2.", + "raw": "dropRepeats : Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "dropWhen", + "comment": "Drop events when the first signal is true. When the first signal becomes\nfalse, the most recent value of the second signal will be propagated. Until the\nfirst signal becomes true again, all events will be propagated. Elm does not\nallow undefined signals, s oa base case must be provided in case the first\nsignal is true initially.", + "raw": "dropWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "foldp", + "comment": "Create a past-dependent signal. Each value given on the input signal will\nbe accumulated, producing a new output value.\n\nFor instance, `foldp (+) 0 (fps 40)` is the time the program has been running,\nupdated 40 times a second.", + "raw": "foldp : (a -\u003e b -\u003e b) -\u003e b -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "keepIf", + "comment": "Keep only events that satisfy the given predicate. Elm does not allow\nundefined signals, so a base case must be provided in case the predicate is\nnot satisfied initially.", + "raw": "keepIf : (a -\u003e Bool) -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "keepWhen", + "comment": "Keep events only when the first signal is true. When the first signal\nbecomes true, the most recent value of the second signal will be propagated.\nUntil the first signal becomes false again, all events will be propagated. Elm\ndoes not allow undefined signals, so a base case must be provided in case the\nfirst signal is not true initially.", + "raw": "keepWhen : Signal Bool -\u003e a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "lift", + "comment": "Transform a signal with a given function.", + "raw": "lift : (a -\u003e b) -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "lift2", + "comment": "Combine two signals with a given function.", + "raw": "lift2 : (a -\u003e b -\u003e c) -\u003e Signal a -\u003e Signal b -\u003e Signal c", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "c" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + } + } + }, + { + "name": "lift3", + "comment": "", + "raw": "lift3 : (a -\u003e b -\u003e c -\u003e d) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + } + ], + "result": { + "tag": "var", + "name": "d" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + } + } + }, + { + "name": "lift4", + "comment": "", + "raw": "lift4 : (a -\u003e b -\u003e c -\u003e d -\u003e e) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + } + ], + "result": { + "tag": "var", + "name": "e" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + } + } + }, + { + "name": "lift5", + "comment": "", + "raw": "lift5 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f) -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + } + ], + "result": { + "tag": "var", + "name": "f" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + } + } + }, + { + "name": "lift6", + "comment": "", + "raw": "lift6 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + }, + { + "tag": "var", + "name": "f" + } + ], + "result": { + "tag": "var", + "name": "g" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "g" + } + ] + } + } + }, + { + "name": "lift7", + "comment": "", + "raw": "lift7 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + }, + { + "tag": "var", + "name": "f" + }, + { + "tag": "var", + "name": "g" + } + ], + "result": { + "tag": "var", + "name": "h" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "g" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "h" + } + ] + } + } + }, + { + "name": "lift8", + "comment": "", + "raw": "lift8 : (a -\u003e b -\u003e c -\u003e d -\u003e e -\u003e f -\u003e g -\u003e h -\u003e i)\n -\u003e Signal a -\u003e Signal b -\u003e Signal c -\u003e Signal d -\u003e Signal e -\u003e Signal f -\u003e Signal g -\u003e Signal h -\u003e Signal i", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "var", + "name": "c" + }, + { + "tag": "var", + "name": "d" + }, + { + "tag": "var", + "name": "e" + }, + { + "tag": "var", + "name": "f" + }, + { + "tag": "var", + "name": "g" + }, + { + "tag": "var", + "name": "h" + } + ], + "result": { + "tag": "var", + "name": "i" + } + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "c" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "d" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "e" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "f" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "g" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "h" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "i" + } + ] + } + } + }, + { + "name": "merge", + "comment": "Merge two signals into one, biased towards the first signal if both signals\nupdate at the same time.", + "raw": "merge : Signal a -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "merges", + "comment": "Merge many signals into one, biased towards the left-most signal if multiple\nsignals update simultaneously.", + "raw": "merges : [Signal a] -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "sampleOn", + "comment": "Sample from the second input every time an event occurs on the first input.\nFor example, `(sampleOn clicks (every second))` will give the approximate time\nof the latest click.", + "raw": "sampleOn : Signal a -\u003e Signal b -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + } + }, + { + "name": "~", + "comment": "Informally, an alias for `liftN`. Intersperse it between additional signal\narguments of the lifted function.\n\nFormally, signal application. This takes two signals, holding a function and\na value. It applies the current function to the current value.\n\nThe following expressions are equivalent:\n\n scene \u003c~ Window.dimensions ~ Mouse.position\n lift2 scene Window.dimensions Mouse.position", + "raw": "(~) : Signal (a -\u003e b) -\u003e Signal a -\u003e Signal b", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + ] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "b" + } + ] + } + }, + "associativity": "left", + "precedence": 4 + } + ] +}, +{ + "name": "String", + "document": "A built-in representation for efficient string manipulation. String literals\nare enclosed in `\"double quotes\"`. Strings are *not* lists of characters.\n\n# Basics\n@docs isEmpty, length, reverse, repeat\n\n# Building and Splitting\n@docs cons, uncons, append, concat, split, join, words, lines\n\n# Get Substrings\n@docs sub, left, right, dropLeft, dropRight\n\n# Check for Substrings\n@docs contains, startsWith, endsWith, indexes, indices\n\n# Conversions\n@docs show, toInt, toFloat, toList, fromList\n\n# Formatting\nCosmetic operations such as padding with extra characters or trimming whitespace.\n\n@docs toUpper, toLower,\n pad, padLeft, padRight,\n trim, trimLeft, trimRight\n\n# Higher-Order Functions\n@docs map, filter, foldl, foldr, any, all", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "all", + "comment": "Check to see if *all* characters satisfy a predicate.\n\n all isDigit \"90210\" == True\n all isDigit \"R2-D2\" == False\n all isDigit \"heart\" == False", + "raw": "all : (Char -\u003e Bool) -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "any", + "comment": "Check to see if *any* characters satisfy a predicate.\n\n any isDigit \"90210\" == True\n any isDigit \"R2-D2\" == True\n any isDigit \"heart\" == False", + "raw": "any : (Char -\u003e Bool) -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "append", + "comment": "Append two strings. You can also use [the `(++)` operator](/library/List.elm#++)\nto do this.\n\n append \"butter\" \"fly\" == \"butterfly\"", + "raw": "append : String -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "concat", + "comment": "Concatenate many strings into one.\n\n concat [\"never\",\"the\",\"less\"] == \"nevertheless\"", + "raw": "concat : [String] -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "cons", + "comment": "Add a character to the beginning of a string", + "raw": "cons : Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "contains", + "comment": "See if a string contains another one.\n\n contains \"the\" \"theory\" == True\n contains \"hat\" \"theory\" == False\n contains \"THE\" \"theory\" == False\n\nUse `Regex.contains` if you need something more flexible.", + "raw": "contains : String -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "dropLeft", + "comment": "Drop N characters from the left side of a string.", + "raw": "dropLeft : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "dropRight", + "comment": "Drop N characters from the right side of a string.", + "raw": "dropRight : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "endsWith", + "comment": "See if a string ends with another one.\n\n endsWith \"the\" \"theory\" == False\n endsWith \"ory\" \"theory\" == True", + "raw": "endsWith : String -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "filter", + "comment": "Keep only the characters that satisfy the predicate:\n\n filter isDigit \"R2-D2\" == \"22\"", + "raw": "filter : (Char -\u003e Bool) -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "foldl", + "comment": "Reduce a string from the left:\n\n foldl cons \"\" \"time\" == \"emit\"", + "raw": "foldl : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "foldr", + "comment": "Reduce a string from the right:\n\n foldr cons \"\" \"time\" == \"time\"", + "raw": "foldr : (Char -\u003e b -\u003e b) -\u003e b -\u003e String -\u003e b", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "var", + "name": "b" + } + ], + "result": { + "tag": "var", + "name": "b" + } + }, + { + "tag": "var", + "name": "b" + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "b" + } + } + }, + { + "name": "fromList", + "comment": "Convert a list of characters into a String. Can be useful if you\nwant to create a string primarly by consing, perhaps for decoding\nsomething.\n\n fromList ['a','b','c'] == \"abc\"", + "raw": "fromList : [Char] -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "indexes", + "comment": "Get all of the indexes for a substring.\n\n indexes \"i\" \"Mississippi\" == [1,4,7,10]\n indexes \"ss\" \"Mississippi\" == [2,5]\n indexes \"needle\" \"haystack\" == []", + "raw": "indexes : String -\u003e String -\u003e [Int]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "indices", + "comment": "Alias for `indexes`", + "raw": "indices : String -\u003e String -\u003e [Int]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "isEmpty", + "comment": "Check if a string is empty.\n\n isEmpty \"\" == True\n isEmpty \"the world\" == False", + "raw": "isEmpty : String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "join", + "comment": "Put many strings together with a given separator.\n\n join \" \" [\"cat\",\"dog\",\"cow\"] == \"cat dog cow\"\n join \"/\" [\"home\",\"evan\",\"Desktop\"] == \"home/evan/Desktop\"", + "raw": "join : String -\u003e [String] -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "left", + "comment": "Take N characters from the left side of a string.", + "raw": "left : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "length", + "comment": "Get the length of a string.\n\n length \"innumerable\" == 11", + "raw": "length : String -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "lines", + "comment": "Break a string into lines, splitting on newlines.\n\n lines \"How are you?\\nGood? == [\"How are you?\", \"Good?\"]", + "raw": "lines : String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "map", + "comment": "Transform every character in a string\n\n map (\\c -\u003e if c == '/' then '.' else c) \"a/b/c\" == \"a.b.c\"", + "raw": "map : (Char -\u003e Char) -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Char", + "args": [] + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "pad", + "comment": "Pad a string on both sides until it has a given length.\n\n pad 5 ' ' \"1\" == \" 1 \"\n pad 5 ' ' \"11\" == \" 11 \"\n pad 5 ' ' \"121\" == \" 121 \"", + "raw": "pad : Int -\u003e Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "padLeft", + "comment": "Pad a string on the left until it has a given length.\n\n pad 5 '.' \"1\" == \"....1\"\n pad 5 '.' \"11\" == \"...11\"\n pad 5 '.' \"121\" == \"..121\"", + "raw": "padLeft : Int -\u003e Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "padRight", + "comment": "Pad a string on the right until it has a given length.\n\n pad 5 '.' \"1\" == \"1....\"\n pad 5 '.' \"11\" == \"11...\"\n pad 5 '.' \"121\" == \"121..\"", + "raw": "padRight : Int -\u003e Char -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "repeat", + "comment": "Repeat a string N times.\n\n repeat 3 \"ha\" == \"hahaha\"", + "raw": "repeat : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "reverse", + "comment": "Reverse a string.\n\n reverse \"stressed\" == \"desserts\"", + "raw": "reverse : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "right", + "comment": "Take N characters from the right side of a string.", + "raw": "right : Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "show", + "comment": "Turn any kind of value into a string.\n\n show 42 == \"42\"\n show [1,2] == \"[1,2]\"", + "raw": "show : a -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "split", + "comment": "Split a string using a given separator.\n\n split \",\" \"cat,dog,cow\" == [\"cat\",\"dog\",\"cow\"]\n split \"/\" \"home/evan/Desktop/\" == [\"home\",\"evan\",\"Desktop\"]\n\nUse `Regex.split` if you need something more flexible.", + "raw": "split : String -\u003e String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + }, + { + "name": "startsWith", + "comment": "See if a string starts with another one.\n\n startsWith \"the\" \"theory\" == True\n startsWith \"ory\" \"theory\" == False", + "raw": "startsWith : String -\u003e String -\u003e Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Bool", + "args": [] + } + } + }, + { + "name": "sub", + "comment": "Take a substring given a start and end index. Negative indexes\nare taken starting from the *end* of the list.\n\n sub 7 9 \"snakes on a plane!\" == \"on\"\n sub 0 6 \"snakes on a plane!\" == \"snakes\"\n sub 0 -7 \"snakes on a plane!\" == \"snakes on a\"\n sub -6 -1 \"snakes on a plane!\" == \"plane\"", + "raw": "sub : Int -\u003e Int -\u003e String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "toFloat", + "comment": "Try to convert a string into a float, failing on improperly formatted strings.\n\n toFloat \"123\" == Just 123.0\n toFloat \"-42\" == Just -42.0\n toFloat \"3.1\" == Just 3.1\n toFloat \"31a\" == Nothing", + "raw": "toFloat : String -\u003e Maybe Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + } + }, + { + "name": "toInt", + "comment": "Try to convert a string into an int, failing on improperly formatted strings.\n\n toInt \"123\" == Just 123\n toInt \"-42\" == Just -42\n toInt \"3.1\" == Nothing\n toInt \"31a\" == Nothing", + "raw": "toInt : String -\u003e Maybe Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "toList", + "comment": "Convert a string to a list of characters.\n\n toList \"abc\" == ['a','b','c']", + "raw": "toList : String -\u003e [Char]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + } + ] + } + } + }, + { + "name": "toLower", + "comment": "Convert a string to all lower case. Useful for case insensitive comparisons.", + "raw": "toLower : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "toUpper", + "comment": "Convert a string to all upper case. Useful for case insensitive comparisons\nand VIRTUAL YELLING.", + "raw": "toUpper : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "trim", + "comment": "Get rid of whitespace on both sides of a string.\n\n trim \" hats \\n\" == \"hats\"", + "raw": "trim : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "trimLeft", + "comment": "Get rid of whitespace on the left of a string.\n\n trimLeft \" hats \\n\" == \"hats \\n\"", + "raw": "trimLeft : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "trimRight", + "comment": "Get rid of whitespace on the left of a string.\n\n trimRight \" hats \\n\" == \" hats\"", + "raw": "trimRight : String -\u003e String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "String", + "args": [] + } + } + }, + { + "name": "uncons", + "comment": "Split a non-empty string into its head and tail. This lets you\npattern match on strings exactly as you would with lists.\n\n uncons \"abc\" == Just ('a',\"bc\")\n uncons \"\" == Nothing", + "raw": "uncons : String -\u003e Maybe (Char, String)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Char", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ] + } + } + }, + { + "name": "words", + "comment": "Break a string into words, splitting on chunks of whitespace.\n\n words \"How are \\t you? \\n Good?\" == [\"How\",\"are\",\"you?\",\"Good?\"]", + "raw": "words : String -\u003e [String]", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Text", + "document": "A library for styling and displaying text. Whlie the `String` library\nfocuses on representing and manipulating strings of character strings, the\n`Text` library focuses on how those strings should look on screen. It lets\nyou make text bold or italic, set the typeface, set the text size, etc.\n\n# Creating Text\n@docs toText\n\n# Creating Elements\n\nEach of the following functions places `Text` into a box. The function you use\ndetermines the alignment of the text.\n\n@docs leftAligned, rightAligned, centered, justified\n\n# Links and Style\n@docs link, Style, style, defaultStyle, Line\n\n# Convenience Functions\n\nThere are two convenience functions for creating an `Element` which can be\nuseful when debugging or prototyping:\n\n@docs plainText, asText\n\nThere are also a bunch of functions to set parts of a `Style` individually:\n\n@docs typeface, monospace, height, color, bold, italic, line", + "aliases": [ + { + "name": "Style", + "comment": "Representation of all the ways you can style `Text`. If the `typeface` list\nis empty or the `height` is `Nothing`, the users will fall back on their\nbrowser's default settings. The following `Style` is black, 16 pixel tall,\nunderlined, and Times New Roman (assuming that typeface is available on the\nuser's computer):\n\n { typeface = [ \"Times New Roman\", \"serif\" ]\n , height = Just 16\n , color = black\n , bold = False\n , italic = False\n , line = Just Under\n }", + "raw": "type Style =\n { typeface : [String]\n , height : Maybe Float\n , color : Color\n , bold : Bool\n , italic : Bool\n , line : Maybe Line\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "typeface", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + [ + "height", + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "bold", + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + [ + "italic", + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + [ + "line", + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Line", + "args": [] + } + ] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Line", + "comment": "Styles for lines on text. This allows you to add an underline, an overline,\nor a strike out text:\n\n line Under (toText \"underline\")\n line Over (toText \"overline\")\n line Through (toText \"strike out\")", + "raw": "data Line = Under | Over | Through", + "typeVariables": [], + "constructors": [ + { + "name": "Under", + "type": { + "tag": "adt", + "name": "Line", + "args": [] + } + }, + { + "name": "Over", + "type": { + "tag": "adt", + "name": "Line", + "args": [] + } + }, + { + "name": "Through", + "type": { + "tag": "adt", + "name": "Line", + "args": [] + } + } + ] + }, + { + "name": "Text", + "comment": "", + "raw": "data Text = Text", + "typeVariables": [], + "constructors": [ + { + "name": "Text", + "type": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "asText", + "comment": "Convert anything to its textual representation and make it displayable in\nthe browser:\n\n asText value = text (monospace (show value))\n\nExcellent for debugging.", + "raw": "asText : a -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "bold", + "comment": "Make text bold:\n\n toText \"sometimes you want \" ++ bold (toText \"emphasis\")", + "raw": "bold : Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "centered", + "comment": "`Text` is centered in the text block. There is equal spacing on either side\nof a line of text.", + "raw": "centered : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "color", + "comment": "Set the color of some text:\n\n color red (toText \"Red\")", + "raw": "color : Color -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "defaultStyle", + "comment": "Plain black text. It uses the browsers default typeface and text height.\nNo decorations are used:\n\n { typeface = []\n , height = Nothing\n , color = black\n , bold = False\n , italic = False\n , line = Nothing\n }", + "raw": "defaultStyle : Style", + "type": { + "tag": "adt", + "name": "Style", + "args": [] + } + }, + { + "name": "height", + "comment": "Set the height of some text:\n\n height 40 (toText \"Title\")", + "raw": "height : Float -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "italic", + "comment": "Make text italic:\n\n toText \"make it \" ++ italic (toText \"important\")", + "raw": "italic : Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "justified", + "comment": "`Text` is aligned along the left and right sides of the text block. Word\nspacing is adjusted to make this possible.", + "raw": "justified : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "leftAligned", + "comment": "`Text` is aligned along the left side of the text block. This is sometimes\nknown as *ragged right*.", + "raw": "leftAligned : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "line", + "comment": "Put lines on text:\n\n line Under (toText \"underlined\")\n line Over (toText \"overlined\")\n line Through (toText \"strike out\")", + "raw": "line : Line -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Line", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "link", + "comment": "Create a link by providing a URL and the text of the link:\n\n link \"http://elm-lang.org\" (toText \"Elm Website\")", + "raw": "link : String -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "markdown", + "comment": "for internal use only", + "raw": "markdown : Element", + "type": { + "tag": "adt", + "name": "Element", + "args": [] + } + }, + { + "name": "monospace", + "comment": "Switch to a monospace typeface. Good for code snippets.\n\n monospace (toText \"foldl (+) 0 [1,2,3]\")", + "raw": "monospace : Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "plainText", + "comment": "Display a string with no styling:\n\n plainText string = leftAligned (toText string)", + "raw": "plainText : String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "rightAligned", + "comment": "`Text` is aligned along the right side of the text block. This is sometimes\nknown as *ragged left*.", + "raw": "rightAligned : Text -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "style", + "comment": "Set the style of some text. For example, if you design a `Style` called\n`footerStyle` that is specifically for the bottom of your page, you could apply\nit to text like this:\n\n style footerStyle (toText \"the old prince / 2007\")", + "raw": "style : Style -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "toText", + "comment": "Convert a string into text which can be styled and displayed. To show the\nstring `\"Hello World!\"` on screen in italics, you could say:\n\n main = leftAligned (italic (toText \"Hello World!\"))", + "raw": "toText : String -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + }, + { + "name": "typeface", + "comment": "Provide a list of prefered typefaces for some text.\n\n [\"helvetica\",\"arial\",\"sans-serif\"]\n\nNot every browser has access to the same typefaces, so rendering will use the\nfirst typeface in the list that is found on the user's computer. If there are\nno matches, it will use their default typeface. This works the same as the CSS\nfont-family property.", + "raw": "typeface : [String] -\u003e Text -\u003e Text", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Text", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Text", + "args": [] + } + } + } + ] +}, +{ + "name": "Time", + "document": "Library for working with time.\n\n# Units\n@docs Time, millisecond, second, minute, hour,\n inMilliseconds, inSeconds, inMinutes, inHours\n\n# Tickers\n@docs fps, fpsWhen, every\n\n# Timing\n@docs timestamp, delay, since", + "aliases": [ + { + "name": "Time", + "comment": "Type alias to make it clearer when you are working with time values.\nUsing the `Time` constants instead of raw numbers is very highly recommended.", + "raw": "type Time = Float", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + ], + "datatypes": [], + "values": [ + { + "name": "delay", + "comment": "Delay a signal by a certain amount of time. So `(delay second Mouse.clicks)`\nwill update one second later than any mouse click.", + "raw": "delay : Time -\u003e Signal a -\u003e Signal a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "every", + "comment": "Takes a time interval t. The resulting signal is the current time, updated\nevery t.", + "raw": "every : Time -\u003e Signal Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + } + } + }, + { + "name": "fps", + "comment": "Takes desired number of frames per second (fps). The resulting signal\ngives a sequence of time deltas as quickly as possible until it reaches\nthe desired FPS. A time delta is the time between the last frame and the\ncurrent frame.", + "raw": "fps : number -\u003e Signal Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + } + } + }, + { + "name": "fpsWhen", + "comment": "Same as the fps function, but you can turn it on and off. Allows you\nto do brief animations based on user input without major inefficiencies.\nThe first time delta after a pause is always zero, no matter how long\nthe pause was. This way summing the deltas will actually give the amount\nof time that the output signal has been running.", + "raw": "fpsWhen : number -\u003e Signal Bool -\u003e Signal Time", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "number" + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + } + } + }, + { + "name": "hour", + "comment": "", + "raw": "hour : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "inHours", + "comment": "", + "raw": "inHours : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "inMilliseconds", + "comment": "", + "raw": "inMilliseconds : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "inMinutes", + "comment": "", + "raw": "inMinutes : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "inSeconds", + "comment": "", + "raw": "inSeconds : Time -\u003e Float", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Float", + "args": [] + } + } + }, + { + "name": "millisecond", + "comment": "Units of time, making it easier to specify things like a half-second\n`(500 * milliseconds)` without remembering Elm’s underlying units of time.", + "raw": "millisecond : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "minute", + "comment": "", + "raw": "minute : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "second", + "comment": "", + "raw": "second : Time", + "type": { + "tag": "adt", + "name": "Time", + "args": [] + } + }, + { + "name": "since", + "comment": "Takes a time `t` and any signal. The resulting boolean signal is true for\ntime `t` after every event on the input signal. So ``(second `since`\nMouse.clicks)`` would result in a signal that is true for one second after\neach mouse click and false otherwise.", + "raw": "since : Time -\u003e Signal a -\u003e Signal Bool", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ] + } + } + }, + { + "name": "timestamp", + "comment": "Add a timestamp to any signal. Timestamps increase monotonically. When you\ncreate `(timestamp Mouse.x)`, an initial timestamp is produced. The timestamp\nupdates whenever `Mouse.x` updates.\n\nTimestamp updates are tied to individual events, so\n`(timestamp Mouse.x)` and `(timestamp Mouse.y)` will always have the same\ntimestamp because they rely on the same underlying event (`Mouse.position`).", + "raw": "timestamp : Signal a -\u003e Signal (Time, a)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Time", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + } + } + ] +}, +{ + "name": "Touch", + "document": "This is an early version of the touch library. It will likely grow to\ninclude gestures that would be useful for both games and web-pages.\n\n# Touches\n@docs Touch, touches\n\n# Gestures\n@docs taps", + "aliases": [ + { + "name": "Touch", + "comment": "Every `Touch` has `xy` coordinates. It also has an identifier\n`id` to distinguish one touch from another.\n\nA touch also keeps info about the initial point and time of contact:\n`x0`, `y0`, and `t0`. This helps compute more complicated gestures\nlike taps, drags, and swipes which need to know about timing or direction.", + "raw": "type Touch = { x:Int, y:Int, id:Int, x0:Int, y0:Int, t0:Time }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "id", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "x0", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y0", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "t0", + { + "tag": "adt", + "name": "Time", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [], + "values": [ + { + "name": "taps", + "comment": "The last position that was tapped. Default value is `{x=0,y=0}`.\nUpdates whenever the user taps the screen.", + "raw": "taps : Signal { x:Int, y:Int }", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "record", + "fields": [ + [ + "x", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + ] + } + }, + { + "name": "touches", + "comment": "A list of ongoing touches.", + "raw": "touches : Signal [Touch]", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Touch", + "args": [] + } + ] + } + ] + } + } + ] +}, +{ + "name": "Trampoline", + "document": "A [trampoline](http://en.wikipedia.org/wiki/Tail-recursive_function#Through_trampolining)\nmakes it possible to recursively call a function without growing the stack.\n\nPopular JavaScript implementations do not perform any tail-call elimination, so\nrecursive functions can cause a stack overflow if they go to deep. Trampolines\npermit unbounded recursion despite limitations in JavaScript.\n\nThis strategy may create many intermediate closures, which is very expensive in\nJavaScript, so use this library only when it is essential that you recurse deeply.\n\n# Trampolines\n@docs trampoline, Trampoline", + "aliases": [], + "datatypes": [ + { + "name": "Trampoline", + "comment": "A way to build computations that may be deeply recursive. We will take an\nexample of a tail-recursive function and rewrite it in a way that lets us use\na trampoline:\n\n length : [a] -\u003e Int\n length list = length' 0 list\n\n length' : Int -\u003e [a] -\u003e Int\n length' accum list =\n case list of\n [] -\u003e accum\n hd::tl -\u003e length' (accum+1) tl\n\nThis finds the length of a list, but if the list is too long, it may cause a\nstack overflow. We can rewrite it as follows:\n\n length : [a] -\u003e Int\n length list = trampoline (length' 0 list)\n\n length' : Int -\u003e [a] -\u003e Trampoline Int\n length' accum list =\n case list of\n [] -\u003e Done accum\n hd::tl -\u003e Continue (\\() -\u003e length' (accum+1) tl)\n\nNow it uses a trampoline and can recurse without growing the stack!", + "raw": "data Trampoline a = Done a | Continue (() -\u003e Trampoline a)", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Done", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + }, + { + "name": "Continue", + "type": { + "tag": "function", + "args": [ + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ], + "result": { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] + } + ], + "values": [ + { + "name": "trampoline", + "comment": "Evaluate a trampolined value in constant space.", + "raw": "trampoline : Trampoline a -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Trampoline", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } + } + ] +}, +{ + "name": "Transform2D", + "document": "A library for performing [2D matrix transformations][affine].\nIt is used primarily with the `groupTransform` function from `Graphics.Collage` and\nallows you to do things like rotation, scaling, translation, shearing, and reflection.\n\nNote that all the matrices in this library are 3x3 matrices of homogeneous\ncoordinates, used for [affine transformations][affine]. Since the bottom row as\nalways `0 0 1` in these matrices, it is omitted in the diagrams below.\n\n [affine]: http://en.wikipedia.org/wiki/Transformation_matrix#Affine_transformations\n\n# Transforms\n@docs identity, matrix, rotation, translation, scale, scaleX, scaleY\n\n# Multiplication\n@docs multiply", + "aliases": [], + "datatypes": [ + { + "name": "Transform2D", + "comment": "", + "raw": "data Transform2D = Transform2D", + "typeVariables": [], + "constructors": [ + { + "name": "Transform2D", + "type": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "identity", + "comment": "Create an identity transform. Transforming by the identity does\nnot change anything, but it can come in handy as a default or\nbase case.\n\n / 1 0 0 \\\n \\ 0 1 0 /", + "raw": "identity : Transform2D", + "type": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + }, + { + "name": "matrix", + "comment": "Creates a transformation matrix. This lets you create transforms\nsuch as scales, shears, reflections, and translations.\n\n matrix a b c d x y\n\n / a b x \\\n \\ c d y /\n\nNote that `x` and `y` are the translation values.", + "raw": "matrix : Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "multiply", + "comment": "Multiplies two transforms together:\n\n multiply m n\n\n / ma mb mx \\ / na nb nx \\\n | mc md my | . | nc nd ny |\n \\ 0 0 1 / \\ 0 0 1 /", + "raw": "multiply : Transform2D -\u003e Transform2D -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Transform2D", + "args": [] + }, + { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "rotation", + "comment": "Creates a [rotation matrix](http://en.wikipedia.org/wiki/Rotation_matrix).\nGiven an angle t, it creates a counterclockwise rotation matrix:\n\n / cos t -sin t 0 \\\n \\ sin t cos t 0 /", + "raw": "rotation : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "scale", + "comment": "Creates a transformation matrix for scaling by a all directions:\n\n scale s\n\n / s 0 0 \\\n \\ 0 s 0 /", + "raw": "scale : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "scaleX", + "comment": "Creates a transformation for horizontal scaling", + "raw": "scaleX : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "scaleY", + "comment": "Creates a transformation for vertical scaling", + "raw": "scaleY : Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + }, + { + "name": "translation", + "comment": "Creates a transformation matrix for translation:\n\n translation x y\n\n / 1 0 x \\\n \\ 0 1 y /", + "raw": "translation : Float -\u003e Float -\u003e Transform2D", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Transform2D", + "args": [] + } + } + } + ] +}, +{ + "name": "WebSocket", + "document": "A library for low latency HTTP communication. See the HTTP library for\nstandard requests like GET, POST, etc. The API of this library is likely to\nchange to make it more flexible.\n\n# Open a Connection\n@docs connect", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "connect", + "comment": "Create a web-socket. The first argument is the URL of the desired\nweb-socket server. The input signal holds the outgoing messages,\nand the resulting signal contains the incoming ones.", + "raw": "connect : String -\u003e Signal String -\u003e Signal String", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ] + } + } + } + ] +}, +{ + "name": "Window", + "document": "Provides information about the container that your Elm program lives in.\nWhen you embed Elm in a `\u003cdiv\u003e` it gives the dimensions of the container, not\nthe whole window.\n\n# Dimensions\n@docs dimensions, width, height", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "dimensions", + "comment": "The current width and height of the window (i.e. the area viewable to the\nuser, not including scroll bars).", + "raw": "dimensions : Signal (Int,Int)", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ] + } + }, + { + "name": "height", + "comment": "The current height of the window.", + "raw": "height : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + }, + { + "name": "width", + "comment": "The current width of the window.", + "raw": "width : Signal Int", + "type": { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + ] +}, +{ + "name": "Graphics.Collage", + "document": "The collage API is for freeform graphics. You can move, rotate, scale, etc.\nall sorts of forms including lines, shapes, images, and elements.\n\n# Unstructured Graphics\n@docs collage\n \n# Creating Forms\n@docs toForm, filled, textured, gradient, outlined, traced\n \n# Transforming Forms\n@docs move, moveX, moveY, scale, rotate, alpha\n \n# Grouping Forms\nGrouping forms makes it easier to write modular graphics code. You can create\na form that is a composite of many subforms. From there it is easy to transform\nit as a single unit.\n\n@docs group, groupTransform\n \n# Shapes\n@docs rect, oval, square, circle, ngon, polygon\n\n# Paths\n@docs segment, path\n \n# Line Styles\n@docs solid, dashed, dotted, LineStyle, LineCap, LineJoin, defaultLine", + "aliases": [ + { + "name": "Form", + "comment": "", + "raw": "type Form = {\n theta : Float,\n scale : Float,\n x : Float,\n y : Float,\n alpha : Float,\n form : BasicForm\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "theta", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "scale", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "x", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "alpha", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "form", + { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "LineStyle", + "comment": "All of the attributes of a line style. This lets you build up a line style\nhowever you want. You can also update existing line styles with record updates.", + "raw": "type LineStyle = {\n color : Color,\n width : Float,\n cap : LineCap,\n join : LineJoin,\n dashing : [Int],\n dashOffset : Int\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "cap", + { + "tag": "adt", + "name": "LineCap", + "args": [] + } + ], + [ + "join", + { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + ], + [ + "dashing", + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ], + [ + "dashOffset", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Path", + "comment": "", + "raw": "type Path = [(Float,Float)]", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + }, + { + "name": "Shape", + "comment": "", + "raw": "type Shape = [(Float,Float)]", + "typeVariables": [], + "type": { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + } + ], + "datatypes": [ + { + "name": "BasicForm", + "comment": "", + "raw": "data BasicForm\n = FPath LineStyle Path\n | FShape (Either LineStyle FillStyle) Shape\n | FImage Int Int (Int,Int) String\n | FElement Element\n | FGroup Transform2D [Form]", + "typeVariables": [], + "constructors": [ + { + "name": "FPath", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Path", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FShape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Either", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FImage", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FElement", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + }, + { + "name": "FGroup", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Transform2D", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + } + } + ] + }, + { + "name": "FillStyle", + "comment": "", + "raw": "data FillStyle\n = Solid Color\n | Texture String\n | Grad Gradient", + "typeVariables": [], + "constructors": [ + { + "name": "Solid", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + } + }, + { + "name": "Texture", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + } + }, + { + "name": "Grad", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Gradient", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "FillStyle", + "args": [] + } + } + } + ] + }, + { + "name": "LineCap", + "comment": "The shape of the ends of a line.", + "raw": "data LineCap = Flat | Round | Padded", + "typeVariables": [], + "constructors": [ + { + "name": "Flat", + "type": { + "tag": "adt", + "name": "LineCap", + "args": [] + } + }, + { + "name": "Round", + "type": { + "tag": "adt", + "name": "LineCap", + "args": [] + } + }, + { + "name": "Padded", + "type": { + "tag": "adt", + "name": "LineCap", + "args": [] + } + } + ] + }, + { + "name": "LineJoin", + "comment": "The shape of the “joints” of a line, where each line segment\nmeets. `Sharp` takes an argument to limit the length of the joint. This\ndefaults to 10.", + "raw": "data LineJoin = Smooth | Sharp Float | Clipped", + "typeVariables": [], + "constructors": [ + { + "name": "Smooth", + "type": { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + }, + { + "name": "Sharp", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + } + }, + { + "name": "Clipped", + "type": { + "tag": "adt", + "name": "LineJoin", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "alpha", + "comment": "Set the alpha of a `Form`. The default is 1, and 0 is totally transparent.", + "raw": "alpha : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "circle", + "comment": "A circle with a given radius.", + "raw": "circle : Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "collage", + "comment": "A collage is a collection of 2D forms. There are no strict positioning\nrelationships between forms, so you are free to do all kinds of 2D graphics.", + "raw": "collage : Int -\u003e Int -\u003e [Form] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "dashed", + "comment": "Create a dashed line style with a given color. Dashing equals `[8,4]`.", + "raw": "dashed : Color -\u003e LineStyle", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + } + }, + { + "name": "defaultLine", + "comment": "The default line style, which is solid black with flat caps and sharp joints.\nYou can use record updates to build the line style you\nwant. For example, to make a thicker line, you could say:\n\n { defaultLine | width \u003c- 10 }", + "raw": "defaultLine : LineStyle", + "type": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + }, + { + "name": "dotted", + "comment": "Create a dotted line style with a given color. Dashing equals `[3,3]`.", + "raw": "dotted : Color -\u003e LineStyle", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + } + }, + { + "name": "filled", + "comment": "Create a filled in shape.", + "raw": "filled : Color -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "form", + "comment": "", + "raw": "form : BasicForm -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "BasicForm", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "gradient", + "comment": "Fill a shape with a [gradient](/library/Color.elm#linear).", + "raw": "gradient : Gradient -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Gradient", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "group", + "comment": "Flatten many forms into a single `Form`. This lets you move and rotate them\nas a single unit, making it possible to build small, modular components.", + "raw": "group : [Form] -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "groupTransform", + "comment": "Flatten many forms into a single `Form` and then apply a matrix\ntransformation.", + "raw": "groupTransform : Transform2D -\u003e [Form] -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Transform2D", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Form", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "move", + "comment": "Move a form by the given amount. This is a relative translation so\n`(move (10,10) form)` would move `form` ten pixels up and ten pixels to the\nright.", + "raw": "move : (Float,Float) -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "moveX", + "comment": "Move a shape in the x direction. This is relative so `(moveX 10 form)` moves\n`form` 10 pixels to the right.", + "raw": "moveX : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "moveY", + "comment": "Move a shape in the y direction. This is relative so `(moveY 10 form)` moves\n`form` upwards by 10 pixels.", + "raw": "moveY : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "ngon", + "comment": "A regular polygon with N sides. The first argument specifies the number\nof sides and the second is the radius. So to create a pentagon with radius\n30 you would say:\n\n ngon 5 30", + "raw": "ngon : Int -\u003e Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "outlined", + "comment": "Outline a shape with a given line style.", + "raw": "outlined : LineStyle -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "oval", + "comment": "An oval with a given width and height.", + "raw": "oval : Float -\u003e Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "path", + "comment": "Create a path that follows a sequence of points.", + "raw": "path : [(Float,Float)] -\u003e Path", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Path", + "args": [] + } + } + }, + { + "name": "polygon", + "comment": "Create an arbitrary polygon by specifying its corners in order.\n`polygon` will automatically close all shapes, so the given list\nof points does not need to start and end with the same position.", + "raw": "polygon : [(Float,Float)] -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "rect", + "comment": "A rectangle with a given width and height.", + "raw": "rect : Float -\u003e Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "rotate", + "comment": "Rotate a form by a given angle. Rotate takes standard Elm angles (radians)\nand turns things counterclockwise. So to turn `form` 30° to the left\nyou would say, `(rotate (degrees 30) form)`.", + "raw": "rotate : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "scale", + "comment": "Scale a form by a given factor. Scaling by 2 doubles the size.", + "raw": "scale : Float -\u003e Form -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Form", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "segment", + "comment": "Create a path along a given line segment.", + "raw": "segment : (Float,Float) -\u003e (Float,Float) -\u003e Path", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Float", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Path", + "args": [] + } + } + }, + { + "name": "solid", + "comment": "Create a solid line style with a given color.", + "raw": "solid : Color -\u003e LineStyle", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "LineStyle", + "args": [] + } + } + }, + { + "name": "sprite", + "comment": "Create a sprite from a sprite sheet. It cuts out a rectangle\nat a given position.", + "raw": "sprite : Int -\u003e Int -\u003e (Int,Int) -\u003e String -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "square", + "comment": "A square with a given edge length.", + "raw": "square : Float -\u003e Shape", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Shape", + "args": [] + } + } + }, + { + "name": "textured", + "comment": "Create a textured shape. The texture is described by some url and is\ntiled to fill the entire shape.", + "raw": "textured : String -\u003e Shape -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Shape", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "toForm", + "comment": "Turn any `Element` into a `Form`. This lets you use text, gifs, and video\nin your collage. This means you can move, rotate, and scale\nan `Element` however you want.", + "raw": "toForm : Element -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + }, + { + "name": "traced", + "comment": "Trace a path with a given line style.", + "raw": "traced : LineStyle -\u003e Path -\u003e Form", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "LineStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Path", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Form", + "args": [] + } + } + } + ] +}, +{ + "name": "Graphics.Element", + "document": "Graphical elements that snap together to build complex widgets and layouts.\nEach Element is a rectangle with a known width and height, making them easy to\ncombine and position.\n\n# Images\n@docs image, fittedImage, croppedImage, tiledImage\n\n# Styling\n@docs width, height, size, color, opacity, link, tag\n\n# Inspection\n@docs widthOf, heightOf, sizeOf\n\n# Layout\n@docs flow, up, down, left, right, inward, outward\n\n## Layout Aliases\nThere are also some convenience functions for working\nwith `flow` in specific cases:\n\n@docs layers, above, below, beside\n\n# Positioning\n@docs empty, spacer, container\n\n## Specific Positions\n\nTo create a `Position` you can use any of the built-in positions\nwhich cover nine common positions.\n@docs middle, midTop, midBottom, midLeft, midRight, topLeft, topRight,\n bottomLeft, bottomRight\n\nIf you need more precision, you can create custom positions.\n\n@docs absolute, relative, middleAt, midTopAt, midBottomAt, midLeftAt,\n midRightAt, topLeftAt, topRightAt, bottomLeftAt, bottomRightAt", + "aliases": [ + { + "name": "Element", + "comment": "", + "raw": "type Element = { props : Properties, element : ElementPrim }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "props", + { + "tag": "adt", + "name": "Properties", + "args": [] + } + ], + [ + "element", + { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Position", + "comment": "", + "raw": "type Position = { horizontal : Three, vertical : Three, x : Pos, y : Pos }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "horizontal", + { + "tag": "adt", + "name": "Three", + "args": [] + } + ], + [ + "vertical", + { + "tag": "adt", + "name": "Three", + "args": [] + } + ], + [ + "x", + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + [ + "y", + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Properties", + "comment": "", + "raw": "type Properties = {\n id : Int,\n width : Int,\n height : Int,\n opacity : Float,\n color : Maybe Color,\n href : JSString,\n tag : JSString,\n hover : (),\n click : ()\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "id", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "height", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "opacity", + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + [ + "color", + { + "tag": "adt", + "name": "Maybe", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + } + ] + } + ], + [ + "href", + { + "tag": "adt", + "name": "JSString", + "args": [] + } + ], + [ + "tag", + { + "tag": "adt", + "name": "JSString", + "args": [] + } + ], + [ + "hover", + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ], + [ + "click", + { + "tag": "adt", + "name": "_Tuple0", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Direction", + "comment": "", + "raw": "data Direction = DUp | DDown | DLeft | DRight | DIn | DOut", + "typeVariables": [], + "constructors": [ + { + "name": "DUp", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DDown", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DLeft", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DRight", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DIn", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "DOut", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + } + ] + }, + { + "name": "ElementPrim", + "comment": "", + "raw": "data ElementPrim\n = Image ImageStyle Int Int JSString\n | Container Position Element\n | Flow Direction [Element]\n | Spacer\n | RawHtml\n | Custom", + "typeVariables": [], + "constructors": [ + { + "name": "Image", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "ImageStyle", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "JSString", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + }, + { + "name": "Container", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Position", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + }, + { + "name": "Flow", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Direction", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + }, + { + "name": "Spacer", + "type": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + }, + { + "name": "RawHtml", + "type": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + }, + { + "name": "Custom", + "type": { + "tag": "adt", + "name": "ElementPrim", + "args": [] + } + } + ] + }, + { + "name": "ImageStyle", + "comment": "", + "raw": "data ImageStyle = Plain | Fitted | Cropped (Int,Int) | Tiled", + "typeVariables": [], + "constructors": [ + { + "name": "Plain", + "type": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + }, + { + "name": "Fitted", + "type": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + }, + { + "name": "Cropped", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + } + }, + { + "name": "Tiled", + "type": { + "tag": "adt", + "name": "ImageStyle", + "args": [] + } + } + ] + }, + { + "name": "Pos", + "comment": "", + "raw": "data Pos = Absolute Int | Relative Float", + "typeVariables": [], + "constructors": [ + { + "name": "Absolute", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + }, + { + "name": "Relative", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + } + ] + }, + { + "name": "Three", + "comment": "", + "raw": "data Three = P | Z | N", + "typeVariables": [], + "constructors": [ + { + "name": "P", + "type": { + "tag": "adt", + "name": "Three", + "args": [] + } + }, + { + "name": "Z", + "type": { + "tag": "adt", + "name": "Three", + "args": [] + } + }, + { + "name": "N", + "type": { + "tag": "adt", + "name": "Three", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "above", + "comment": "Stack elements vertically.\nTo put `a` above `b` you would say: ``a `above` b``", + "raw": "above : Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "absolute", + "comment": "", + "raw": "absolute : Int -\u003e Pos", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + }, + { + "name": "below", + "comment": "Stack elements vertically.\nTo put `a` below `b` you would say: ``a `below` b``", + "raw": "below : Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "beside", + "comment": "Put elements beside each other horizontally.\nTo put `a` beside `b` you would say: ``a `beside` b``", + "raw": "beside : Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "bottomLeft", + "comment": "", + "raw": "bottomLeft : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "bottomLeftAt", + "comment": "", + "raw": "bottomLeftAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "bottomRight", + "comment": "", + "raw": "bottomRight : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "bottomRightAt", + "comment": "", + "raw": "bottomRightAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "color", + "comment": "Create an `Element` with a given background color.", + "raw": "color : Color -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Color", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "container", + "comment": "Put an element in a container. This lets you position the element really\neasily, and there are tons of ways to set the `Position`.\nTo center `element` exactly in a 300-by-300 square you would say:\n\n container 300 300 middle element\n\nBy setting the color of the container, you can create borders.", + "raw": "container : Int -\u003e Int -\u003e Position -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Position", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "croppedImage", + "comment": "Create a cropped image. Take a rectangle out of the picture starting\nat the given top left coordinate. If you have a 140-by-140 image,\nthe following will cut a 100-by-100 square out of the middle of it.\n\n croppedImage (20,20) 100 100 \"yogi.jpg\"", + "raw": "croppedImage : (Int,Int) -\u003e Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "down", + "comment": "", + "raw": "down : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "empty", + "comment": "An Element that takes up no space. Good for things that appear conditionally:\n\n flow down [ img1, if showMore then img2 else empty ]", + "raw": "empty : Element", + "type": { + "tag": "adt", + "name": "Element", + "args": [] + } + }, + { + "name": "fittedImage", + "comment": "Create a fitted image given a width, height, and image source.\nThis will crop the picture to best fill the given dimensions.", + "raw": "fittedImage : Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "flow", + "comment": "Have a list of elements flow in a particular direction.\nThe `Direction` starts from the first element in the list.\n\n flow right [a,b,c]\n\n +---+---+---+\n | a | b | c |\n +---+---+---+", + "raw": "flow : Direction -\u003e [Element] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Direction", + "args": [] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "height", + "comment": "Create an `Element` with a given height.", + "raw": "height : Int -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "heightOf", + "comment": "Get the height of an Element", + "raw": "heightOf : Element -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + }, + { + "name": "image", + "comment": "Create an image given a width, height, and image source.", + "raw": "image : Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "inward", + "comment": "", + "raw": "inward : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "layers", + "comment": "Layer elements on top of each other, starting from the bottom:\n`layers == flow outward`", + "raw": "layers : [Element] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "left", + "comment": "", + "raw": "left : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "link", + "comment": "Create an `Element` that is a hyper-link.", + "raw": "link : String -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "midBottom", + "comment": "", + "raw": "midBottom : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midBottomAt", + "comment": "", + "raw": "midBottomAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "midLeft", + "comment": "", + "raw": "midLeft : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midLeftAt", + "comment": "", + "raw": "midLeftAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "midRight", + "comment": "", + "raw": "midRight : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midRightAt", + "comment": "", + "raw": "midRightAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "midTop", + "comment": "", + "raw": "midTop : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "midTopAt", + "comment": "", + "raw": "midTopAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "middle", + "comment": "", + "raw": "middle : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "middleAt", + "comment": "", + "raw": "middleAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "opacity", + "comment": "Create an `Element` with a given opacity. Opacity is a number between 0 and 1\nwhere 0 means totally clear.", + "raw": "opacity : Float -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "outward", + "comment": "", + "raw": "outward : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "relative", + "comment": "", + "raw": "relative : Float -\u003e Pos", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Float", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Pos", + "args": [] + } + } + }, + { + "name": "right", + "comment": "", + "raw": "right : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "size", + "comment": "Create an `Element` with a new width and height.", + "raw": "size : Int -\u003e Int -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "sizeOf", + "comment": "Get the width and height of an Element", + "raw": "sizeOf : Element -\u003e (Int,Int)", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + } + } + }, + { + "name": "spacer", + "comment": "Create an empty box. This is useful for getting your spacing right and\nfor making borders.", + "raw": "spacer : Int -\u003e Int -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "tag", + "comment": "Create an `Element` with a tag. This lets you link directly to it.\nThe element `(tag \"all-about-badgers\" thirdParagraph)` can be reached\nwith a link like this: `/facts-about-animals.elm#all-about-badgers`", + "raw": "tag : String -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "tiledImage", + "comment": "", + "raw": "tiledImage : Int -\u003e Int -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "topLeft", + "comment": "", + "raw": "topLeft : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "topLeftAt", + "comment": "", + "raw": "topLeftAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "topRight", + "comment": "", + "raw": "topRight : Position", + "type": { + "tag": "adt", + "name": "Position", + "args": [] + } + }, + { + "name": "topRightAt", + "comment": "", + "raw": "topRightAt : Pos -\u003e Pos -\u003e Position", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Pos", + "args": [] + }, + { + "tag": "adt", + "name": "Pos", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Position", + "args": [] + } + } + }, + { + "name": "up", + "comment": "", + "raw": "up : Direction", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "width", + "comment": "Create an `Element` with a given width.", + "raw": "width : Int -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "widthOf", + "comment": "Get the width of an Element", + "raw": "widthOf : Element -\u003e Int", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Int", + "args": [] + } + } + } + ] +}, +{ + "name": "Graphics.Input", + "document": "This module is for creating standard input widgets such as buttons and\ntext fields. All functions in this library follow a general pattern in which\nyou create an `Input` that many elements can report to:\n\n```haskell\nclicks : Input ()\nclicks = input ()\n\nclickableYogi : Element\nclickableYogi = clickable clicks.handle () (image 40 40 \"/yogi.jpg\")\n```\n\nWhenever the user clicks on the resulting `clickableYogi` element, it sends an\nupdate to the `clicks` input. You will see this pattern again and again in\nexamples in this library, so just read on to get a better idea of how it works!\n\n# Creating Inputs\n@docs Input, input\n\n# Basic Input Elements\n\nTo learn about text fields, see the\n[`Graphics.Input.Field`](Graphics-Input-Field) library.\n\n@docs button, customButton, checkbox, dropDown\n\n# Clicks and Hovers\n@docs clickable, hoverable", + "aliases": [ + { + "name": "Input", + "comment": "This is the key abstraction of this library. An `Input` is a record\nof two fields:\n\n 1. `signal` — all values coming to this input from “the world”\n 2. `handle` — a way to refer to this particular input and send it values\n\nThis will make more sense as you see more examples.", + "raw": "type Input a = { signal : Signal a, handle : Handle a }", + "typeVariables": [ + "a" + ], + "type": { + "tag": "record", + "fields": [ + [ + "signal", + { + "tag": "adt", + "name": "Signal", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ], + [ + "handle", + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Handle", + "comment": "", + "raw": "data Handle a = Handle", + "typeVariables": [ + "a" + ], + "constructors": [ + { + "name": "Handle", + "type": { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + ] + } + ], + "values": [ + { + "name": "button", + "comment": "Create a standard button. The following example begins making a basic\ncalculator:\n\n data Keys = Number Int | Plus | Minus | Clear\n\n keys : Input Keys\n keys = input Clear\n\n calculator : Element\n calculator =\n flow right [ button keys.handle (Number 1) \"1\"\n , button keys.handle (Number 2) \"2\"\n , button keys.handle Plus \"+\"\n ]\n\nIf the user presses the \"+\" button, `keys.signal` will update to `Plus`. If the\nusers presses \"2\", `keys.signal` will update to `(Number 2)`.", + "raw": "button : Handle a -\u003e a -\u003e String -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "checkbox", + "comment": "Create a checkbox. The following example creates three synced checkboxes:\n\n check : Input Bool\n check = input False\n\n boxes : Bool -\u003e Element\n boxes checked =\n let box = container 40 40 middle (checkbox check.handle id checked)\n in flow right [ box, box, box ]\n\n main : Signal Element\n main = boxes \u003c~ check.signal", + "raw": "checkbox : Handle a -\u003e (Bool -\u003e a) -\u003e Bool -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "clickable", + "comment": "Detect mouse clicks on a specific `Element`. In the following example,\nwe will create a clickable picture called `cat`.\n\n data Picture = Cat | Hat\n\n picture : Input Picture\n picture = input Cat\n\n cat : Element\n cat = image 30 30 \"/cat.jpg\"\n |\u003e clickable picture.handle Cat\n\n hat : Element\n hat = image 30 30 \"/hat.jpg\"\n |\u003e clickable picture.handle Hat\n\nWhen the user clicks on the `cat` element, `picture.signal` receives\nan update containing the value `Cat`. When the user clicks on the `hat` element,\n`picture.signal` receives an update containing the value `Hat`. This lets you\ndistinguish which element was clicked. In a more complex example, they could be\ndistinguished with IDs or more complex data structures.", + "raw": "clickable : Handle a -\u003e a -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "customButton", + "comment": "Same as `button` but lets you customize buttons to look however you want.\n\n click : Input ()\n click = input ()\n\n prettyButton : Element\n prettyButton =\n customButton click.handle\n (image 100 40 \"/button_up.jpg\")\n (image 100 40 \"/button_hover.jpg\")\n (image 100 40 \"/button_down.jpg\")", + "raw": "customButton : Handle a -\u003e a -\u003e Element -\u003e Element -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "var", + "name": "a" + }, + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "dropDown", + "comment": "Create a drop-down menu. The following drop-down lets you choose your\nfavorite British sport:\n\n data Sport = Football | Cricket | Snooker\n\n sport : Input (Maybe Sport)\n sport = input Nothing\n\n sportDropDown : Element\n sportDropDown =\n dropDown sport.handle\n [ (\"\" , Nothing)\n , (\"Football\", Just Football)\n , (\"Cricket\" , Just Cricket)\n , (\"Snooker\" , Just Snooker)\n ]\n\nIf the user selects \"Football\" from the drop down menue, `sport.signal`\nwill update to `Just Football`.", + "raw": "dropDown : Handle a -\u003e [(String,a)] -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "adt", + "name": "_List", + "args": [ + { + "tag": "adt", + "name": "_Tuple2", + "args": [ + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "var", + "name": "a" + } + ] + } + ] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "hoverable", + "comment": "Detect mouse hovers over a specific `Element`. In the following example,\nwe will create a hoverable picture called `cat`.\n\n hover : Input Bool\n hover = input False\n\n cat : Element\n cat = image 30 30 \"/cat.jpg\"\n |\u003e hoverable hover.handle id\n\nWhen the mouse hovers above the `cat` element, `hover.signal` will become\n`True`. When the mouse leaves it, `hover.signal` will become `False`.", + "raw": "hoverable : Handle a -\u003e (Bool -\u003e a) -\u003e Element -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Bool", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "Element", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "input", + "comment": "This creates a new `Input`. You provide a single argument that will serve\nas the initial value of the input’s `signal`. For example:\n\n numbers : Input Int\n numbers = input 42\n\nThe initial value of `numbers.signal` is 42, and you will be able\nto pipe updates to the input using `numbers.handle`.\n\nNote: This is an inherently impure function. Specifically, `(input ())` and\n`(input ())` are actually two different inputs with different signals and handles.", + "raw": "input : a -\u003e Input a", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "Input", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + } + } + } + ] +}, +{ + "name": "Graphics.Input.Field", + "document": "This library provides an API for creating and updating text fields.\nText fields use exactly the same approach as [`Graphics.Input`](Graphics-Input)\nfor modelling user input, allowing you to keep track of new events and update\ntext fields programmatically.\n\n# Create Fields\n@docs field, password, email\n\n# Field Content\n@docs Content, Selection, Direction, noContent\n\n# Field Style\n@docs Style, Outline, noOutline, Highlight, noHighlight, Dimensions, uniformly", + "aliases": [ + { + "name": "Content", + "comment": "Represents the current content of a text field. For example:\n\n content = Content \"She sells sea shells\" (Selection 0 3 Backward)\n\nThis means the user highlighted the substring `\"She\"` backwards. The value of\n`content.string` is `\"She sells sea shells\"`.", + "raw": "type Content = { string:String, selection:Selection }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "string", + { + "tag": "adt", + "name": "String", + "args": [] + } + ], + [ + "selection", + { + "tag": "adt", + "name": "Selection", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Dimensions", + "comment": "For setting dimensions of a fields padding or border. The left, right, top,\nand bottom may all have different sizes. The following example creates\ndimensions such that the left and right are twice as wide as the top and bottom:\n\n myDimensions : Int -\u003e Dimensions\n myDimensions n = { left = 2 * n, right = 2 * n, top = n, bottom = n }", + "raw": "type Dimensions = { left:Int, right:Int, top:Int, bottom:Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "left", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "right", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "top", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "bottom", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Highlight", + "comment": "When a field has focus, it has a blue highlight around it by default. The\n`Highlight` lets you set the `color` and `width` of this highlight. Set the\n`width` to zero to turn the highlight off. Here is an example highlight that\nis blue and thin:\n\n { color = blue, width = 1 }", + "raw": "type Highlight = { color:Color, width:Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Outline", + "comment": "A field can have a outline around it. This lets you set its color, width,\nand radius. The radius allows you to round the corners of your field. Set the\nwidth to zero to make it invisible. Here is an example outline that is grey\nand thin with slightly rounded corners:\n\n { color = grey, width = uniformly 1, radius = 4 }", + "raw": "type Outline = { color:Color, width:Dimensions, radius:Int }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "color", + { + "tag": "adt", + "name": "Color", + "args": [] + } + ], + [ + "width", + { + "tag": "adt", + "name": "Dimensions", + "args": [] + } + ], + [ + "radius", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Selection", + "comment": "The selection within a text field. `start` is never greater than `end`:\n\n Selection 0 0 Forward -- cursor precedes all characters\n\n Selection 5 9 Backward -- highlighting characters starting after\n -- the 5th and ending after the 9th", + "raw": "type Selection = { start:Int, end:Int, direction:Direction }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "start", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "end", + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + [ + "direction", + { + "tag": "adt", + "name": "Direction", + "args": [] + } + ] + ], + "extension": null + } + }, + { + "name": "Style", + "comment": "Describe the style of a text box. `style` describes the style of the text\nitself using [`Text.Style`](/Text#Style). `outline` describes the glowing blue\noutline that shows up when the field has focus. `outline` describes the line\nsurrounding the text field, and `padding` adds whitespace between the `outline`\nand the text.\n\nThe width and height of the text box *includes* the `padding` and `outline`.\nSay we have a text box that is 40 pixels tall. It has a uniform outline of\n1 pixel and a uniform padding of 5 pixels. Both of these must be subtracted\nfrom the total height to determine how much room there is for text. The\n`padding` and `outline` appear on the top and bottom, so there will be 28\nvertical pixels remaining for the text (40 - 1 - 5 - 5 - 1).", + "raw": "type Style =\n { padding : Dimensions\n , outline : Outline\n , highlight : Highlight\n , style : Text.Style\n }", + "typeVariables": [], + "type": { + "tag": "record", + "fields": [ + [ + "padding", + { + "tag": "adt", + "name": "Dimensions", + "args": [] + } + ], + [ + "outline", + { + "tag": "adt", + "name": "Outline", + "args": [] + } + ], + [ + "highlight", + { + "tag": "adt", + "name": "Highlight", + "args": [] + } + ], + [ + "style", + { + "tag": "adt", + "name": "Text.Style", + "args": [] + } + ] + ], + "extension": null + } + } + ], + "datatypes": [ + { + "name": "Direction", + "comment": "The direction of selection. When the user highlights a selection in a text\nfield, they must do it in a particular direction. This determines which end of\nthe selection moves when they change the selection by pressing Shift-Left or\nShift-Right.", + "raw": "data Direction = Forward | Backward", + "typeVariables": [], + "constructors": [ + { + "name": "Forward", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + }, + { + "name": "Backward", + "type": { + "tag": "adt", + "name": "Direction", + "args": [] + } + } + ] + } + ], + "values": [ + { + "name": "defaultStyle", + "comment": "The default style for a text field. The outline is `Color.grey` with width\n1 and radius 2. The highlight is `Color.blue` with width 1, and the default\ntext color is black.", + "raw": "defaultStyle : Style", + "type": { + "tag": "adt", + "name": "Style", + "args": [] + } + }, + { + "name": "email", + "comment": "Same as `field` but it adds an annotation that this field is for email\naddresses. This is helpful for auto-complete and for mobile users who may\nget a custom keyboard with an `@` and `.com` button.", + "raw": "email : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "field", + "comment": "Create a text field. The following example creates a time-varying element\ncalled `nameField`. As the user types their name, the field will be updated\nto match what they have entered.\n\n name : Input Content\n name = input noContent\n\n nameField : Signal Element\n nameField = field defaultStyle name.handle id \"Name\" \u003c~ name.signal\n\nWhen we use the `field` function, we first give it a visual style. This is\nthe first argument so that it is easier to define your own custom field\n(`myField = field myStyle`). The next two arguments are a `Handle` and a\nhandler function that processes or augments events before sending them along\nto the associated `Input`. In the example above we use the `id` function to\npass events along unchanged to the `name` `Input`. We then provide the\nplace-holder message to use when no input has been provided yet. Finally,\nwe give the current `Content` of the field. This argument is last because\nit is most likely to change frequently, making function composition easier.", + "raw": "field : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "noContent", + "comment": "A field with no content:\n\n Content \"\" (Selection 0 0 Forward)", + "raw": "noContent : Content", + "type": { + "tag": "adt", + "name": "Content", + "args": [] + } + }, + { + "name": "noHighlight", + "comment": "An highlight with zero width, so you cannot see it.", + "raw": "noHighlight : Highlight", + "type": { + "tag": "adt", + "name": "Highlight", + "args": [] + } + }, + { + "name": "noOutline", + "comment": "An outline with zero width, so you cannot see it.", + "raw": "noOutline : Outline", + "type": { + "tag": "adt", + "name": "Outline", + "args": [] + } + }, + { + "name": "password", + "comment": "Same as `field` but the UI element blocks out each characters.", + "raw": "password : Style -\u003e Handle a -\u003e (Content -\u003e a) -\u003e String -\u003e Content -\u003e Element", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Style", + "args": [] + }, + { + "tag": "adt", + "name": "Handle", + "args": [ + { + "tag": "var", + "name": "a" + } + ] + }, + { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + }, + { + "tag": "adt", + "name": "String", + "args": [] + }, + { + "tag": "adt", + "name": "Content", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Element", + "args": [] + } + } + }, + { + "name": "uniformly", + "comment": "Create uniform dimensions:\n\n uniformly 4 == { left=4, right=4, top=4, bottom=4 }\n\nThe following example creates an outline where the left, right, top, and bottom\nedges all have width 1:\n\n Outline grey (uniformly 1) 4", + "raw": "uniformly : Int -\u003e Dimensions", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "Int", + "args": [] + } + ], + "result": { + "tag": "adt", + "name": "Dimensions", + "args": [] + } + } + } + ] +}, +{ + "name": "JavaScript.Experimental", + "document": "A pair of very experimental functions for converting between\nElm records and JavaScript objects. It currently uses a best effort\nconversion that can cause runtime errors. This API should change and\nimprove as we find its key failings.\n\n# Converting between Elm records and JS Objects\n@docs toRecord, fromRecord", + "aliases": [], + "datatypes": [], + "values": [ + { + "name": "fromRecord", + "comment": "Turn arbitrary Elm records into JavaScript objects.\nLists become arrays, nested records are allowed. No ADTs.\n\n -- OK records\n { student=\"Steve\", scores=[83,94,99,72] }\n { errorLevel=10, critical=True }\n\n -- BAD records\n { answer = Nothing }\n { result = Left \"An error occurred\" }", + "raw": "fromRecord : a -\u003e JSObject", + "type": { + "tag": "function", + "args": [ + { + "tag": "var", + "name": "a" + } + ], + "result": { + "tag": "adt", + "name": "JSObject", + "args": [] + } + } + }, + { + "name": "toRecord", + "comment": "Turn arbitrary JavaScript objects into Elm records.\nArrays are converted into lists, nested objects are allowed.\nNo `null` values or non-homogeneous arrays.\n\n -- OK objects\n { student:\"Steve\", scores:[83,94,99,72] }\n { errorLevel:10, critical:true }\n\n -- BAD objects\n { answer:null }\n { info:[true,42,'what'] }", + "raw": "toRecord : JSObject -\u003e a", + "type": { + "tag": "function", + "args": [ + { + "tag": "adt", + "name": "JSObject", + "args": [] + } + ], + "result": { + "tag": "var", + "name": "a" + } + } } ] } diff --git a/data/elm-runtime.js b/data/elm-runtime.js --- a/data/elm-runtime.js +++ b/data/elm-runtime.js @@ -1,7234 +1,8325 @@ -var Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {}; -var ElmRuntime = {}; ElmRuntime.Render = {}; - -Elm.Native.Basics = {}; -Elm.Native.Basics.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Basics = elm.Native.Basics || {}; - if (elm.Native.Basics.values) return elm.Native.Basics.values; - - var JS = Elm.Native.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function div(a,b) { return (a/b)|0; } - function rem(a,b) { return a % b; } - var mod = Utils.mod; - function abs(x) { return x < 0 ? -x : x; } - function logBase(base,n) { return Math.log(n) / Math.log(base); } - function min(a,b) { return Utils.cmp(a,b) < 0 ? a : b; } - function max(a,b) { return Utils.cmp(a,b) > 0 ? a : b; } - function clamp(lo,hi,n) { - return Utils.cmp(n,lo) < 0 ? lo : Utils.cmp(n,hi) > 0 ? hi : n; } - function xor(a,b) { return a !== b; } - function not(b) { return !b; } - - function truncate(n) { return n|0; } - - var basics = { - div:F2(div), - rem:F2(rem), - mod:mod, - - pi:Math.PI, - e:Math.E, - cos:Math.cos, - sin:Math.sin, - tan:Math.tan, - acos:Math.acos, - asin:Math.asin, - atan:Math.atan, - atan2:F2(Math.atan2), - - sqrt:Math.sqrt, - abs:abs, - logBase:F2(logBase), - min:F2(min), - max:F2(max), - clamp:F3(clamp), - compare:Utils.compare, - - xor:F2(xor), - not:not, - - truncate:truncate, - ceiling:Math.ceil, - floor:Math.floor, - round:Math.round, - toFloat:function(x) { return x; }, - }; - - return elm.Native.Basics.values = basics; -}; -Elm.Native.Bitwise = {}; -Elm.Native.Bitwise.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Bitwise = elm.Native.Bitwise || {}; - if (elm.Native.Bitwise.values) return elm.Native.Bitwise.values; - - function and(a,b) { return a & b; } - function or (a,b) { return a | b; } - function xor(a,b) { return a ^ b; } - function not(a) { return ~a; } - function sll(a,offset) { return a << offset; } - function sra(a,offset) { return a >> offset; } - function srl(a,offset) { return a >>> offset; } - - return elm.Native.Bitwise.values = { - and: A2(and), - or : A2(or ), - xor: A2(xor), - complement: not, - shiftLeft : A2(sll), - shiftRightArithmatic: A2(sra), - shiftRightLogical : A2(srl), - }; - -}; -Elm.Native.Char = {}; -Elm.Native.Char.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Char = elm.Native.Char || {}; - if (elm.Native.Char.values) return elm.Native.Char.values; - - function isBetween(lo,hi) { return function(chr) { - var c = chr.charCodeAt(0); - return lo <= c && c <= hi; - }; - } - var isDigit = isBetween('0'.charCodeAt(0),'9'.charCodeAt(0)); - var chk1 = isBetween('a'.charCodeAt(0),'f'.charCodeAt(0)); - var chk2 = isBetween('A'.charCodeAt(0),'F'.charCodeAt(0)); - - return elm.Native.Char.values = { - fromCode : function(c) { return String.fromCharCode(c); }, - toCode : function(c) { return c.toUpperCase().charCodeAt(0); }, - toUpper : function(c) { return c.toUpperCase(); }, - toLower : function(c) { return c.toLowerCase(); }, - toLocaleUpper : function(c) { return c.toLocaleUpperCase(); }, - toLocaleLower : function(c) { return c.toLocaleLowerCase(); }, - isLower : isBetween('a'.charCodeAt(0),'z'.charCodeAt(0)), - isUpper : isBetween('A'.charCodeAt(0),'Z'.charCodeAt(0)), - isDigit : isDigit, - isOctDigit : isBetween('0'.charCodeAt(0),'7'.charCodeAt(0)), - isHexDigit : function(c) { return isDigit(c) || chk1(c) || chk2(c); } - }; -}; -Elm.Native.Color = {}; -Elm.Native.Color.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Color = elm.Native.Color || {}; - if (elm.Native.Color.values) return elm.Native.Color.values; - - var Utils = Elm.Native.Utils.make(elm); - - function complement(rgb) { - var hsv = toHSV(rgb); - hsv.hue = (hsv.hue + 180) % 360; - return toRGB(hsv); - } - - function hsva(h,s,v,a) { - var degree = A2(Utils.mod, h * 180 / Math.PI, 360); - var clr = toRGB({hue:degree, saturation:s, value:v}); - clr._3 = a; - return clr; - } - - function hsv(h,s,v) { - var degree = A2(Utils.mod, h * 180 / Math.PI, 360); - return toRGB({hue:degree, saturation:s, value:v}); - } - - function toHSV(rgb) { - var hsv = {}; - var r = rgb._0 / 255.0, g = rgb._1 / 255.0, b = rgb._2 / 255.0; - var M = Math.max(r,g,b); - var m = Math.min(r,g,b); - var c = M - m; - - var h = 0; - if (c === 0) { h = 0; } - else if (M === r) { h = ((g - b) / c) % 6; } - else if (M === g) { h = ((b - r) / c) + 2; } - else if (M === b) { h = ((r - g) / c) + 4; } - h *= 60; - - return { value : M, hue : h, saturation : (M === 0 ? 0 : c / M) }; - } - - function between(lo,hi,x) { return lo <= x && x < hi; } - function norm(n) { return Math.round(n*255); } - - function toRGB(hsv) { - var c = hsv.value * hsv.saturation; - var hue = hsv.hue / 60; - var x = c * (1 - Math.abs((hue % 2) - 1)); - var r = 0, g = 0, b = 0; - if (between(0,1,hue)) { r = c; g = x; b = 0; } - else if (between(1,2,hue)) { r = x; g = c; b = 0; } - else if (between(2,3,hue)) { r = 0; g = c; b = x; } - else if (between(3,4,hue)) { r = 0; g = x; b = c; } - else if (between(4,5,hue)) { r = x; g = 0; b = c; } - else if (between(5,6,hue)) { r = c; g = 0; b = x; } - - var m = hsv.value - c; - return { ctor:"Color", _0:norm(r+m), _1:norm(g+m), _2:norm(b+m), _3:1 }; - } - - return elm.Native.Color.values = { - hsva:F4(hsva), - hsv:F3(hsv), - complement:complement - }; - -};Elm.Native.Date = {}; -Elm.Native.Date.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Date = elm.Native.Date || {}; - if (elm.Native.Date.values) return elm.Native.Date.values; - - var JS = Elm.JavaScript.make(elm); - var Maybe = Elm.Maybe.make(elm); - - function dateNow() { return new window.Date; } - function readDate(str) { - var d = new window.Date(JS.fromString(str)); - if (isNaN(d.getTime())) return Maybe.Nothing; - return Maybe.Just(d); - } - - var dayTable = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]; - var monthTable = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", - "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]; - - return elm.Native.Date.values = { - read : readDate, - year : function(d) { return d.getFullYear(); }, - month : function(d) { return { ctor:monthTable[d.getMonth()] }; }, - day : function(d) { return d.getDate(); }, - hour : function(d) { return d.getHours(); }, - minute : function(d) { return d.getMinutes(); }, - second : function(d) { return d.getSeconds(); }, - toTime : function(d) { return d.getTime(); }, - dayOfWeek : function(d) { return { ctor:dayTable[d.getDay()] }; } - }; - -}; -Elm.Native.Error = {}; -Elm.Native.Error.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Error = elm.Native.Error || {}; - if (elm.Native.Error.values) return elm.Native.Error.values; - - var fromString = Elm.Native.JavaScript.make(elm).fromString; - - function indent(lines) { - var msg = ''; - for (var i = 0; i < lines.length; ++i) { - msg += '
    ' + lines[i]; - } - return msg; - } - - function Case(moduleName, span) { - var msg = indent(['Non-exhaustive pattern match in case-expression.', - 'Make sure your patterns cover every case!']); - throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); - } - - function If(moduleName, span) { - var msg = indent(['Non-exhaustive pattern match in multi-way-if expression.', - 'It is best to use \'otherwise\' as the last branch of multi-way-if.']); - throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); - } - - function raise(str) { throw new Error(fromString(str)); } - - return elm.Native.Error.values = { Case: Case, If: If, raise: raise }; -}; -function F2(fun) { - function wrapper(a) { return function(b) { return fun(a,b) } } - wrapper.arity = 2; - wrapper.func = fun; - return wrapper; -} - -function F3(fun) { - function wrapper(a) { - return function(b) { return function(c) { return fun(a,b,c) }} - } - wrapper.arity = 3; - wrapper.func = fun; - return wrapper; -} - -function F4(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return fun(a,b,c,d) }}} - } - wrapper.arity = 4; - wrapper.func = fun; - return wrapper; -} - -function F5(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return fun(a,b,c,d,e) }}}} - } - wrapper.arity = 5; - wrapper.func = fun; - return wrapper; -} - -function F6(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return fun(a,b,c,d,e,f) }}}}} - } - wrapper.arity = 6; - wrapper.func = fun; - return wrapper; -} - -function F7(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return function(g) { return fun(a,b,c,d,e,f,g) }}}}}} - } - wrapper.arity = 7; - wrapper.func = fun; - return wrapper; -} - -function F8(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return function(g) { return function(h) {return fun(a,b,c,d,e,f,g,h)}}}}}}} - } - wrapper.arity = 8; - wrapper.func = fun; - return wrapper; -} - -function F9(fun) { - function wrapper(a) { return function(b) { return function(c) { - return function(d) { return function(e) { return function(f) { - return function(g) { return function(h) { return function(i) { - return fun(a,b,c,d,e,f,g,h,i) }}}}}}}} - } - wrapper.arity = 9; - wrapper.func = fun; - return wrapper; -} - -function A2(fun,a,b) { - return fun.arity === 2 ? fun.func(a,b) : fun(a)(b); -} -function A3(fun,a,b,c) { - return fun.arity === 3 ? fun.func(a,b,c) : fun(a)(b)(c); -} -function A4(fun,a,b,c,d) { - return fun.arity === 4 ? fun.func(a,b,c,d) : fun(a)(b)(c)(d); -} -function A5(fun,a,b,c,d,e) { - return fun.arity === 5 ? fun.func(a,b,c,d,e) : fun(a)(b)(c)(d)(e); -} -function A6(fun,a,b,c,d,e,f) { - return fun.arity === 6 ? fun.func(a,b,c,d,e,f) : fun(a)(b)(c)(d)(e)(f); -} -function A7(fun,a,b,c,d,e,f,g) { - return fun.arity === 7 ? fun.func(a,b,c,d,e,f,g) : fun(a)(b)(c)(d)(e)(f)(g); -} -function A8(fun,a,b,c,d,e,f,g,h) { - return fun.arity === 8 ? fun.func(a,b,c,d,e,f,g,h) : fun(a)(b)(c)(d)(e)(f)(g)(h); -} -function A9(fun,a,b,c,d,e,f,g,h,i) { - return fun.arity === 9 ? fun.func(a,b,c,d,e,f,g,h,i) - : fun(a)(b)(c)(d)(e)(f)(g)(h)(i); -} -Elm.Native.JavaScript = {}; -Elm.Native.JavaScript.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.JavaScript = elm.Native.JavaScript || {}; - if (elm.Native.JavaScript.values) return elm.Native.JavaScript.values; - - var List = Elm.Native.List.make(elm); - var Render = ElmRuntime.use(ElmRuntime.Render.Element); - - function fromJS(v) { - var type = typeof v; - if (type === 'number' ) return v; - if (type === 'boolean') return v; - if (type === 'string' ) return v; - if (v instanceof Array) { - var arr = []; - var len = v.length; - for (var i = 0; i < len; ++i) { - var x = fromJS(v[i]); - if (x !== null) arr.push(x); - } - return List.fromArray(arr); - } - if (type === 'object') { - var rec = { _:{} }; - for (var f in v) { - var x = fromJS(v[f]); - if (x !== null) rec[f] = x; - } - return rec; - } - return null; - } - - function toJS(v) { - var type = typeof v; - if (type === 'number' || type === 'boolean' || type === 'string') return v; - if (type === 'object' && '_' in v) { - var obj = {}; - for (var k in v) { - var x = toJS(v[k]); - if (x !== null) obj[k] = x; - } - return obj; - } - if (type === 'object' && (v.ctor === '::' || v.ctor === '[]')) { - var array = List.toArray(v); - for (var i = array.length; i--; ) { - array[i] = toJS(array[i]); - } - return array; - } - return null; - } - - function fromRecord(r) { - if (typeof r === 'object' && '_' in r) { - return toJS(r); - } - throw new Error("'fromRecord' must be called on a record."); - } - - function id(n) { return n; } - - function toElement(w,h,domNode) { - return A3( newElement, w, h, { - ctor: 'Custom', - type: 'DomNode', - render: function(node) { return node; }, - update: function(node,oldNode,newNode) { - if (node === newNode) return; - node.parentNode.replaceChild(newNode, node); - }, - model: domNode - }); - } - - function fromElement(element) { - return Render.render(element); - } - - return elm.Native.JavaScript.values = { - toInt : function(n) { return n|0; }, - toFloat : function(n) { return +n; }, - toBool : id, - toString : id, - toList : List.fromArray, - fromString : id, - fromList : List.toArray, - fromInt : id, - fromFloat : id, - fromBool : id, - - toElement : toElement, - fromElement : fromElement, - toRecord : fromJS, - fromRecord : fromRecord - }; - -}; -Elm.Native.Json = {}; -Elm.Native.Json.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Json = elm.Native.Json || {}; - if (elm.Native.Json.values) return elm.Native.Json.values; - - var Maybe = Elm.Maybe.make(elm); - var Dict = Elm.Dict.make(elm); - var List = Elm.List.make(elm); - var JS = Elm.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function fromValue(v) { - switch (v.ctor) { - case 'Null' : return null; - case 'String' : return JS.fromString(v._0); - case 'Object' : - var obj = {}; - var array = JS.fromList(Dict.toList(v._0)); - for (var i = array.length; i--; ) { - obj[JS.fromString(array[i]._0)] = fromValue(array[i]._1); - } - return obj; - case 'Array' : - var array = JS.fromList(v._0); - for (var i = array.length; i--; ) { - array[i] = fromValue(array[i]); - } - return array; - default : - return v._0; - } - } - - function toPrettyJSString(sep, obj) { - return JSON.stringify(fromValue(obj), null, JS.fromString(sep)); - } - - function toValue(v) { - switch (typeof v) { - case 'string' : return { ctor:"String", _0: JS.toString(v) }; - case 'number' : return { ctor:"Number", _0: JS.toFloat(v) }; - case 'boolean': return { ctor:"Boolean" , _0: JS.toBool(v) }; - case 'object' : - if (v === null) return { ctor:"Null" }; - if (v instanceof Array) { - for (var i = v.length; i--; ) { v[i] = toValue(v[i]); } - return { ctor:"Array", _0: JS.toList(v) }; - } - var array = []; - for (var k in v) array.push(Utils.Tuple2(JS.toString(k), toValue(v[k]))); - return { ctor:"Object", _0: Dict.fromList(JS.toList(array)) }; - } - } - - function fromJSString(str) { - try { - return Maybe.Just(toValue(JSON.parse(str))); - } catch (e) { - return Maybe.Nothing; - } - } - - return elm.Native.Json.values = { - toJSString : F2(toPrettyJSString), - fromJSString : fromJSString, - toJSObject : fromValue, - fromJSObject : toValue - }; - -}; -Elm.Native.List = {}; -Elm.Native.List.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.List = elm.Native.List || {}; - if (elm.Native.List.values) return elm.Native.List.values; - if ('values' in Elm.Native.List) - return elm.Native.List.values = Elm.Native.List.values; - - var Utils = Elm.Native.Utils.make(elm); - - // TODO: Improve Nil handling - // We can change places like: if (xs.ctor === '[]') ... to if (xs === Nil) ... - // but only if we're confident Nil can only be defined once. - // Currently (27Mar2013) each module can have different instantiations, so multiple Nil objects can exist - // (and if they're used interchangeably then direct object comparison fails where ctor doesn't). - // So, this can only be fixed when modules initialisation is also fixed. - // The performance overhead of the .ctor calls is 5-10% according to jsperf (depending on fn + list size) - // (on firefox 19) - - var Nil = { ctor:'[]' }; - - // using freeze for every cons would be nice but is a huge (9x on firefox 19) - // performance penalty - function Cons(hd,tl) { return { ctor:"::", _0:hd, _1:tl }; } - - function throwError(f) { - throw new Error("Function '" + f + "' expects a non-empty list!"); - } - - function toArray(xs) { - var out = []; - while (xs.ctor !== '[]') { - out.push(xs._0); - xs = xs._1; - } - return out; - } - - function fromArray(arr) { - var out = Nil; - for (var i = arr.length; i--; ) { - out = Cons(arr[i], out); - } - return out; - } - - function range(lo,hi) { - var lst = Nil; - if (lo <= hi) { - do { lst = Cons(hi,lst) } while (hi-->lo); - } - return lst - } - - function append(xs,ys) { - // append Text - if (xs.text || ys.text) { - return Utils.txt(Utils.makeText(xs) + Utils.makeText(ys)); - } - - // append Strings - if (typeof xs === "string") return xs + ys; - - // append Lists - if (xs.ctor === '[]') { return ys; } - var root = Cons(xs._0, Nil); - var curr = root; - xs = xs._1; - while (xs.ctor !== '[]') { - curr._1 = Cons(xs._0, Nil); - xs = xs._1; - curr = curr._1; - } - curr._1 = ys; - return root; - } - - function head(v) { return v.ctor === '[]' ? throwError('head') : v._0; } - function tail(v) { return v.ctor === '[]' ? throwError('tail') : v._1; } - - function last(xs) { - if (xs.ctor === '[]') { throwError('last'); } - var out = xs._0; - while (xs.ctor !== '[]') { - out = xs._0; - xs = xs._1; - } - return out; - } - - function map(f, xs) { - var arr = []; - while (xs.ctor !== '[]') { - arr.push(f(xs._0)); - xs = xs._1; - } - return fromArray(arr); - } - - // f defined similarly for both foldl and foldr (NB: different from Haskell) - // ie, foldl : (a -> b -> b) -> b -> [a] -> b - function foldl(f, b, xs) { - var acc = b; - while (xs.ctor !== '[]') { - acc = A2(f, xs._0, acc); - xs = xs._1; - } - return acc; - } - - function foldr(f, b, xs) { - var arr = toArray(xs); - var acc = b; - for (var i = arr.length; i--; ) { - acc = A2(f, arr[i], acc); - } - return acc; - } - - function foldl1(f, xs) { - return xs.ctor === '[]' ? throwError('foldl1') : foldl(f, xs._0, xs._1); - } - - function foldr1(f, xs) { - if (xs.ctor === '[]') { throwError('foldr1'); } - var arr = toArray(xs); - var acc = arr.pop(); - for (var i = arr.length; i--; ) { - acc = A2(f, arr[i], acc); - } - return acc; - } - - function scanl(f, b, xs) { - var arr = toArray(xs); - arr.unshift(b); - var len = arr.length; - for (var i = 1; i < len; ++i) { - arr[i] = A2(f, arr[i], arr[i-1]); - } - return fromArray(arr); - } - - function scanl1(f, xs) { - return xs.ctor === '[]' ? throwError('scanl1') : scanl(f, xs._0, xs._1); - } - - function filter(pred, xs) { - var arr = []; - while (xs.ctor !== '[]') { - if (pred(xs._0)) { arr.push(xs._0); } - xs = xs._1; - } - return fromArray(arr); - } - - function length(xs) { - var out = 0; - while (xs.ctor !== '[]') { - out += 1; - xs = xs._1; - } - return out; - } - - function member(x, xs) { - while (xs.ctor !== '[]') { - if (Utils.eq(x,xs._0)) return true; - xs = xs._1; - } - return false; - } - - function reverse(xs) { return fromArray(toArray(xs).reverse()); } - - function concat(xss) { - if (xss.ctor === '[]') return xss; - var arr = toArray(xss); - var xs = arr[arr.length-1]; - for (var i = arr.length-1; i--; ) { - xs = append(arr[i], xs); - } - return xs; - } - - function all(pred, xs) { - while (xs.ctor !== '[]') { - if (!pred(xs._0)) return false; - xs = xs._1; - } - return true; - } - - function any(pred, xs) { - while (xs.ctor !== '[]') { - if (pred(xs._0)) return true; - xs = xs._1; - } - return false; - } - - function zipWith(f, xs, ys) { - var arr = []; - while (xs.ctor !== '[]' && ys.ctor !== '[]') { - arr.push(A2(f, xs._0, ys._0)); - xs = xs._1; - ys = ys._1; - } - return fromArray(arr); - } - - function zip(xs, ys) { - var arr = []; - while (xs.ctor !== '[]' && ys.ctor !== '[]') { - arr.push(Utils.Tuple2(xs._0, ys._0)); - xs = xs._1; - ys = ys._1; - } - return fromArray(arr); - } - - function sort(xs) { - return fromArray(toArray(xs).sort(Utils.cmp)); - } - - function sortBy(f, xs) { - return fromArray(toArray(xs).sort(function(a,b){ - return Utils.cmp(f(a), f(b)); - })); - } - - function sortWith(f, xs) { - return fromArray(toArray(xs).sort(function(a,b){ - var ord = f(a)(b).ctor; - return ord === 'EQ' ? 0 : ord === 'LT' ? -1 : 1; - })); - } - - function nth(xs, n) { - return toArray(xs)[n]; - } - - function take(n, xs) { - var arr = []; - while (xs.ctor !== '[]' && n > 0) { - arr.push(xs._0); - xs = xs._1; - --n; - } - return fromArray(arr); - } - - function drop(n, xs) { - while (xs.ctor !== '[]' && n > 0) { - xs = xs._1; - --n; - } - return xs; - } - - function repeat(n, x) { - var arr = []; - var pattern = [x]; - while (n > 0) { - if (n & 1) arr = arr.concat(pattern); - n >>= 1, pattern = pattern.concat(pattern); - } - return fromArray(arr); - } - - function join(sep, xss) { - if (sep.text) { - sep = Utils.makeText(sep); - xss = toArray(xss); - for (var i = xss.length; i--; ) { - xss[i] = Utils.makeText(xss[i]); - } - return Utils.txt(xss.join(sep)); - } - if (typeof sep === 'string') return toArray(xss).join(sep); - if (xss.ctor === '[]') return Nil; - var s = toArray(sep); - var out = toArray(xss._0); - xss = xss._1; - while (xss.ctor !== '[]') { - out = out.concat(s, toArray(xss._0)); - xss = xss._1; - } - return fromArray(out); - } - - Elm.Native.List.values = { - Nil:Nil, - Cons:Cons, - cons:F2(Cons), - toArray:toArray, - fromArray:fromArray, - range:range, - append:append, - - head:head, - tail:tail, - last:last, - - map:F2(map), - foldl:F3(foldl), - foldr:F3(foldr), - - foldl1:F2(foldl1), - foldr1:F2(foldr1), - scanl:F3(scanl), - scanl1:F2(scanl1), - filter:F2(filter), - length:length, - member:F2(member), - reverse:reverse, - concat:concat, - - all:F2(all), - any:F2(any), - zipWith:F3(zipWith), - zip:F2(zip), - sort:sort, - sortBy:F2(sortBy), - sortWith:F2(sortWith), - nth:F2(nth), - take:F2(take), - drop:F2(drop), - repeat:F2(repeat), - - join:F2(join) - }; - return elm.Native.List.values = Elm.Native.List.values; - -}; -Elm.Native.Ports = {}; -Elm.Native.Ports.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Ports = elm.Native.Ports || {}; - if (elm.Native.Ports.values) return elm.Native.Ports.values; - - var Signal = Elm.Signal.make(elm); - - function incomingSignal(converter) { - converter.isSignal = true; - return converter; - } - - function outgoingSignal(converter) { - return function(signal) { - var subscribers = [] - function subscribe(handler) { - subscribers.push(handler); - } - function unsubscribe(handler) { - subscribers.pop(subscribers.indexOf(handler)); - } - A2( Signal.lift, function(value) { - var val = converter(value); - var len = subscribers.length; - for (var i = 0; i < len; ++i) { - subscribers[i](val); - } - }, signal); - return { subscribe:subscribe, unsubscribe:unsubscribe }; - } - } - - function portIn(name, converter) { - var jsValue = elm.ports.incoming[name]; - if (jsValue === undefined) { - throw new Error("Initialization Error: port '" + name + - "' was not given an input!"); - } - elm.ports.uses[name] += 1; - try { - var elmValue = converter(jsValue); - } catch(e) { - throw new Error("Initialization Error on port '" + name + "': \n" + e.message); - } - - // just return a static value if it is not a signal - if (!converter.isSignal) { - return elmValue; - } - - // create a signal if necessary - var signal = Signal.constant(elmValue); - function send(jsValue) { - try { - var elmValue = converter(jsValue); - } catch(e) { - throw new Error("Error sending to port '" + name + "': \n" + e.message); - } - setTimeout(function() { - elm.notify(signal.id, elmValue); - }, 0); - } - elm.ports.outgoing[name] = { send:send }; - return signal; - } - - function portOut(name, converter, value) { - try { - elm.ports.outgoing[name] = converter(value); - } catch(e) { - throw new Error("Initialization Error on port '" + name + "': \n" + e.message); - } - return value; - } - - return elm.Native.Ports.values = { - incomingSignal: incomingSignal, - outgoingSignal: outgoingSignal, - portOut: portOut, - portIn: portIn - }; -}; -Elm.Native.Regex = {}; -Elm.Native.Regex.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Regex = elm.Native.Regex || {}; - if (elm.Native.Regex.values) return elm.Native.Regex.values; - if ('values' in Elm.Native.Regex) - return elm.Native.Regex.values = Elm.Native.Regex.values; - - var Maybe = Elm.Maybe.make(elm); - var JS = Elm.JavaScript.make(elm); - - function escape(str) { - return str.replace(/[-\/\\^$*+?.()|[\]{}]/g, '\\$&'); - } - function caseInsensitive(re) { - return new RegExp(re.source, 'gi'); - } - function pattern(raw) { - return new RegExp(raw, 'g'); - } - - function contains(re, string) { - return re.test(JS.fromString(string)); - } - - function findAll(re, string) { - return find(Infinity, re, string); - } - function find(n, re, str) { - var out = []; - var number = 0; - var string = JS.fromString(str); - var result; - while (number++ < n && (result = re.exec(string))) { - var i = result.length - 1; - var subs = new Array(i); - while (i > 0) { - var submatch = result[i]; - subs[--i] = submatch === undefined - ? Maybe.Nothing - : Maybe.Just(JS.toString(submatch)); - } - out.push({ - _:{}, - match: JS.toString(result[0]), - submatches: JS.toList(subs), - index: result.index, - number: number, - }); - } - return JS.toList(out); - } - - function replaceAll(re, replacer, string) { - return replace(Infinity, re, replacer, string); - } - function replace(n, re, replacer, string) { - var count = 0; - function jsReplacer(match) { - if (count++ > n) return match; - var i = arguments.length-3; - var submatches = new Array(i); - while (i > 0) { - var submatch = arguments[i]; - submatches[--i] = submatch === undefined - ? Maybe.Nothing - : Maybe.Just(JS.toString(submatch)); - } - return JS.fromString(replacer({ - _:{}, - match:match, - submatches:JS.toList(submatches), - index:arguments[i-1], - number:count - })); - } - return string.replace(re, jsReplacer); - } - - function split(re, string) { - return JS.toList(JS.fromString(string).split(re)); - } - function splitN(n, re, str) { - var string = JS.fromString(str); - var result; - var out = []; - var start = re.lastIndex; - while (n--) { - if (!(result = re.exec(string))) break; - out.push(string.slice(start, result.index)); - start = re.lastIndex; - } - out.push(string.slice(start)); - return JS.toList(out); - } - - return Elm.Native.Regex.values = { - pattern: pattern, - caseInsensitive: caseInsensitive, - escape: escape, - - contains: F2(contains), - findAll: F2(findAll), - find: F3(find), - - replaceAll: F3(replaceAll), - replace: F4(replace), - - split: F2(split), - splitN: F3(splitN), - }; -};Elm.Native.Show = {}; -Elm.Native.Show.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Show = elm.Native.Show || {}; - if (elm.Native.Show.values) return elm.Native.Show.values; - - var NList = Elm.Native.List.make(elm); - var List = Elm.List.make(elm); - var Maybe = Elm.Maybe.make(elm); - var JS = Elm.JavaScript.make(elm); - var Dict = Elm.Dict.make(elm); - var Json = Elm.Json.make(elm); - var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; - - var toString = function(v) { - var type = typeof v; - if (type === "function") { - var name = v.func ? v.func.name : v.name; - return ''; - } else if (type === "boolean") { - return v ? "True" : "False"; - } else if (type === "number") { - return v+""; - } else if ((v instanceof String) && v.isChar) { - return "'" + addSlashes(v) + "'"; - } else if (type === "string") { - return '"' + addSlashes(v) + '"'; - } else if (type === "object" && '_' in v && probablyPublic(v)) { - var output = []; - for (var k in v._) { - for (var i = v._[k].length; i--; ) { - output.push(k + " = " + toString(v._[k][i])); - } - } - for (var k in v) { - if (k === '_') continue; - output.push(k + " = " + toString(v[k])); - } - if (output.length === 0) return "{}"; - return "{ " + output.join(", ") + " }"; - } else if (type === "object" && 'ctor' in v) { - if (v.ctor.substring(0,6) === "_Tuple") { - var output = []; - for (var k in v) { - if (k === 'ctor') continue; - output.push(toString(v[k])); - } - return "(" + output.join(",") + ")"; - } else if (v.ctor === "::") { - var output = '[' + toString(v._0); - v = v._1; - while (v.ctor === "::") { - output += "," + toString(v._0); - v = v._1; - } - return output + ']'; - } else if (v.ctor === "[]") { - return "[]"; - } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") { - var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)}); - var list = A3(Dict.foldr, cons, NList.Nil, v); - var name = "Dict"; - if (list.ctor === "::" && list._0._1.ctor === "_Tuple0") { - name = "Set"; - list = A2(List.map, function(x){return x._0}, list); - } - return name + ".fromList " + toString(list); - } else { - var output = ""; - for (var i in v) { - if (i === 'ctor') continue; - var str = toString(v[i]); - var parenless = str[0] === '{' || str[0] === '<' || str.indexOf(' ') < 0; - output += ' ' + (parenless ? str : '(' + str + ')'); - } - return v.ctor + output; - } - } - if (type === 'object' && 'recv' in v) return ''; - return ""; - }; - - function addSlashes(str) { - return str.replace(/\\/g, '\\\\') - .replace(/\n/g, '\\n') - .replace(/\t/g, '\\t') - .replace(/\r/g, '\\r') - .replace(/\v/g, '\\v') - .replace(/\0/g, '\\0') - .replace(/\'/g, "\\'") - .replace(/\"/g, '\\"'); - } - - function probablyPublic(v) { - var keys = Object.keys(v); - var len = keys.length; - if (len === 3 - && 'props' in v - && 'element' in v) return false; - if (len === 5 - && 'horizontal' in v - && 'vertical' in v - && 'x' in v - && 'y' in v) return false; - if (len === 7 - && 'theta' in v - && 'scale' in v - && 'x' in v - && 'y' in v - && 'alpha' in v - && 'form' in v) return false; - return true; - } - - return elm.Native.Show.values = { show:toString }; -}; -Elm.Native.String = {}; -Elm.Native.String.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.String = elm.Native.String || {}; - if (elm.Native.String.values) return elm.Native.String.values; - if ('values' in Elm.Native.String) - return elm.Native.String.values = Elm.Native.String.values; - - var Char = Elm.Char.make(elm); - var Maybe = Elm.Maybe.make(elm); - var JS = Elm.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function isEmpty(str) { - return str.length === 0; - } - function cons(chr,str) { - return chr + str; - } - function uncons(str) { - var hd; - return (hd = str[0]) ? Maybe.Just(Utils.Tuple2(Utils.chr(hd), str.slice(1))) - : Maybe.Nothing; - } - function append(a,b) { - return a + b; - } - function concat(strs) { - return JS.fromList(strs).join(''); - } - function length(str) { - return str.length; - } - function map(f,str) { - var out = str.split(''); - for (var i = out.length; i--; ) { - out[i] = f(Utils.chr(out[i])); - } - return out.join(''); - } - function filter(pred,str) { - return str.split('').map(Utils.chr).filter(pred).join(''); - } - function reverse(str) { - return str.split('').reverse().join(''); - } - function foldl(f,b,str) { - var len = str.length; - for (var i = 0; i < len; ++i) { - b = A2(f, Utils.chr(str[i]), b); - } - return b; - } - function foldr(f,b,str) { - for (var i = str.length; i--; ) { - b = A2(f, Utils.chr(str[i]), b); - } - return b; - } - - function split(sep, str) { - return JS.toList(str.split(sep)); - } - function join(sep, strs) { - return JS.fromList(strs).join(sep); - } - function repeat(n, str) { - var result = ''; - while (n > 0) { - if (n & 1) result += str; - n >>= 1, str += str; - } - return result; - } - - function sub(start, end, str) { - return str.slice(start,end); - } - function left(n, str) { - return n < 1 ? "" : str.slice(0,n); - } - function right(n, str) { - return n < 1 ? "" : str.slice(-n); - } - function dropLeft(n, str) { - return n < 1 ? str : str.slice(n); - } - function dropRight(n, str) { - return n < 1 ? str : str.slice(0,-n); - } - - function pad(n,chr,str) { - var half = (n - str.length) / 2; - return repeat(Math.ceil(half),chr) + str + repeat(half|0,chr); - } - function padRight(n,chr,str) { - return str + repeat(n - str.length, chr); - } - function padLeft(n,chr,str) { - return repeat(n - str.length, chr) + str; - } - - function trim(str) { - return str.trim(); - } - function trimLeft(str) { - return str.trimLeft(); - } - function trimRight(str) { - return str.trimRight(); - } - - function words(str) { - return JS.toList(str.split(/\s+/g)); - } - function lines(str) { - return JS.toList(str.split(/\r\n|\r|\n/g)); - } - - function toUpper(str) { - return str.toUpperCase(); - } - function toLower(str) { - return str.toLowerCase(); - } - - function any(pred, str) { - for (var i = str.length; i--; ) { - if (pred(Utils.chr(str[i]))) return true; - } - return false; - } - function all(pred, str) { - for (var i = str.length; i--; ) { - if (!pred(Utils.chr(str[i]))) return false; - } - return true; - } - - function contains(sub, str) { - return str.indexOf(sub) > -1; - } - function startsWith(sub, str) { - return str.indexOf(sub) === 0; - } - function endsWith(sub, str) { - return str.lastIndexOf(sub) === str.length - sub.length; - } - function indexes(sub, str) { - var subLen = sub.length; - var i = 0; - var is = []; - while ((i = str.indexOf(sub, i)) > -1) { - is.push(i); - i = i + subLen; - } - return JS.toList(is); - } - - function toInt(s) { - var len = s.length; - if (len === 0) { return Maybe.Nothing; } - var start = 0; - if (s[0] == '-') { - if (len === 1) { return Maybe.Nothing; } - start = 1; - } - for (var i = start; i < len; ++i) { - if (!Char.isDigit(s[i])) { return Maybe.Nothing; } - } - return Maybe.Just(parseInt(s, 10)); - } - - function toFloat(s) { - var len = s.length; - if (len === 0) { return Maybe.Nothing; } - var start = 0; - if (s[0] == '-') { - if (len === 1) { return Maybe.Nothing; } - start = 1; - } - var dotCount = 0; - for (var i = start; i < len; ++i) { - if (Char.isDigit(s[i])) { continue; } - if (s[i] === '.') { - dotCount += 1; - if (dotCount <= 1) { continue; } - } - return Maybe.Nothing; - } - return Maybe.Just(parseFloat(s)); - } - - function toList(str) { - return JS.toList(str.split('').map(Utils.chr)); - } - function fromList(chars) { - return JS.fromList(chars).join(''); - } - - return Elm.Native.String.values = { - isEmpty: isEmpty, - cons: F2(cons), - uncons: uncons, - append: F2(append), - concat: concat, - length: length, - map: F2(map), - filter: F2(filter), - reverse: reverse, - foldl: F3(foldl), - foldr: F3(foldr), - - split: F2(split), - join: F2(join), - repeat: F2(repeat), - - sub: F3(sub), - left: F2(left), - right: F2(right), - dropLeft: F2(dropLeft), - dropRight: F2(dropRight), - - pad: F3(pad), - padLeft: F3(padLeft), - padRight: F3(padRight), - - trim: trim, - trimLeft: trimLeft, - trimRight: trimRight, - - words: words, - lines: lines, - - toUpper: toUpper, - toLower: toLower, - - any: F2(any), - all: F2(all), - - contains: F2(contains), - startsWith: F2(startsWith), - endsWith: F2(endsWith), - indexes: F2(indexes), - - toInt: toInt, - toFloat: toFloat, - toList: toList, - fromList: fromList, - }; -};Elm.Native.Text = {}; -Elm.Native.Text.make = function(elm) { - elm.Native = elm.Native || {}; - elm.Native.Text = elm.Native.Text || {}; - if (elm.Native.Text.values) return elm.Native.Text.values; - - var JS = Elm.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - var Color = Elm.Native.Color.make(elm); - var Element = Elm.Graphics.Element.make(elm); - var show = Elm.Native.Show.make(elm).show; - - function makeSpaces(s) { - if (s.length == 0) { return s; } - var arr = s.split(''); - if (arr[0] == ' ') { arr[0] = " " } - for (var i = arr.length; --i; ) { - if (arr[i][0] == ' ' && arr[i-1] == ' ') { - arr[i-1] = arr[i-1] + arr[i]; - arr[i] = ''; - } - } - for (var i = arr.length; i--; ) { - if (arr[i].length > 1 && arr[i][0] == ' ') { - var spaces = arr[i].split(''); - for (var j = spaces.length - 2; j >= 0; j -= 2) { - spaces[j] = ' '; - } - arr[i] = spaces.join(''); - } - } - arr = arr.join(''); - if (arr[arr.length-1] === " ") { - return arr.slice(0,-1) + ' '; - } - return arr; - } - - function properEscape(str) { - if (str.length == 0) return str; - str = str //.replace(/&/g, "&") - .replace(/"/g, '"') - .replace(/'/g, "'") - .replace(//g, ">") - .replace(/\n/g, "
"); - var arr = str.split('
'); - for (var i = arr.length; i--; ) { - arr[i] = makeSpaces(arr[i]); - } - return arr.join('
'); - } - - function toText(str) { return Utils.txt(properEscape(JS.fromString(str))); } - - function height(px, text) { - return { style: 'font-size:' + px + 'px;', text:text } - } - function typeface(name, text) { - return { style: 'font-family:' + name + ';', text:text } - } - function monospace(text) { - return { style: 'font-family:monospace;', text:text } - } - function italic(text) { - return { style: 'font-style:italic;', text:text } - } - function bold(text) { - return { style: 'font-weight:bold;', text:text } - } - function link(href, text) { - return { href: toText(href), text:text }; - } - function underline(text) { - return { line: ' underline', text:text }; - } - function overline(text) { - return { line: ' overline', text:text }; - } - function strikeThrough(text) { - return { line: ' line-through', text:text }; - } - - function color(c, text) { - var color = (c._3 === 1) - ? ('rgb(' + c._0 + ', ' + c._1 + ', ' + c._2 + ')') - : ('rgba(' + c._0 + ', ' + c._1 + ', ' + c._2 + ', ' + c._3 + ')'); - return { style: 'color:' + color + ';', text:text }; - } - - function position(align) { - function create(text) { - var raw = { - ctor :'RawHtml', - html : Utils.makeText(text), - align: align, - guid : null, - args : [], - }; - var pos = A2(Utils.htmlHeight, 0, raw); - return A3(Element.newElement, pos._0, pos._1, raw); - } - return create; - } - - function markdown(text, guid) { - var raw = { - ctor:'RawHtml', - html: text, - align: null, - guid: guid, - args: [], - }; - var pos = A2(Utils.htmlHeight, 0, raw); - return A3(Element.newElement, pos._0, pos._1, raw); - } - - var text = position('left'); - function asText(v) { - return text(monospace(toText(show(v)))); - } - - function plainText(v) { - return text(toText(v)); - } - - return elm.Native.Text.values = { - toText: toText, - - height : F2(height), - italic : italic, - bold : bold, - underline : underline, - overline : overline, - strikeThrough : strikeThrough, - monospace : monospace, - typeface : F2(typeface), - color : F2(color), - link : F2(link), - - justified : position('justify'), - centered : position('center'), - righted : position('right'), - text : text, - plainText : plainText, - markdown : markdown, - - asText : asText, - }; -}; -Elm.Native.Transform2D = {}; -Elm.Native.Transform2D.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Transform2D = elm.Native.Transform2D || {}; - if (elm.Native.Transform2D.values) return elm.Native.Transform2D.values; - - var A; - if (typeof Float32Array === 'undefined') { - A = function(arr) { - this.length = arr.length; - this[0] = arr[0]; - this[1] = arr[1]; - this[2] = arr[2]; - this[3] = arr[3]; - this[4] = arr[4]; - this[5] = arr[5]; - }; - } else { - A = Float32Array; - } - - // layout of matrix in an array is - // - // | m11 m12 dx | - // | m21 m22 dy | - // | 0 0 1 | - // - // new A([ m11, m12, dx, m21, m22, dy ]) - - var identity = new A([1,0,0,0,1,0]); - function matrix(m11, m12, m21, m22, dx, dy) { - return new A([m11, m12, dx, m21, m22, dy]); - } - function rotation(t) { - var c = Math.cos(t); - var s = Math.sin(t); - return new A([c, -s, 0, s, c, 0]); - } - function rotate(t,m) { - var c = Math.cos(t); - var s = Math.sin(t); - var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; - return new A([m11*c + m12*s, -m11*s + m12*c, m[2], - m21*c + m22*s, -m21*s + m22*c, m[5]]); - } - /* - function move(xy,m) { - var x = xy._0; - var y = xy._1; - var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; - return new A([m11, m12, m11*x + m12*y + m[2], - m21, m22, m21*x + m22*y + m[5]]); - } - function scale(s,m) { return new A([m[0]*s, m[1]*s, m[2], m[3]*s, m[4]*s, m[5]]); } - function scaleX(x,m) { return new A([m[0]*x, m[1], m[2], m[3]*x, m[4], m[5]]); } - function scaleY(y,m) { return new A([m[0], m[1]*y, m[2], m[3], m[4]*y, m[5]]); } - function reflectX(m) { return new A([-m[0], m[1], m[2], -m[3], m[4], m[5]]); } - function reflectY(m) { return new A([m[0], -m[1], m[2], m[3], -m[4], m[5]]); } - - function transform(m11, m21, m12, m22, mdx, mdy, n) { - var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; - return new A([m11*n11 + m12*n21, - m11*n12 + m12*n22, - m11*ndx + m12*ndy + mdx, - m21*n11 + m22*n21, - m21*n12 + m22*n22, - m21*ndx + m22*ndy + mdy]); - } - */ - function multiply(m, n) { - var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4], mdx = m[2], mdy = m[5]; - var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; - return new A([m11*n11 + m12*n21, - m11*n12 + m12*n22, - m11*ndx + m12*ndy + mdx, - m21*n11 + m22*n21, - m21*n12 + m22*n22, - m21*ndx + m22*ndy + mdy]); - } - - return elm.Native.Transform2D.values = { - identity:identity, - matrix:F6(matrix), - rotation:rotation, - multiply:F2(multiply) - /* - transform:F7(transform), - rotate:F2(rotate), - move:F2(move), - scale:F2(scale), - scaleX:F2(scaleX), - scaleY:F2(scaleY), - reflectX:reflectX, - reflectY:reflectY - */ - }; - -}; -Elm.Native.Utils = {}; -Elm.Native.Utils.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Utils = elm.Native.Utils || {}; - if (elm.Native.Utils.values) return elm.Native.Utils.values; - - function eq(x,y) { - if (x === y) return true; - if (typeof x === "object") { - var c = 0; - for (var i in x) { ++c; if (!eq(x[i],y[i])) return false; } - return c === Object.keys(y).length; - } - if (typeof x === 'function') { - throw new Error('Equality error: general function equality is ' + - 'undecidable, and therefore, unsupported'); - } - return x === y; - } - - // code in Generate/JavaScript.hs depends on the particular - // integer values assigned to LT, EQ, and GT - var LT = -1, EQ = 0, GT = 1, ord = ['LT','EQ','GT']; - function compare(x,y) { return { ctor: ord[cmp(x,y)+1] } } - function cmp(x,y) { - var ord; - if (typeof x !== 'object' || x instanceof String){ - return x === y ? EQ : x < y ? LT : GT; - } - - if (x.ctor === "::" || x.ctor === "[]") { - while (true) { - if (x.ctor === "[]" && y.ctor === "[]") return EQ; - if (x.ctor !== y.ctor) return x.ctor === '[]' ? LT : GT; - ord = cmp(x._0, y._0); - if (ord !== EQ) return ord; - x = x._1; - y = y._1; - } - } - - if (x.ctor.slice(0,6) === '_Tuple') { - var n = x.ctor.slice(6) - 0; - var err = 'cannot compare tuples with more than 6 elements.'; - if (n === 0) return EQ; - if (n >= 1) { ord = cmp(x._0, y._0); if (ord !== EQ) return ord; - if (n >= 2) { ord = cmp(x._1, y._1); if (ord !== EQ) return ord; - if (n >= 3) { ord = cmp(x._2, y._2); if (ord !== EQ) return ord; - if (n >= 4) { ord = cmp(x._3, y._3); if (ord !== EQ) return ord; - if (n >= 5) { ord = cmp(x._4, y._4); if (ord !== EQ) return ord; - if (n >= 6) { ord = cmp(x._5, y._5); if (ord !== EQ) return ord; - if (n >= 7) throw new Error('Comparison error: ' + err); } } } } } } - return EQ; - } - throw new Error('Comparison error: comparison is only defined on ints, ' + - 'floats, times, chars, strings, lists of comparable values, ' + - 'and tuples of comparable values.') - } - - - var Tuple0 = { ctor: "_Tuple0" }; - function Tuple2(x,y) { return { ctor:"_Tuple2", _0:x, _1:y } } - - function chr(c) { - var x = new String(c); - x.isChar = true; - return x; - } - - function txt(str) { - var t = new String(str); - t.text = true; - return t; - } - - function makeText(text) { - var style = ''; - var line = ''; - var href = ''; - while (true) { - if (text.line) { - line += text.line; - text = text.text; - continue; - } - if (text.style) { - style += text.style; - text = text.text; - continue; - } - if (text.href) { - href = text.href; - text = text.text; - continue; - } - if (href) text = '' + text + ''; - if (line) style += 'text-decoration:' + line + ';'; - if (style) text = '' + text + ''; - return text; - } - } - - var count = 0; - function guid(_) { return count++ } - - function copy(r) { - var o = {}; - for (var i in r) { o[i] = r[i]; } - return o; - } - - function remove(x,r) { - var o = copy(r); - if (x in o._) { - o[x] = o._[x][0]; - o._[x] = o._[x].slice(1); - if (o._[x].length === 0) { delete o._[x]; } - } else { - delete o[x]; - } - return o; - } - - function replace(kvs,r) { - var o = copy(r); - for (var i = kvs.length; i--; ) { - var kvsi = kvs[i]; - o[kvsi[0]] = kvsi[1]; - } - return o; - } - - function insert(x,v,r) { - var o = copy(r); - if (x in o) o._[x] = [o[x]].concat(x in o._ ? o._[x].slice(0) : []); - o[x] = v; - return o; - } - - function max(a,b) { return a > b ? a : b } - function min(a,b) { return a < b ? a : b } - - function mod(a,b) { - if (b === 0) { - throw new Error("Cannot perform mod 0. Division by zero error."); - } - var r = a % b; - var m = a === 0 ? 0 : (b > 0 ? (a >= 0 ? r : r+b) : -mod(-a,-b)); - - return m === b ? 0 : m; - } - - function htmlHeight(width, rawHtml) { - // create dummy node - var html = rawHtml.html; - var t = document.createElement('div'); - t.innerHTML = html; - if (width > 0) { t.style.width = width + "px"; } - t.style.visibility = "hidden"; - t.style.styleFloat = "left"; - t.style.cssFloat = "left"; - - document.body.appendChild(t); - - // insert interpolated values - var args = rawHtml.args; - var guid = rawHtml.guid; - for (var i = args.length; i--; ) { - var arg = args[i]; - var span = document.getElementById('md-' + guid + '-' + i); - if (arg.isElement) { - span.style.width = arg.props.width + 'px'; - span.style.height = arg.props.height + 'px'; - } else { - span.innerHTML = arg; - } - } - - // get dimensions - var style = window.getComputedStyle(t, null); - var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); - var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); - document.body.removeChild(t); - return Tuple2(w,h); - } - - function getXY(e) { - var posx = 0; - var posy = 0; - if (e.pageX || e.pageY) { - posx = e.pageX; - posy = e.pageY; - } else if (e.clientX || e.clientY) { - posx = e.clientX + document.body.scrollLeft + document.documentElement.scrollLeft; - posy = e.clientY + document.body.scrollTop + document.documentElement.scrollTop; - } - - if (elm.display === ElmRuntime.Display.COMPONENT) { - var rect = elm.node.getBoundingClientRect(); - var relx = rect.left + document.body.scrollLeft + document.documentElement.scrollLeft; - var rely = rect.top + document.body.scrollTop + document.documentElement.scrollTop; - // TODO: figure out if there is a way to avoid rounding here - posx = posx - Math.round(relx) - elm.node.clientLeft; - posy = posy - Math.round(rely) - elm.node.clientTop; - } - return Tuple2(posx, posy); - } - - return elm.Native.Utils.values = { - eq:eq, - cmp:cmp, - compare:F2(compare), - Tuple0:Tuple0, - Tuple2:Tuple2, - chr:chr, - txt:txt, - makeText:makeText, - copy: copy, - remove: remove, - replace: replace, - insert: insert, - guid: guid, - max : F2(max), - min : F2(min), - mod : F2(mod), - htmlHeight: F2(htmlHeight), - getXY: getXY, - toFloat: function(x) { return +x; } - }; -}; -Elm.Native.Graphics.Collage = {}; -Elm.Native.Graphics.Collage.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Graphics = elm.Native.Graphics || {}; - elm.Native.Graphics.Collage = elm.Native.Graphics.Collage || {}; - if (elm.Native.Graphics.Collage.values) return elm.Native.Graphics.Collage.values; - - var newElement = Elm.Graphics.Element.make(elm).newElement; - var C = ElmRuntime.use(ElmRuntime.Render.Collage); - - function collage(w,h,forms) { - return A3(newElement, w, h, { - ctor: 'Custom', - type: 'Collage', - render: C.render, - update: C.update, - model: {w:w, h:h, forms:forms} - }); - } - return elm.Native.Graphics.Collage.values = { collage:F3(collage) }; - -};Elm.Native.Graphics.Input = {}; -Elm.Native.Graphics.Input.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Graphics = elm.Native.Graphics || {}; - elm.Native.Graphics.Input = elm.Native.Graphics.Input || {}; - if (elm.Native.Graphics.Input.values) return elm.Native.Graphics.Input.values; - - var Render = ElmRuntime.use(ElmRuntime.Render.Element); - var newNode = ElmRuntime.use(ElmRuntime.Render.Utils).newElement; - - var Signal = Elm.Signal.make(elm); - var newElement = Elm.Graphics.Element.make(elm).newElement; - var JS = Elm.Native.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - var Tuple2 = Utils.Tuple2; - - function dropDown(values) { - var entries = JS.fromList(values); - var events = Signal.constant(entries[0]._1); - - var drop = newNode('select'); - drop.style.border = '0 solid'; - for (var i = 0; i < entries.length; ++i) { - var option = newNode('option'); - var name = JS.fromString(entries[i]._0); - option.value = name; - option.innerHTML = name; - drop.appendChild(option); - } - drop.addEventListener('change', function() { - elm.notify(events.id, entries[drop.selectedIndex]._1); - }); - - var t = drop.cloneNode(true); - t.style.visibility = "hidden"; - - elm.node.appendChild(t); - var style = window.getComputedStyle(t, null); - var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); - var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); - elm.node.removeChild(t); - - var element = A3(newElement, w, h, { - ctor: 'Custom', - type: 'DropDown', - render: function render(model) { return drop; }, - update: function update(node, oldModel, newModel) {}, - model: {} - }); - - return Tuple2(Signal.constant(element), events); - } - - function buttons(defaultValue) { - var events = Signal.constant(defaultValue); - - function render(model) { - var b = newNode('button'); - b.style.display = 'block'; - b.elmEvent = model.event; - function click() { elm.notify(events.id, b.elmEvent); } - b.addEventListener('click', click); - b.innerHTML = model.text; - return b; - } - - function update(node, oldModel, newModel) { - node.elmEvent = newModel.event; - var txt = newModel.text; - if (oldModel.text !== txt) node.innerHTML = txt; - } - - function button(evnt, txt) { - return A3(newElement, 100, 40, { - ctor: 'Custom', - type: 'Button', - render: render, - update: update, - model: { event:evnt, text:JS.fromString(txt) } - }); - } - - return { _:{}, button:F2(button), events:events }; - } - - function customButtons(defaultValue) { - var events = Signal.constant(defaultValue); - - function render(model) { - var btn = newNode('div'); - btn.elmEvent = model.event; - - btn.elmUp = Render.render(model.up); - btn.elmHover = Render.render(model.hover); - btn.elmDown = Render.render(model.down); - - function replace(node) { - if (node !== btn.firstChild) btn.replaceChild(node, btn.firstChild); - } - var overCount = 0; - function over(e) { - if (overCount++ > 0) return; - replace(btn.elmHover); - } - function out(e) { - if (btn.contains(e.toElement || e.relatedTarget)) return; - overCount = 0; - replace(btn.elmUp); - } - function up() { - replace(btn.elmHover); - elm.notify(events.id, btn.elmEvent); - } - function down() { replace(btn.elmDown); } - btn.addEventListener('mouseover', over); - btn.addEventListener('mouseout' , out); - btn.addEventListener('mousedown', down); - btn.addEventListener('mouseup' , up); - - btn.appendChild(btn.elmUp); - - var clicker = newNode('div'); - clicker.style.width = btn.elmUp.style.width; - clicker.style.height = btn.elmUp.style.height; - clicker.style.position = 'absolute'; - clicker.style.top = 0; - btn.appendChild(clicker); - - return btn; - } - - function update(node, oldModel, newModel) { - node.elmEvent = newModel.event; - Render.update(node.elmUp, oldModel.up, newModel.up) - Render.update(node.elmHover, oldModel.hover, newModel.hover) - Render.update(node.elmDown, oldModel.down, newModel.down) - } - - function button(evnt, up, hover, down) { - return A3(newElement, - Math.max(up.props.width, hover.props.width, down.props.width), - Math.max(up.props.height, hover.props.height, down.props.height), - { ctor: 'Custom', - type: 'CustomButton', - render: render, - update: update, - model: { event:evnt, up:up, hover:hover, down:down } - }); - } - - return { _:{}, customButton:F4(button), events:events }; - } - - - function hoverables(defaultValue) { - var events = Signal.constant(defaultValue); - function hoverable(handler, elem) { - function onHover(bool) { - elm.notify(events.id, handler(bool)); - } - var props = Utils.replace([['hover',onHover]], elem.props); - return { props:props, element:elem.element }; - } - return { _:{}, hoverable:F2(hoverable), events:events }; - } - - - function checkboxes(defaultValue) { - var events = Signal.constant(defaultValue); - - function render(model) { - var b = newNode('input'); - b.type = 'checkbox'; - b.checked = model.checked; - b.style.display = 'block'; - b.elmHandler = model.handler; - function change() { elm.notify(events.id, b.elmHandler(b.checked)); } - b.addEventListener('change', change); - return b; - } - - function update(node, oldModel, newModel) { - node.elmHandler = newModel.handler; - node.checked = newModel.checked; - return true; - } - - function box(handler, checked) { - return A3(newElement, 13, 13, { - ctor: 'Custom', - type: 'CheckBox', - render: render, - update: update, - model: { checked:checked, handler:handler } - }); - } - - return { _:{}, checkbox:F2(box), events:events }; - } - - function setRange(node, start, end, dir) { - if (node.parentNode) { - node.setSelectionRange(start, end, dir); - } else { - setTimeout(function(){node.setSelectionRange(start, end, dir);}, 0); - } - } - - function mkTextPool(type) { return function fields(defaultValue) { - var events = Signal.constant(defaultValue); - - var state = null; - - function render(model) { - var field = newNode('input'); - field.elmHandler = model.handler; - - field.id = 'test'; - field.type = type; - field.placeholder = JS.fromString(model.placeHolder); - field.value = JS.fromString(model.state.string); - setRange(field, model.state.selectionStart, model.state.selectionEnd, 'forward'); - field.style.border = 'none'; - state = model.state; - - function update() { - var start = field.selectionStart, - end = field.selectionEnd; - if (field.selectionDirection === 'backward') { - start = end; - end = field.selectionStart; - } - state = { _:{}, - string:JS.toString(field.value), - selectionStart:start, - selectionEnd:end }; - elm.notify(events.id, field.elmHandler(state)); - } - function mousedown() { - update(); - elm.node.addEventListener('mouseup', mouseup); - } - function mouseup() { - update(); - elm.node.removeEventListener('mouseup', mouseup) - } - field.addEventListener('keyup', update); - field.addEventListener('mousedown', mousedown); - - return field; - } - - function update(node, oldModel, newModel) { - node.elmHandler = newModel.handler; - if (state === newModel.state) return; - var newStr = JS.fromString(newModel.state.string); - if (node.value !== newStr) node.value = newStr; - - var start = newModel.state.selectionStart; - var end = newModel.state.selectionEnd; - var direction = 'forward'; - if (end < start) { - start = end; - end = newModel.state.selectionStart; - direction = 'backward'; - } - - if (node.selectionStart !== start - || node.selectionEnd !== end - || node.selectionDirection !== direction) { - setRange(node, start, end, direction); - } - } - - function field(handler, placeHolder, state) { - return A3(newElement, 200, 30, - { ctor: 'Custom', - type: type + 'Input', - render: render, - update: update, - model: { handler:handler, - placeHolder:placeHolder, - state:state } - }); - } - - return { _:{}, field:F3(field), events:events }; - } - } - - return elm.Native.Graphics.Input.values = { - buttons:buttons, - customButtons:customButtons, - hoverables:hoverables, - checkboxes:checkboxes, - fields:mkTextPool('text'), - emails:mkTextPool('email'), - passwords:mkTextPool('password'), - dropDown:dropDown - }; - -}; -Elm.Native.Http = {}; -Elm.Native.Http.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Http = elm.Native.Http || {}; - if (elm.Native.Http.values) return elm.Native.Http.values; - - - var JS = Elm.JavaScript.make(elm); - var List = Elm.List.make(elm); - var Signal = Elm.Signal.make(elm); - - - function registerReq(queue,responses) { return function(req) { - if (req.url.ctor !== '[]') { sendReq(queue,responses,req); } - }; - } - - function updateQueue(queue,responses) { - if (queue.length > 0) { - elm.notify(responses.id, queue[0].value); - if (queue[0].value.ctor !== 'Waiting') { - queue.shift(); - setTimeout(function() { updateQueue(queue,responses); }, 0); - } - } - } - - function sendReq(queue,responses,req) { - var response = { value: { ctor:'Waiting' } }; - queue.push(response); - - var request = null; - if (window.ActiveXObject) { request = new ActiveXObject("Microsoft.XMLHTTP"); } - if (window.XMLHttpRequest) { request = new XMLHttpRequest(); } - request.onreadystatechange = function(e) { - if (request.readyState === 4) { - response.value = (request.status >= 200 && request.status < 300 ? - { ctor:'Success', _0:JS.toString(request.responseText) } : - { ctor:'Failure', _0:request.status, _1:JS.toString(request.statusText) }); - setTimeout(function() { updateQueue(queue,responses); }, 0); - } - }; - request.open(JS.fromString(req.verb), JS.fromString(req.url), true); - function setHeader(pair) { - request.setRequestHeader( JS.fromString(pair._0), JS.fromString(pair._1) ); - } - List.map(setHeader)(req.headers); - request.send(JS.fromString(req.body)); - } - - function send(requests) { - var responses = Signal.constant(elm.Http.values.Waiting); - var sender = A2( Signal.lift, registerReq([],responses), requests ); - function f(x) { return function(y) { return x; } } - return A3( Signal.lift2, f, responses, sender ); - } - - return elm.Native.Http.values = {send:send}; - -}; -Elm.Native.Keyboard = {}; -Elm.Native.Keyboard.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Keyboard = elm.Native.Keyboard || {}; - if (elm.Native.Keyboard.values) return elm.Native.Keyboard.values; - - // Duplicated from Native.Signal - function send(node, timestep, changed) { - var kids = node.kids; - for (var i = kids.length; i--; ) { - kids[i].recv(timestep, changed, node.id); - } - } - - var Signal = Elm.Signal.make(elm); - var NList = Elm.Native.List.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - var downEvents = Signal.constant(0); - var upEvents = Signal.constant(0); - var blurEvents = Signal.constant(0); - - elm.addListener([downEvents.id], document, 'keydown', function down(e) { - elm.notify(downEvents.id, e.keyCode); - }); - - elm.addListener([upEvents.id], document, 'keyup', function up(e) { - elm.notify(upEvents.id, e.keyCode); - }); - - elm.addListener([blurEvents.id], document, 'blur', function blur(e) { - elm.notify(blurEvents.id, NList.Nil); - }); - - function KeyMerge(down, up, blur) { - var args = [down,up,blur]; - this.id = Utils.guid(); - // Ignore starting values here - this.value = NList.Nil - this.kids = []; - - var n = args.length; - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - ++count; - if (changed) { - // We know this a change must only be one of the following cases - if (parentID === down.id && !(NList.member(down.value)(this.value))) { - isChanged = true; - this.value = NList.Cons(down.value, this.value); - } - if (parentID === up.id) { - isChanged = true; - var notEq = function(kc) { return kc !== up.value }; - this.value = NList.filter(notEq)(this.value); - } - if (parentID === blur.id) { - isChanged = true; - this.value = NList.Nil; - } - } - if (count == n) { - send(this, timestep, isChanged); - isChanged = false; - count = 0; - } - }; - - for (var i = n; i--; ) { args[i].kids.push(this); } - - } - - var keysDown = Signal.dropRepeats(new KeyMerge(downEvents,upEvents,blurEvents)); - - function keySignal(f) { - var signal = A2(Signal.lift, f, keysDown); - // must set the default number of kids to make it possible to filter - // these signals if they are not actually used. - keysDown.defaultNumberOfKids += 1; - signal.defaultNumberOfKids = 1; - var filtered = Signal.dropRepeats(signal) - filtered.defaultNumberOfKids = 0; - return filtered; - } - - function dir(up, down, left, right) { - function f(ks) { - var x = 0, y = 0; - while (ks.ctor === "::") { - switch (ks._0) { - case left : --x; break; - case right: ++x; break; - case up : ++y; break; - case down : --y; break; - } - ks = ks._1; - } - return { _:{}, x:x, y:y }; - } - return keySignal(f); - } - - function is(key) { return keySignal(NList.member(key)); } - - var lastPressed = downEvents; - - return elm.Native.Keyboard.values = { - isDown:is, - directions:F4(dir), - keysDown:keysDown, - lastPressed:lastPressed - }; - -}; -Elm.Native.Mouse = {}; -Elm.Native.Mouse.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Mouse = elm.Native.Mouse || {}; - if (elm.Native.Mouse.values) return elm.Native.Mouse.values; - - var Signal = Elm.Signal.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - var position = Signal.constant(Utils.Tuple2(0,0)); - position.defaultNumberOfKids = 2; - - // do not move x and y into Elm. By setting their default number - // of kids, it is possible to detatch the mouse listeners if - // they are not needed. - var x = A2( Signal.lift, function(p){return p._0}, position); - x.defaultNumberOfKids = 0; - var y = A2( Signal.lift, function(p){return p._1}, position); - y.defaultNumberOfKids = 0; - - var isDown = Signal.constant(false); - var isClicked = Signal.constant(false); - var clicks = Signal.constant(Utils.Tuple0); - - var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; - - elm.addListener([isClicked.id, clicks.id], node, 'click', function click() { - elm.notify(isClicked.id, true); - elm.notify(clicks.id, Utils.Tuple0); - elm.notify(isClicked.id, false); - }); - elm.addListener([isDown.id], node, 'mousedown', function down() { - elm.notify(isDown.id, true); - }); - elm.addListener([isDown.id], node, 'mouseup', function up() { - elm.notify(isDown.id, false); - }); - elm.addListener([position.id], node, 'mousemove', function move(e) { - elm.notify(position.id, Utils.getXY(e)); - }); - - return elm.Native.Mouse.values = { - position: position, - x:x, - y:y, - isClicked: isClicked, - isDown: isDown, - clicks: clicks - }; -};Elm.Native.Random = {}; -Elm.Native.Random.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Random = elm.Native.Random || {}; - if (elm.Native.Random.values) return elm.Native.Random.values; - - var Signal = Elm.Signal.make(elm); - var List = Elm.Native.List.make(elm); - - function range(min, max, signal) { - function f(x) { return Math.floor(Math.random() * (max-min+1)) + min; } - return A2( Signal.lift, f, signal ); - } - - function float_(signal) { - function f(x) { return Math.random(); } - return A2( Signal.lift, f, signal ); - } - - function floatList(signal) { - function f(n) { - if (n < 0) return List.Nil; - var arr = new Array(n); - for (var i = n; i--; ) { - arr[i] = Math.random(); - } - return List.fromArray(arr); - } - return A2( Signal.lift, f, signal ); - } - - return elm.Native.Random.values = { - range: F3(range), - float_: float_, - floatList: floatList - }; - -}; - -Elm.Native.Signal = {}; -Elm.Native.Signal.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Signal = elm.Native.Signal || {}; - if (elm.Native.Signal.values) return elm.Native.Signal.values; - - var Utils = Elm.Native.Utils.make(elm); - var foldr1 = Elm.List.make(elm).foldr1; - - function send(node, timestep, changed) { - var kids = node.kids; - for (var i = kids.length; i--; ) { - kids[i].recv(timestep, changed, node.id); - } - } - - function Input(base) { - this.id = Utils.guid(); - this.value = base; - this.kids = []; - this.defaultNumberOfKids = 0; - this.recv = function(timestep, eid, v) { - var changed = eid === this.id; - if (changed) { this.value = v; } - send(this, timestep, changed); - return changed; - }; - elm.inputs.push(this); - } - - function LiftN(update, args) { - this.id = Utils.guid(); - this.value = update(); - this.kids = []; - - var n = args.length; - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - ++count; - if (changed) { isChanged = true; } - if (count == n) { - if (isChanged) { this.value = update(); } - send(this, timestep, isChanged); - isChanged = false; - count = 0; - } - }; - for (var i = n; i--; ) { args[i].kids.push(this); } - } - - function lift(func, a) { - function update() { return func(a.value); } - return new LiftN(update, [a]); - } - function lift2(func, a, b) { - function update() { return A2( func, a.value, b.value ); } - return new LiftN(update, [a,b]); - } - function lift3(func, a, b, c) { - function update() { return A3( func, a.value, b.value, c.value ); } - return new LiftN(update, [a,b,c]); - } - function lift4(func, a, b, c, d) { - function update() { return A4( func, a.value, b.value, c.value, d.value ); } - return new LiftN(update, [a,b,c,d]); - } - function lift5(func, a, b, c, d, e) { - function update() { return A5( func, a.value, b.value, c.value, d.value, e.value ); } - return new LiftN(update, [a,b,c,d,e]); - } - function lift6(func, a, b, c, d, e, f) { - function update() { return A6( func, a.value, b.value, c.value, d.value, e.value, f.value ); } - return new LiftN(update, [a,b,c,d,e,f]); - } - function lift7(func, a, b, c, d, e, f, g) { - function update() { return A7( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value ); } - return new LiftN(update, [a,b,c,d,e,f,g]); - } - function lift8(func, a, b, c, d, e, f, g, h) { - function update() { return A8( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value, h.value ); } - return new LiftN(update, [a,b,c,d,e,f,g,h]); - } - - function Foldp(step, state, input) { - this.id = Utils.guid(); - this.value = state; - this.kids = []; - - this.recv = function(timestep, changed, parentID) { - if (changed) { - this.value = A2( step, input.value, this.value ); - } - send(this, timestep, changed); - }; - input.kids.push(this); - } - - function foldp(step, state, input) { - return new Foldp(step, state, input); - } - - function DropIf(pred,base,input) { - this.id = Utils.guid(); - this.value = pred(input.value) ? base : input.value; - this.kids = []; - this.recv = function(timestep, changed, parentID) { - var chng = changed && !pred(input.value); - if (chng) { this.value = input.value; } - send(this, timestep, chng); - }; - input.kids.push(this); - } - - function DropRepeats(input) { - this.id = Utils.guid(); - this.value = input.value; - this.kids = []; - this.recv = function(timestep, changed, parentID) { - var chng = changed && !Utils.eq(this.value,input.value); - if (chng) { this.value = input.value; } - send(this, timestep, chng); - }; - input.kids.push(this); - } - - function dropWhen(s1,b,s2) { - var pairs = lift2( F2(function(x,y){return {x:x,y:y};}), s1, s2 ); - var dropped = new DropIf(function(p){return p.x;},{x:true,y:b},pairs); - return lift(function(p){return p.y;}, dropped); - } - - function timestamp(a) { - function update() { return Utils.Tuple2(Date.now(), a.value); } - return new LiftN(update, [a]); - } - - function SampleOn(s1,s2) { - this.id = Utils.guid(); - this.value = s2.value; - this.kids = []; - - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - if (parentID === s1.id) isChanged = changed; - ++count; - if (count == 2) { - if (isChanged) { this.value = s2.value; } - send(this, timestep, isChanged); - count = 0; - isChanged = false; - } - }; - s1.kids.push(this); - s2.kids.push(this); - } - - function sampleOn(s1,s2) { return new SampleOn(s1,s2); } - - function delay(t,s) { - var delayed = new Input(s.value); - var firstEvent = true; - function update(v) { - if (firstEvent) { firstEvent = false; return; } - setTimeout(function() { elm.notify(delayed.id, v); }, t); - } - function first(a,b) { return a; } - return new SampleOn(delayed, lift2(F2(first), delayed, lift(update,s))); - } - - function Merge(s1,s2) { - this.id = Utils.guid(); - this.value = s1.value; - this.kids = []; - - var next = null; - var count = 0; - var isChanged = false; - - this.recv = function(timestep, changed, parentID) { - ++count; - if (changed) { - isChanged = true; - if (parentID == s2.id && next === null) { next = s2.value; } - if (parentID == s1.id) { next = s1.value; } - } - - if (count == 2) { - if (isChanged) { this.value = next; next = null; } - send(this, timestep, isChanged); - isChanged = false; - count = 0; - } - }; - s1.kids.push(this); - s2.kids.push(this); - } - - function merge(s1,s2) { return new Merge(s1,s2); } - function merges(ss) { return A2(foldr1, F2(merge), ss); } - - return elm.Native.Signal.values = { - constant : function(v) { return new Input(v); }, - lift : F2(lift ), - lift2 : F3(lift2), - lift3 : F4(lift3), - lift4 : F5(lift4), - lift5 : F6(lift5), - lift6 : F7(lift6), - lift7 : F8(lift7), - lift8 : F9(lift8), - foldp : F3(foldp), - delay : F2(delay), - merge : F2(merge), - merges : merges, - count : function(s) { return foldp(F2(function(_,c) { return c+1; }), 0, s); }, - countIf : F2(function(pred,s) { - return foldp(F2(function(x,c){ - return pred(x) ? c+1 : c; }), 0, s)}), - keepIf : F3(function(pred,base,sig) { - return new DropIf(function(x) {return !pred(x);},base,sig); }), - dropIf : F3(function(pred,base,sig) { return new DropIf(pred,base,sig); }), - keepWhen : F3(function(s1,b,s2) { - return dropWhen(lift(function(b){return !b;},s1), b, s2); }), - dropWhen : F3(dropWhen), - dropRepeats : function(s) { return new DropRepeats(s);}, - sampleOn : F2(sampleOn), - timestamp : timestamp - }; -}; -Elm.Native.Time = {}; -Elm.Native.Time.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Time = elm.Native.Time || {}; - if (elm.Native.Time.values) return elm.Native.Time.values; - - var Signal = Elm.Signal.make(elm); - var NS = Elm.Native.Signal.make(elm); - var Maybe = Elm.Maybe.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function fpsWhen(desiredFPS, isOn) { - var msPerFrame = 1000 / desiredFPS; - var prev = Date.now(), curr = prev, diff = 0, wasOn = true; - var ticker = Signal.constant(diff); - function tick(zero) { return function() { - curr = Date.now(); - diff = zero ? 0 : curr - prev; - prev = curr; - elm.notify(ticker.id, diff); - }; - } - var timeoutID = 0; - function f(isOn, t) { - if (isOn) { - timeoutID = setTimeout(tick(!wasOn && isOn), msPerFrame); - } else if (wasOn) { - clearTimeout(timeoutID); - } - wasOn = isOn; - return t; - } - return A3( Signal.lift2, F2(f), isOn, ticker ); - } - - function every(t) { - var clock = Signal.constant(Date.now()); - setInterval(function() { - elm.notify(clock.id, Date.now()); - }, t); - return clock; - } - - function since(t, s) { - function cmp(a,b) { return !Utils.eq(a,b); } - var dcount = Signal.count(A2(NS.delay, t, s)); - return A3( Signal.lift2, F2(cmp), Signal.count(s), dcount ); - } - function read(s) { - var t = Date.parse(s); - return isNaN(t) ? Maybe.Nothing : Maybe.Just(t); - } - return elm.Native.Time.values = { - fpsWhen : F2(fpsWhen), - fps : function(t) { return fpsWhen(t, Signal.constant(true)); }, - every : every, - delay : NS.delay, - timestamp : NS.timestamp, - since : F2(since), - toDate : function(t) { return new window.Date(t); }, - read : read - }; - -}; -Elm.Native.Touch = {}; -Elm.Native.Touch.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Touch = elm.Native.Touch || {}; - if (elm.Native.Touch.values) return elm.Native.Touch.values; - - var Signal = Elm.Signal.make(elm); - var JS = Elm.JavaScript.make(elm); - var Utils = Elm.Native.Utils.make(elm); - - function Dict() { - this.keys = []; - this.values = []; - - this.insert = function(key,value) { - this.keys.push(key); - this.values.push(value); - }; - this.lookup = function(key) { - var i = this.keys.indexOf(key) - return i >= 0 ? this.values[i] : {x:0,y:0,t:0}; - }; - this.remove = function(key) { - var i = this.keys.indexOf(key); - if (i < 0) return; - var t = this.values[i]; - this.keys.splice(i,1); - this.values.splice(i,1); - return t; - }; - this.clear = function() { - this.keys = []; - this.values = []; - }; - } - - var root = Signal.constant([]), - tapTime = 500, - hasTap = false, - tap = {_:{},x:0,y:0}, - dict = new Dict(); - - function touch(t) { - var r = dict.lookup(t.identifier); - var point = Utils.getXY(t); - return {_ : {}, - id: t.identifier, - x : point._0, - y : point._1, - x0: r.x, - y0: r.y, - t0: r.t - }; - } - - var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; - - function start(e) { - var point = Utils.getXY(e); - dict.insert(e.identifier, - {x: point._0, - y: point._1, - t: Date.now()}); - } - function end(e) { - var t = dict.remove(e.identifier); - if (Date.now() - t.t < tapTime) { - hasTap = true; - tap = {_:{}, x:t.x, y:t.y}; - } - } - - function listen(name, f) { - function update(e) { - for (var i = e.changedTouches.length; i--; ) { f(e.changedTouches[i]); } - var ts = new Array(e.touches.length); - for (var i = e.touches.length; i--; ) { ts[i] = touch(e.touches[i]); } - elm.notify(root.id, ts); - e.preventDefault(); - } - elm.addListener([root.id], node, name, update); - } - - listen("touchstart", start); - listen("touchmove", function(_){}); - listen("touchend", end); - listen("touchcancel", end); - listen("touchleave", end); - - var mouseID = -1; - function move(e) { - var point = Utils.getXY(e); - for (var i = root.value.length; i--; ) { - if (root.value[i].id === mouseID) { - root.value[i].x = point._0; - root.value[i].y = point._1; - elm.notify(root.id, root.value); - break; - } - } - } - elm.addListener([root.id], node, "mousedown", function down(e) { - node.addEventListener("mousemove", move); - e.identifier = mouseID; - start(e); - root.value.push(touch(e)); - elm.notify(root.id, root.value); - }); - elm.addListener([root.id], node, "mouseup", function up(e) { - node.removeEventListener("mousemove", move); - e.identifier = mouseID; - end(e); - for (var i = root.value.length; i--; ) { - if (root.value[i].id === mouseID) { - root.value.splice(i, 1); - --mouseID; - break; - } - } - elm.notify(root.id, root.value); - }); - elm.addListener([root.id], node, "blur", function blur(e) { - node.removeEventListener("mousemove", move); - if (root.value.length > 0) { - elm.notify(root.id, []); - --mouseID; - } - dict.clear(); - }); - - function dependency(f) { - var sig = A2( Signal.lift, f, root ); - root.defaultNumberOfKids += 1; - sig.defaultNumberOfKids = 0; - return sig; - } - - var touches = dependency(JS.toList); - - var taps = function() { - var sig = dependency(function(_) { return tap; }); - sig.defaultNumberOfKids = 1; - function pred(_) { var b = hasTap; hasTap = false; return b; } - var sig2 = A3( Signal.keepIf, pred, {_:{},x:0,y:0}, sig); - sig2.defaultNumberOfKids = 0; - return sig2; - }(); - - return elm.Native.Touch.values = { touches: touches, taps: taps }; - -};Elm.Native.WebSocket = {}; -Elm.Native.WebSocket.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.WebSocket = elm.Native.WebSocket || {}; - if (elm.Native.WebSocket.values) return elm.Native.WebSocket.values; - - var Signal = Elm.Signal.make(elm); - var JS = Elm.JavaScript.make(elm); - var List = Elm.Native.List.make(elm); - - function open(url, outgoing) { - var incoming = Signal.constant(List.Nil); - var ws = new WebSocket(JS.fromString(url)); - - var pending = []; - var ready = false; - - ws.onopen = function(e) { - var len = pending.length; - for (var i = 0; i < len; ++i) { ws.send(pending[i]); } - ready = true; - }; - ws.onmessage = function(event) { - elm.notify(incoming.id, JS.toString(event.data)); - }; - - function send(msg) { - var s = JS.fromString(msg); - ready ? ws.send(s) : pending.push(s); - } - - function take1(x,y) { return x } - return A3(Signal.lift2, F2(take1), incoming, A2(Signal.lift, send, outgoing)); - } - - return elm.Native.WebSocket.values = { connect: F2(open) }; -}; -Elm.Native.Window = {}; -Elm.Native.Window.make = function(elm) { - - elm.Native = elm.Native || {}; - elm.Native.Window = elm.Native.Window || {}; - if (elm.Native.Window.values) return elm.Native.Window.values; - - var Signal = Elm.Signal.make(elm); - var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; - - function getWidth() { return elm.node.clientWidth; } - function getHeight() { - if (elm.display === ElmRuntime.Display.FULLSCREEN) { - return window.innerHeight; - } - return elm.node.clientHeight; - } - - var dimensions = Signal.constant(Tuple2(getWidth(), getHeight())); - dimensions.defaultNumberOfKids = 2; - - // Do not move width and height into Elm. By setting the default number of kids, - // the resize listener can be detached. - var width = A2(Signal.lift, function(p){return p._0;}, dimensions); - width.defaultNumberOfKids = 0; - - var height = A2(Signal.lift, function(p){return p._1;}, dimensions); - height.defaultNumberOfKids = 0; - - function resizeIfNeeded() { - // Do not trigger event if the dimensions have not changed. - // This should be most of the time. - var w = getWidth(); - var h = getHeight(); - if (dimensions.value._0 === w && dimensions.value._1 === h) return; - - setTimeout(function () { - // Check again to see if the dimensions have changed. - // It is conceivable that the dimensions have changed - // again while some other event was being processed. - var w = getWidth(); - var h = getHeight(); - if (dimensions.value._0 === w && dimensions.value._1 === h) return; - elm.notify(dimensions.id, Tuple2(w,h)); - }, 0); - } - elm.addListener([dimensions.id], window, 'resize', resizeIfNeeded); - - return elm.Native.Window.values = { - dimensions:dimensions, - width:width, - height:height, - resizeIfNeeded:resizeIfNeeded - }; - -}; -Elm.Basics = Elm.Basics || {}; -Elm.Basics.make = function (_elm) - { - _elm.Basics = _elm.Basics || {}; - if (_elm.Basics.values) - return _elm.Basics.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Basics"; - var Native = Native || {}; - Native.Basics = Elm.Native.Basics.make(_elm); - var _op = {}; - var uncurry = F2(function (f,_v0) - { - return function () - { - switch (_v0.ctor) - {case - "_Tuple2" : - return A2(f,_v0._0,_v0._1)} - _E.Case($moduleName,"on line 354, column 19 to 24"); - }() - }); - var curry = F3(function (f,a,b) - { - return f({ctor: "_Tuple2", _0: a, _1: b}) - }); - var flip = F3(function (f,b,a) - { - return A2(f,a,b) - }); - var snd = function (_v4) - { - return function () - { - switch (_v4.ctor) - {case - "_Tuple2" : - return _v4._1} - _E.Case($moduleName,"on line 338, column 13 to 14"); - }() - }; - var fst = function (_v8) - { - return function () - { - switch (_v8.ctor) - {case - "_Tuple2" : - return _v8._0} - _E.Case($moduleName,"on line 334, column 13 to 14"); - }() - }; - var always = F2(function (a,_v12) - { - return function () - { - return a - }() - }); - var id = function (x) - { - return x - }; - _op["<|"] = F2(function (f,x) - { - return f(x) - }); - _op["|>"] = F2(function (x,f) - { - return f(x) - }); - _op["."] = F3(function (f,g,x) - { - return f(g(x)) - }); - var toFloat = Native.Basics.toFloat; - var ceiling = Native.Basics.ceiling; - var floor = Native.Basics.floor; - var truncate = Native.Basics.truncate; - var round = Native.Basics.round; - var otherwise = true; - var not = Native.Basics.not; - var xor = Native.Basics.xor; - _op["||"] = Native.Basics.or; - _op["&&"] = Native.Basics.and; - var max = Native.Basics.max; - var min = Native.Basics.min; - var GT = {ctor: "GT"}; - var EQ = {ctor: "EQ"}; - var LT = {ctor: "LT"}; - var compare = Native.Basics.compare; - _op[">="] = Native.Basics.ge; - _op["<="] = Native.Basics.le; - _op[">"] = Native.Basics.gt; - _op["<"] = Native.Basics.lt; - _op["/="] = Native.Basics.neq; - _op["=="] = Native.Basics.eq; - var e = Native.Basics.e; - var pi = Native.Basics.pi; - var clamp = Native.Basics.clamp; - var logBase = Native.Basics.logBase; - var abs = Native.Basics.abs; - var sqrt = Native.Basics.sqrt; - var atan2 = Native.Basics.atan2; - var atan = Native.Basics.atan; - var asin = Native.Basics.asin; - var acos = Native.Basics.acos; - var tan = Native.Basics.tan; - var sin = Native.Basics.sin; - var cos = Native.Basics.cos; - _op["^"] = Native.Basics.exp; - var mod = Native.Basics.mod; - var rem = Native.Basics.rem; - var div = Native.Basics.div; - _op["/"] = Native.Basics.floatDiv; - _op["*"] = Native.Basics.mul; - _op["-"] = Native.Basics.sub; - _op["+"] = Native.Basics.add; - var toPolar = function (_v14) - { - return function () - { - switch (_v14.ctor) - {case - "_Tuple2" : - return {ctor: "_Tuple2", _0: Native.Basics.sqrt(Math.pow(_v14._0, - 2) + Math.pow(_v14._1, - 2)), _1: A2(Native.Basics.atan2, - _v14._1, - _v14._0)}} - _E.Case($moduleName,"on line 76, column 18 to 73"); - }() - }; - var fromPolar = function (_v18) - { - return function () - { - switch (_v18.ctor) - {case - "_Tuple2" : - return {ctor: "_Tuple2", _0: _v18._0 * Native.Basics.cos(_v18._1), _1: _v18._0 * Native.Basics.sin(_v18._1)}} - _E.Case($moduleName,"on line 70, column 20 to 68"); - }() - }; - var turns = function (r) - { - return 2 * Native.Basics.pi * r - }; - var degrees = function (d) - { - return d * Native.Basics.pi / 180 - }; - var radians = function (t) - { - return t - }; - _elm.Basics.values = {_op: _op, radians: radians, degrees: degrees, turns: turns, fromPolar: fromPolar, toPolar: toPolar, div: div, rem: rem, mod: mod, cos: cos, sin: sin, tan: tan, acos: acos, asin: asin, atan: atan, atan2: atan2, sqrt: sqrt, abs: abs, logBase: logBase, clamp: clamp, pi: pi, e: e, compare: compare, min: min, max: max, xor: xor, not: not, otherwise: otherwise, round: round, truncate: truncate, floor: floor, ceiling: ceiling, toFloat: toFloat, id: id, always: always, fst: fst, snd: snd, flip: flip, curry: curry, uncurry: uncurry, LT: LT, EQ: EQ, GT: GT}; - return _elm.Basics.values - };Elm.Bitwise = Elm.Bitwise || {}; -Elm.Bitwise.make = function (_elm) - { - _elm.Bitwise = _elm.Bitwise || {}; - if (_elm.Bitwise.values) - return _elm.Bitwise.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Bitwise"; - var Native = Native || {}; - Native.Bitwise = Elm.Native.Bitwise.make(_elm); - var _op = {}; - var shiftRightLogical = Native.Bitwise.shiftRightLogical; - var shiftRight = Native.Bitwise.shiftRightArithmatic; - var shiftLeft = Native.Bitwise.shiftLeft; - var complement = Native.Bitwise.complement; - var xor = Native.Bitwise.xor; - var or = Native.Bitwise.or; - var and = Native.Bitwise.and; - _elm.Bitwise.values = {_op: _op, and: and, or: or, xor: xor, complement: complement, shiftLeft: shiftLeft, shiftRight: shiftRight, shiftRightLogical: shiftRightLogical}; - return _elm.Bitwise.values - };Elm.Char = Elm.Char || {}; -Elm.Char.make = function (_elm) - { - _elm.Char = _elm.Char || {}; - if (_elm.Char.values) - return _elm.Char.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Char"; - var Native = Native || {}; - Native.Char = Elm.Native.Char.make(_elm); - var _op = {}; - var fromCode = Native.Char.fromCode; - var toCode = Native.Char.toCode; - var toLocaleLower = Native.Char.toLocaleLower; - var toLocaleUpper = Native.Char.toLocaleUpper; - var toLower = Native.Char.toLower; - var toUpper = Native.Char.toUpper; - var isHexDigit = Native.Char.isHexDigit; - var isOctDigit = Native.Char.isOctDigit; - var isDigit = Native.Char.isDigit; - var isLower = Native.Char.isLower; - var isUpper = Native.Char.isUpper; - _elm.Char.values = {_op: _op, isUpper: isUpper, isLower: isLower, isDigit: isDigit, isOctDigit: isOctDigit, isHexDigit: isHexDigit, toUpper: toUpper, toLower: toLower, toLocaleUpper: toLocaleUpper, toLocaleLower: toLocaleLower, toCode: toCode, fromCode: fromCode}; - return _elm.Char.values - };Elm.Color = Elm.Color || {}; -Elm.Color.make = function (_elm) - { - _elm.Color = _elm.Color || {}; - if (_elm.Color.values) - return _elm.Color.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Color"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.Color = Elm.Native.Color.make(_elm); - var _op = {}; - var Radial = F5(function (a,b,c,d,e) - { - return {ctor: "Radial", _0: a, _1: b, _2: c, _3: d, _4: e} - }); - var radial = Radial; - var Linear = F3(function (a,b,c) - { - return {ctor: "Linear", _0: a, _1: b, _2: c} - }); - var linear = Linear; - var hsv = Native.Color.hsv; - var hsva = Native.Color.hsva; - var complement = Native.Color.complement; - var greyscale = function (p) - { - return A3(hsv,0,0,1 - p) - }; - var grayscale = function (p) - { - return A3(hsv,0,0,1 - p) - }; - var Color = F4(function (a,b,c,d) - { - return {ctor: "Color", _0: a, _1: b, _2: c, _3: d} - }); - var rgba = Color; - var rgb = F3(function (r,g,b) - { - return A4(Color,r,g,b,1) - }); - var lightRed = A4(Color,239,41,41,1); - var red = A4(Color,204,0,0,1); - var darkRed = A4(Color,164,0,0,1); - var lightOrange = A4(Color,252,175,62,1); - var orange = A4(Color,245,121,0,1); - var darkOrange = A4(Color,206,92,0,1); - var lightYellow = A4(Color,255,233,79,1); - var yellow = A4(Color,237,212,0,1); - var darkYellow = A4(Color,196,160,0,1); - var lightGreen = A4(Color,138,226,52,1); - var green = A4(Color,115,210,22,1); - var darkGreen = A4(Color,78,154,6,1); - var lightBlue = A4(Color,114,159,207,1); - var blue = A4(Color,52,101,164,1); - var darkBlue = A4(Color,32,74,135,1); - var lightPurple = A4(Color,173,127,168,1); - var purple = A4(Color,117,80,123,1); - var darkPurple = A4(Color,92,53,102,1); - var lightBrown = A4(Color,233,185,110,1); - var brown = A4(Color,193,125,17,1); - var darkBrown = A4(Color,143,89,2,1); - var black = A4(Color,0,0,0,1); - var white = A4(Color,255,255,255,1); - var lightGrey = A4(Color,238,238,236,1); - var grey = A4(Color,211,215,207,1); - var darkGrey = A4(Color,186,189,182,1); - var lightGray = A4(Color,238,238,236,1); - var gray = A4(Color,211,215,207,1); - var darkGray = A4(Color,186,189,182,1); - var lightCharcoal = A4(Color,136,138,133,1); - var charcoal = A4(Color,85,87,83,1); - var darkCharcoal = A4(Color,46,52,54,1); - _elm.Color.values = {_op: _op, rgba: rgba, rgb: rgb, lightRed: lightRed, red: red, darkRed: darkRed, lightOrange: lightOrange, orange: orange, darkOrange: darkOrange, lightYellow: lightYellow, yellow: yellow, darkYellow: darkYellow, lightGreen: lightGreen, green: green, darkGreen: darkGreen, lightBlue: lightBlue, blue: blue, darkBlue: darkBlue, lightPurple: lightPurple, purple: purple, darkPurple: darkPurple, lightBrown: lightBrown, brown: brown, darkBrown: darkBrown, black: black, white: white, lightGrey: lightGrey, grey: grey, darkGrey: darkGrey, lightGray: lightGray, gray: gray, darkGray: darkGray, lightCharcoal: lightCharcoal, charcoal: charcoal, darkCharcoal: darkCharcoal, grayscale: grayscale, greyscale: greyscale, complement: complement, hsva: hsva, hsv: hsv, linear: linear, radial: radial, Color: Color, Linear: Linear, Radial: Radial}; - return _elm.Color.values - };Elm.Date = Elm.Date || {}; -Elm.Date.make = function (_elm) - { - _elm.Date = _elm.Date || {}; - if (_elm.Date.values) - return _elm.Date.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Date"; - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Date = Elm.Native.Date.make(_elm); - var Time = Elm.Time.make(_elm); - var _op = {}; - var second = Native.Date.second; - var minute = Native.Date.minute; - var hour = Native.Date.hour; - var dayOfWeek = Native.Date.dayOfWeek; - var day = Native.Date.day; - var month = Native.Date.month; - var year = Native.Date.year; - var toTime = Native.Date.toTime; - var read = Native.Date.read; - var Dec = {ctor: "Dec"}; - var Nov = {ctor: "Nov"}; - var Oct = {ctor: "Oct"}; - var Sep = {ctor: "Sep"}; - var Aug = {ctor: "Aug"}; - var Jul = {ctor: "Jul"}; - var Jun = {ctor: "Jun"}; - var May = {ctor: "May"}; - var Apr = {ctor: "Apr"}; - var Mar = {ctor: "Mar"}; - var Feb = {ctor: "Feb"}; - var Jan = {ctor: "Jan"}; - var Sun = {ctor: "Sun"}; - var Sat = {ctor: "Sat"}; - var Fri = {ctor: "Fri"}; - var Thu = {ctor: "Thu"}; - var Wed = {ctor: "Wed"}; - var Tue = {ctor: "Tue"}; - var Mon = {ctor: "Mon"}; - var Date = {ctor: "Date"}; - _elm.Date.values = {_op: _op, read: read, toTime: toTime, year: year, month: month, day: day, dayOfWeek: dayOfWeek, hour: hour, minute: minute, second: second, Date: Date, Mon: Mon, Tue: Tue, Wed: Wed, Thu: Thu, Fri: Fri, Sat: Sat, Sun: Sun, Jan: Jan, Feb: Feb, Mar: Mar, Apr: Apr, May: May, Jun: Jun, Jul: Jul, Aug: Aug, Sep: Sep, Oct: Oct, Nov: Nov, Dec: Dec}; - return _elm.Date.values - };Elm.Dict = Elm.Dict || {}; -Elm.Dict.make = function (_elm) - { - _elm.Dict = _elm.Dict || {}; - if (_elm.Dict.values) - return _elm.Dict.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Dict"; - var Basics = Elm.Basics.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Error = Elm.Native.Error.make(_elm); - var Native = Native || {}; - Native.Utils = Elm.Native.Utils.make(_elm); - var String = Elm.String.make(_elm); - var _op = {}; - var Same = {ctor: "Same"}; - var Remove = {ctor: "Remove"}; - var Insert = {ctor: "Insert"}; - var showFlag = function (f) - { - return function () - { - switch (f.ctor) - {case - "Insert" : - return "Insert" - case - "Remove" : - return "Remove" - case - "Same" : - return "Same"} - _E.Case($moduleName,"between lines 137 and 142"); - }() - }; - var RBEmpty = function (a) - { - return {ctor: "RBEmpty", _0: a} - }; - var RBNode = F5(function (a,b,c,d,e) - { - return {ctor: "RBNode", _0: a, _1: b, _2: c, _3: d, _4: e} - }); - var max = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - return Native.Error.raise("(max Empty) is not defined") - case - "RBNode" : - switch (t._4.ctor) - {case - "RBEmpty" : - return {ctor: "_Tuple2", _0: t._1, _1: t._2}} - return max(t._4)} - _E.Case($moduleName,"between lines 83 and 88"); - }() - }; - var LBBlack = {ctor: "LBBlack"}; - var LBlack = {ctor: "LBlack"}; - var showLColor = function (c) - { - return function () - { - switch (c.ctor) - {case - "LBBlack" : - return "LBBlack" - case - "LBlack" : - return "LBlack"} - _E.Case($moduleName,"between lines 63 and 65"); - }() - }; - var empty = RBEmpty(LBlack); - var min = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return Native.Error.raise("(min Empty) is not defined")} - break; - case - "RBNode" : - switch (t._3.ctor) - {case - "RBEmpty" : - switch (t._3._0.ctor) - {case - "LBlack" : - return {ctor: "_Tuple2", _0: t._1, _1: t._2}} - break;} - return min(t._3)} - _E.Case($moduleName,"between lines 76 and 79"); - }() - }; - var lookup = F2(function (k,t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return Maybe.Nothing} - break; - case - "RBNode" : - return function () - { - var _v25 = A2(Native.Utils.compare,k,t._1); - switch (_v25.ctor) - {case - "EQ" : - return Maybe.Just(t._2) - case - "GT" : - return A2(lookup,k,t._4) - case - "LT" : - return A2(lookup,k,t._3)} - _E.Case($moduleName, - "between lines 94 and 100"); - }()} - _E.Case($moduleName,"between lines 91 and 100"); - }() - }); - var member = F2(function (k,t) - { - return Maybe.isJust(A2(lookup,k,t)) - }); - var findWithDefault = F3(function (base,k,t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return base} - break; - case - "RBNode" : - return function () - { - var _v33 = A2(Native.Utils.compare, - k, - t._1); - switch (_v33.ctor) - {case - "EQ" : - return t._2 - case - "GT" : - return A3(findWithDefault, - base, - k, - t._4) - case - "LT" : - return A3(findWithDefault, - base, - k, - t._3)} - _E.Case($moduleName, - "between lines 106 and 111"); - }()} - _E.Case($moduleName, - "between lines 103 and 111"); - }() - }); - var map = F2(function (f,t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return RBEmpty(LBlack)} - break; - case - "RBNode" : - return A5(RBNode, - t._0, - t._1, - f(t._2), - A2(map,f,t._3), - A2(map,f,t._4))} - _E.Case($moduleName,"between lines 303 and 308"); - }() - }); - var foldl = F3(function (f,acc,t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return acc} - break; - case - "RBNode" : - return A3(foldl, - f, - A3(f,t._1,t._2,A3(foldl,f,acc,t._3)), - t._4)} - _E.Case($moduleName,"between lines 311 and 316"); - }() - }); - var foldr = F3(function (f,acc,t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return acc} - break; - case - "RBNode" : - return A3(foldr, - f, - A3(f,t._1,t._2,A3(foldr,f,acc,t._4)), - t._3)} - _E.Case($moduleName,"between lines 319 and 324"); - }() - }); - var keys = function (t) - { - return A3(foldr, - F3(function (k,v,acc) - { - return {ctor: "::", _0: k, _1: acc} - }), - _J.toList([]), - t) - }; - var values = function (t) - { - return A3(foldr, - F3(function (k,v,acc) - { - return {ctor: "::", _0: v, _1: acc} - }), - _J.toList([]), - t) - }; - var toList = function (t) - { - return A3(foldr, - F3(function (k,v,acc) - { - return {ctor: "::", _0: {ctor: "_Tuple2", _0: k, _1: v}, _1: acc} - }), - _J.toList([]), - t) - }; - var NBlack = {ctor: "NBlack"}; - var BBlack = {ctor: "BBlack"}; - var isBBlack = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBBlack" : - return true} - break; - case - "RBNode" : - switch (t._0.ctor) - {case - "BBlack" : - return true} - break;} - return false - }() - }; - var Black = {ctor: "Black"}; - var blackish = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - return true - case - "RBNode" : - return _U.eq(t._0,Black) || _U.eq(t._0,BBlack)} - _E.Case($moduleName,"between lines 254 and 256"); - }() - }; - var blacken = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - return RBEmpty(LBlack) - case - "RBNode" : - return A5(RBNode,Black,t._1,t._2,t._3,t._4)} - _E.Case($moduleName,"between lines 290 and 292"); - }() - }; - var Red = {ctor: "Red"}; - var showNColor = function (c) - { - return function () - { - switch (c.ctor) - {case - "BBlack" : - return "BBlack" - case - "Black" : - return "Black" - case - "NBlack" : - return "NBlack" - case - "Red" : - return "Red"} - _E.Case($moduleName,"between lines 52 and 56"); - }() - }; - var reportRemBug = F4(function (msg,c,lgot,rgot) - { - return Native.Error.raise(String.concat(_J.toList(["Internal red-black tree invariant violated, expected ", - msg, - "and got", - showNColor(c), - " ", - lgot, - " ", - rgot, - "\nPlease report this bug to https://github.com/evancz/Elm/issues"]))) - }); - var ensureBlackRoot = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return t} - break; - case - "RBNode" : - switch (t._0.ctor) - {case - "Black" : - return t - case - "Red" : - return A5(RBNode, - Black, - t._1, - t._2, - t._3, - t._4)} - break;} - _E.Case($moduleName,"between lines 118 and 124"); - }() - }; - var moreBlack = function (c) - { - return function () - { - switch (c.ctor) - {case - "BBlack" : - return Native.Error.raise("Can\'t make a double black node more black!") - case - "Black" : - return BBlack - case - "NBlack" : - return Red - case - "Red" : - return Black} - _E.Case($moduleName,"between lines 180 and 184"); - }() - }; - var lessBlack = function (c) - { - return function () - { - switch (c.ctor) - {case - "BBlack" : - return Black - case - "Black" : - return Red - case - "NBlack" : - return Native.Error.raise("Can\'t make a negative black node less black!") - case - "Red" : - return NBlack} - _E.Case($moduleName,"between lines 187 and 191"); - }() - }; - var lessBlackTree = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBBlack" : - return RBEmpty(LBlack)} - break; - case - "RBNode" : - return A5(RBNode, - lessBlack(t._0), - t._1, - t._2, - t._3, - t._4)} - _E.Case($moduleName,"between lines 194 and 196"); - }() - }; - var redden = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - return Native.Error.raise("can\'t make a Leaf red") - case - "RBNode" : - return A5(RBNode,Red,t._1,t._2,t._3,t._4)} - _E.Case($moduleName,"between lines 296 and 300"); - }() - }; - var balance_node = function (t) - { - return function () - { - var assemble = function (col) - { - return function (xk) - { - return function (xv) - { - return function (yk) - { - return function (yv) - { - return function (zk) - { - return function (zv) - { - return function (a) - { - return function (b) - { - return function (c) - { - return function (d) - { - return A5(RBNode, - lessBlack(col), - yk, - yv, - A5(RBNode, - Black, - xk, - xv, - a, - b), - A5(RBNode, - Black, - zk, - zv, - c, - d)) - } - } - } - } - } - } - } - } - } - } - }; - return blackish(t) ? function () - { - switch (t.ctor) - {case - "RBNode" : - switch (t._3.ctor) - {case - "RBNode" : - switch (t._3._0.ctor) - {case - "Red" : - switch (t._3._3.ctor) - {case - "RBNode" : - switch (t._3._3._0.ctor) - {case - "Red" : - return assemble(t._0)(t._3._3._1)(t._3._3._2)(t._3._1)(t._3._2)(t._1)(t._2)(t._3._3._3)(t._3._3._4)(t._3._4)(t._4)} - break;} - switch (t._3._4.ctor) - {case - "RBNode" : - switch (t._3._4._0.ctor) - {case - "Red" : - return assemble(t._0)(t._3._1)(t._3._2)(t._3._4._1)(t._3._4._2)(t._1)(t._2)(t._3._3)(t._3._4._3)(t._3._4._4)(t._4)} - break;} - break;} - break;} - switch (t._4.ctor) - {case - "RBNode" : - switch (t._4._0.ctor) - {case - "Red" : - switch (t._4._3.ctor) - {case - "RBNode" : - switch (t._4._3._0.ctor) - {case - "Red" : - return assemble(t._0)(t._1)(t._2)(t._4._3._1)(t._4._3._2)(t._4._1)(t._4._2)(t._3)(t._4._3._3)(t._4._3._4)(t._4._4)} - break;} - switch (t._4._4.ctor) - {case - "RBNode" : - switch (t._4._4._0.ctor) - {case - "Red" : - return assemble(t._0)(t._1)(t._2)(t._4._1)(t._4._2)(t._4._4._1)(t._4._4._2)(t._3)(t._4._3)(t._4._4._3)(t._4._4._4)} - break;} - break;} - break;} - switch (t._0.ctor) - {case - "BBlack" : - switch (t._4.ctor) - {case - "RBNode" : - switch (t._4._0.ctor) - {case - "NBlack" : - switch (t._4._3.ctor) - {case - "RBNode" : - switch (t._4._3._0.ctor) - {case - "Black" : - return function () - { - switch (t._4._4.ctor) - {case - "RBNode" : - switch (t._4._4._0.ctor) - {case - "Black" : - return A5(RBNode, - Black, - t._4._3._1, - t._4._3._2, - A5(RBNode, - Black, - t._1, - t._2, - t._3, - t._4._3._3), - A5(balance, - Black, - t._4._1, - t._4._2, - t._4._3._4, - redden(t._4._4)))} - break;} - return t - }()} - break;} - break;} - break;} - switch (t._3.ctor) - {case - "RBNode" : - switch (t._3._0.ctor) - {case - "NBlack" : - switch (t._3._4.ctor) - {case - "RBNode" : - switch (t._3._4._0.ctor) - {case - "Black" : - return function () - { - switch (t._3._3.ctor) - {case - "RBNode" : - switch (t._3._3._0.ctor) - {case - "Black" : - return A5(RBNode, - Black, - t._3._4._1, - t._3._4._2, - A5(balance, - Black, - t._3._1, - t._3._2, - redden(t._3._3), - t._3._4._3), - A5(RBNode, - Black, - t._1, - t._2, - t._3._4._4, - t._4))} - break;} - return t - }()} - break;} - break;} - break;} - break;} - break;} - return t - }() : t - }() - }; - var balance = F5(function (c,k,v,l,r) - { - return balance_node(A5(RBNode,c,k,v,l,r)) - }); - var bubble = F5(function (c,k,v,l,r) - { - return isBBlack(l) || isBBlack(r) ? A5(balance, - moreBlack(c), - k, - v, - lessBlackTree(l), - lessBlackTree(r)) : A5(RBNode, - c, - k, - v, - l, - r) - }); - var remove_max = F5(function (c,k,v,l,r) - { - return function () - { - switch (r.ctor) - {case - "RBEmpty" : - return A3(rem,c,l,r) - case - "RBNode" : - return A5(bubble, - c, - k, - v, - l, - A5(remove_max, - r._0, - r._1, - r._2, - r._3, - r._4))} - _E.Case($moduleName,"between lines 242 and 245"); - }() - }); - var rem = F3(function (c,l,r) - { - return function () - { - var _v175 = {ctor: "_Tuple2", _0: l, _1: r}; - switch (_v175.ctor) - {case - "_Tuple2" : - switch (_v175._0.ctor) - {case - "RBEmpty" : - switch (_v175._1.ctor) - {case - "RBEmpty" : - return function () - { - switch (c.ctor) - {case - "Black" : - return RBEmpty(LBBlack) - case - "Red" : - return RBEmpty(LBlack)} - _E.Case($moduleName, - "between lines 215 and 218"); - }() - case - "RBNode" : - return function () - { - var _v197 = {ctor: "_Tuple3", _0: c, _1: _v175._0._0, _2: _v175._1._0}; - switch (_v197.ctor) - {case - "_Tuple3" : - switch (_v197._0.ctor) - {case - "Black" : - switch (_v197._1.ctor) - {case - "LBlack" : - switch (_v197._2.ctor) - {case - "Red" : - return A5(RBNode, - Black, - _v175._1._1, - _v175._1._2, - _v175._1._3, - _v175._1._4)} - break;} - break;} - break;} - return A4(reportRemBug, - "Black, LBlack, Red", - c, - showLColor(_v175._0._0), - showNColor(_v175._1._0)) - }()} - break; - case - "RBNode" : - switch (_v175._1.ctor) - {case - "RBEmpty" : - return function () - { - var _v201 = {ctor: "_Tuple3", _0: c, _1: _v175._0._0, _2: _v175._1._0}; - switch (_v201.ctor) - {case - "_Tuple3" : - switch (_v201._0.ctor) - {case - "Black" : - switch (_v201._1.ctor) - {case - "Red" : - switch (_v201._2.ctor) - {case - "LBlack" : - return A5(RBNode, - Black, - _v175._0._1, - _v175._0._2, - _v175._0._3, - _v175._0._4)} - break;} - break;} - break;} - return A4(reportRemBug, - "Black, Red, LBlack", - c, - showNColor(_v175._0._0), - showLColor(_v175._1._0)) - }() - case - "RBNode" : - return function () - { - var l$ = A5(remove_max, - _v175._0._0, - _v175._0._1, - _v175._0._2, - _v175._0._3, - _v175._0._4); - var r = A5(RBNode, - _v175._1._0, - _v175._1._1, - _v175._1._2, - _v175._1._3, - _v175._1._4); - var l = A5(RBNode, - _v175._0._0, - _v175._0._1, - _v175._0._2, - _v175._0._3, - _v175._0._4); - var $ = max(l),k = $._0,v = $._1; - return A5(bubble,c,k,v,l$,r) - }()} - break;} - break;} - _E.Case($moduleName,"between lines 214 and 232"); - }() - }); - var update = F3(function (k,u,t) - { - return function () - { - var up = function (t) - { - return function () - { - switch (t.ctor) - {case - "RBEmpty" : - switch (t._0.ctor) - {case - "LBlack" : - return function () - { - var _v212 = u(Maybe.Nothing); - switch (_v212.ctor) - {case - "Just" : - return {ctor: "_Tuple2", _0: Insert, _1: A5(RBNode, - Red, - k, - _v212._0, - empty, - empty)} - case - "Nothing" : - return {ctor: "_Tuple2", _0: Same, _1: empty}} - _E.Case($moduleName, - "between lines 146 and 149"); - }()} - break; - case - "RBNode" : - return function () - { - var _v214 = A2(Native.Utils.compare, - k, - t._1); - switch (_v214.ctor) - {case - "EQ" : - return function () - { - var _v215 = u(Maybe.Just(t._2)); - switch (_v215.ctor) - {case - "Just" : - return {ctor: "_Tuple2", _0: Same, _1: A5(RBNode, - t._0, - t._1, - _v215._0, - t._3, - t._4)} - case - "Nothing" : - return {ctor: "_Tuple2", _0: Remove, _1: A3(rem, - t._0, - t._3, - t._4)}} - _E.Case($moduleName, - "between lines 150 and 153"); - }() - case - "GT" : - return function () - { - var $ = up(t._4), - fl = $._0, - r$ = $._1; - return function () - { - switch (fl.ctor) - {case - "Insert" : - return {ctor: "_Tuple2", _0: Insert, _1: A5(balance, - t._0, - t._1, - t._2, - t._3, - r$)} - case - "Remove" : - return {ctor: "_Tuple2", _0: Remove, _1: A5(bubble, - t._0, - t._1, - t._2, - t._3, - r$)} - case - "Same" : - return {ctor: "_Tuple2", _0: Same, _1: A5(RBNode, - t._0, - t._1, - t._2, - t._3, - r$)}} - _E.Case($moduleName, - "between lines 159 and 163"); - }() - }() - case - "LT" : - return function () - { - var $ = up(t._3), - fl = $._0, - l$ = $._1; - return function () - { - switch (fl.ctor) - {case - "Insert" : - return {ctor: "_Tuple2", _0: Insert, _1: A5(balance, - t._0, - t._1, - t._2, - l$, - t._4)} - case - "Remove" : - return {ctor: "_Tuple2", _0: Remove, _1: A5(bubble, - t._0, - t._1, - t._2, - l$, - t._4)} - case - "Same" : - return {ctor: "_Tuple2", _0: Same, _1: A5(RBNode, - t._0, - t._1, - t._2, - l$, - t._4)}} - _E.Case($moduleName, - "between lines 154 and 158"); - }() - }()} - _E.Case($moduleName, - "between lines 149 and 163"); - }()} - _E.Case($moduleName, - "between lines 145 and 163"); - }() - }; - var $ = up(t),fl = $._0,t$ = $._1; - return function () - { - switch (fl.ctor) - {case - "Insert" : - return ensureBlackRoot(t$) - case - "Remove" : - return blacken(t$) - case - "Same" : - return t$} - _E.Case($moduleName, - "between lines 164 and 169"); - }() - }() - }); - var insert = F3(function (k,v,t) - { - return function () - { - var u = function (_v220) - { - return function () - { - return Maybe.Just(v) - }() - }; - return A3(update,k,u,t) - }() - }); - var singleton = F2(function (k,v) - { - return A3(insert,k,v,RBEmpty(LBlack)) - }); - var union = F2(function (t1,t2) - { - return A3(foldl,insert,t2,t1) - }); - var intersect = F2(function (t1,t2) - { - return function () - { - var combine = F3(function (k,v,t) - { - return A2(member, - k, - t2) ? A3(insert, - k, - v, - t) : t - }); - return A3(foldl,combine,empty,t1) - }() - }); - var fromList = function (assocs) - { - return A3(List.foldl, - F2(function (_v222,d) - { - return function () - { - switch (_v222.ctor) - {case - "_Tuple2" : - return A3(insert,_v222._0,_v222._1,d)} - _E.Case($moduleName, - "on line 354, column 43 to 55"); - }() - }), - empty, - assocs) - }; - var remove = F2(function (k,t) - { - return function () - { - var u = function (_v226) - { - return function () - { - return Maybe.Nothing - }() - }; - return A3(update,k,u,t) - }() - }); - var diff = F2(function (t1,t2) - { - return A3(foldl, - F3(function (k,v,t) - { - return A2(remove,k,t) - }), - t1, - t2) - }); - _elm.Dict.values = {_op: _op, empty: empty, singleton: singleton, insert: insert, update: update, lookup: lookup, findWithDefault: findWithDefault, remove: remove, member: member, foldl: foldl, foldr: foldr, map: map, union: union, intersect: intersect, diff: diff, keys: keys, values: values, toList: toList, fromList: fromList}; - return _elm.Dict.values - };Elm.Either = Elm.Either || {}; -Elm.Either.make = function (_elm) - { - _elm.Either = _elm.Either || {}; - if (_elm.Either.values) - return _elm.Either.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Either"; - var List = Elm.List.make(_elm); - var _op = {}; - var Right = function (a) - { - return {ctor: "Right", _0: a} - }; - var isRight = function (e) - { - return function () - { - switch (e.ctor) - {case - "Right" : - return true} - return false - }() - }; - var Left = function (a) - { - return {ctor: "Left", _0: a} - }; - var either = F3(function (f,g,e) - { - return function () - { - switch (e.ctor) - {case - "Left" : - return f(e._0) - case - "Right" : - return g(e._0)} - _E.Case($moduleName,"on line 31, column 16 to 60"); - }() - }); - var isLeft = function (e) - { - return function () - { - switch (e.ctor) - {case - "Left" : - return true} - return false - }() - }; - var consLeft = F2(function (e,vs) - { - return function () - { - switch (e.ctor) - {case - "Left" : - return {ctor: "::", _0: e._0, _1: vs} - case - "Right" : - return vs} - _E.Case($moduleName,"between lines 56 and 58"); - }() - }); - var lefts = function (es) - { - return A3(List.foldr,consLeft,_J.toList([]),es) - }; - var consRight = F2(function (e,vs) - { - return function () - { - switch (e.ctor) - {case - "Left" : - return vs - case - "Right" : - return {ctor: "::", _0: e._0, _1: vs}} - _E.Case($moduleName,"between lines 61 and 63"); - }() - }); - var rights = function (es) - { - return A3(List.foldr,consRight,_J.toList([]),es) - }; - var consEither = F2(function (e,_v13) - { - return function () - { - switch (_v13.ctor) - {case - "_Tuple2" : - return function () - { - switch (e.ctor) - {case - "Left" : - return {ctor: "_Tuple2", _0: {ctor: "::", _0: e._0, _1: _v13._0}, _1: _v13._1} - case - "Right" : - return {ctor: "_Tuple2", _0: _v13._0, _1: {ctor: "::", _0: e._0, _1: _v13._1}}} - _E.Case($moduleName, - "between lines 66 and 68"); - }()} - _E.Case($moduleName,"between lines 66 and 68"); - }() - }); - var partition = function (es) - { - return A3(List.foldr, - consEither, - {ctor: "_Tuple2", _0: _J.toList([]), _1: _J.toList([])}, - es) - }; - _elm.Either.values = {_op: _op, either: either, isLeft: isLeft, isRight: isRight, lefts: lefts, rights: rights, partition: partition, consLeft: consLeft, consRight: consRight, consEither: consEither, Left: Left, Right: Right}; - return _elm.Either.values - };Elm.Http = Elm.Http || {}; -Elm.Http.make = function (_elm) - { - _elm.Http = _elm.Http || {}; - if (_elm.Http.values) - return _elm.Http.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Http"; - var Native = Native || {}; - Native.Http = Elm.Native.Http.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var send = Native.Http.send; - var Request = F4(function (a,b,c,d) - { - return {_: {}, body: c, headers: d, url: b, verb: a} - }); - var request = Request; - var get = function (url) - { - return A4(Request,"GET",url,"",_J.toList([])) - }; - var sendGet = function (reqs) - { - return send(A2(Signal.lift,get,reqs)) - }; - var post = F2(function (url,body) - { - return A4(Request,"POST",url,body,_J.toList([])) - }); - var Failure = F2(function (a,b) - { - return {ctor: "Failure", _0: a, _1: b} - }); - var Waiting = {ctor: "Waiting"}; - var Success = function (a) - { - return {ctor: "Success", _0: a} - }; - _elm.Http.values = {_op: _op, request: request, get: get, post: post, send: send, sendGet: sendGet, Success: Success, Waiting: Waiting, Failure: Failure, Request: Request}; - return _elm.Http.values - };Elm.JavaScript = Elm.JavaScript || {}; -Elm.JavaScript.make = function (_elm) - { - _elm.JavaScript = _elm.JavaScript || {}; - if (_elm.JavaScript.values) - return _elm.JavaScript.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "JavaScript"; - var Native = Native || {}; - Native.JavaScript = Elm.Native.JavaScript.make(_elm); - var _op = {}; - var fromString = Native.JavaScript.fromString; - var fromBool = Native.JavaScript.fromBool; - var fromFloat = Native.JavaScript.fromFloat; - var fromInt = Native.JavaScript.fromInt; - var fromList = Native.JavaScript.fromList; - var toString = Native.JavaScript.toString; - var toBool = Native.JavaScript.toBool; - var toFloat = Native.JavaScript.toFloat; - var toInt = Native.JavaScript.toInt; - var toList = Native.JavaScript.toList; - var JSObject = {ctor: "JSObject"}; - var JSDomNode = {ctor: "JSDomNode"}; - var JSArray = function (a) - { - return {ctor: "JSArray", _0: a} - }; - var JSString = {ctor: "JSString"}; - var JSBool = {ctor: "JSBool"}; - var JSNumber = {ctor: "JSNumber"}; - _elm.JavaScript.values = {_op: _op, toList: toList, toInt: toInt, toFloat: toFloat, toBool: toBool, toString: toString, fromList: fromList, fromInt: fromInt, fromFloat: fromFloat, fromBool: fromBool, fromString: fromString, JSNumber: JSNumber, JSBool: JSBool, JSString: JSString, JSArray: JSArray, JSDomNode: JSDomNode, JSObject: JSObject}; - return _elm.JavaScript.values - };Elm.Json = Elm.Json || {}; -Elm.Json.make = function (_elm) - { - _elm.Json = _elm.Json || {}; - if (_elm.Json.values) - return _elm.Json.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Json"; - var Basics = Elm.Basics.make(_elm); - var Dict = Elm.Dict.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Json = Elm.Native.Json.make(_elm); - var _op = {}; - var toJSObject = Native.Json.toJSObject; - var fromJSObject = Native.Json.fromJSObject; - var fromJSString = Native.Json.fromJSString; - var fromString = function (s) - { - return Native.Json.fromJSString(JavaScript.fromString(s)) - }; - var toJSString = Native.Json.toJSString; - var toString = F2(function (sep,v) - { - return JavaScript.toString(A2(Native.Json.toJSString,sep,v)) - }); - var Object = function (a) - { - return {ctor: "Object", _0: a} - }; - var Array = function (a) - { - return {ctor: "Array", _0: a} - }; - var Null = {ctor: "Null"}; - var Boolean = function (a) - { - return {ctor: "Boolean", _0: a} - }; - var Number = function (a) - { - return {ctor: "Number", _0: a} - }; - var String = function (a) - { - return {ctor: "String", _0: a} - }; - _elm.Json.values = {_op: _op, toString: toString, toJSString: toJSString, fromString: fromString, fromJSString: fromJSString, fromJSObject: fromJSObject, toJSObject: toJSObject, String: String, Number: Number, Boolean: Boolean, Null: Null, Array: Array, Object: Object}; - return _elm.Json.values - };Elm.Keyboard = Elm.Keyboard || {}; -Elm.Keyboard.make = function (_elm) - { - _elm.Keyboard = _elm.Keyboard || {}; - if (_elm.Keyboard.values) - return _elm.Keyboard.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Keyboard"; - var Native = Native || {}; - Native.Keyboard = Elm.Native.Keyboard.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var lastPressed = Native.Keyboard.lastPressed; - var keysDown = Native.Keyboard.keysDown; - var isDown = Native.Keyboard.isDown; - var shift = isDown(16); - var ctrl = isDown(17); - var space = isDown(32); - var enter = isDown(13); - var directions = Native.Keyboard.directions; - var arrows = A4(directions,38,40,37,39); - var wasd = A4(directions,87,83,65,68); - _elm.Keyboard.values = {_op: _op, directions: directions, arrows: arrows, wasd: wasd, isDown: isDown, shift: shift, ctrl: ctrl, space: space, enter: enter, keysDown: keysDown, lastPressed: lastPressed}; - return _elm.Keyboard.values - };Elm.List = Elm.List || {}; -Elm.List.make = function (_elm) - { - _elm.List = _elm.List || {}; - if (_elm.List.values) - return _elm.List.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "List"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.List = Elm.Native.List.make(_elm); - var _op = {}; - var sortWith = Native.List.sortWith; - var sortBy = Native.List.sortBy; - var sort = Native.List.sort; - var repeat = Native.List.repeat; - var drop = Native.List.drop; - var take = Native.List.take; - var join = Native.List.join; - var zipWith = Native.List.zipWith; - var zip = Native.List.zip; - var concat = Native.List.concat; - var any = Native.List.any; - var all = Native.List.all; - var reverse = Native.List.reverse; - var length = Native.List.length; - var filter = Native.List.filter; - var scanl1 = Native.List.scanl1; - var scanl = Native.List.scanl; - var foldr1 = Native.List.foldr1; - var foldl1 = Native.List.foldl1; - var maximum = foldl1(Basics.max); - var minimum = foldl1(Basics.min); - var foldr = Native.List.foldr; - var foldl = Native.List.foldl; - var and = A2(foldl, - F2(function (x,y) - { - return x && y - }), - true); - var or = A2(foldl, - F2(function (x,y) - { - return x || y - }), - false); - var sum = A2(foldl, - F2(function (x,y) - { - return x + y - }), - 0); - var product = A2(foldl, - F2(function (x,y) - { - return x * y - }), - 1); - var map = Native.List.map; - var concatMap = F2(function (f,list) - { - return concat(A2(map,f,list)) - }); - var isEmpty = function (xs) - { - return function () - { - switch (xs.ctor) - {case - "[]" : - return true} - return false - }() - }; - var last = Native.List.last; - var tail = Native.List.tail; - var head = Native.List.head; - _op["++"] = Native.List.append; - _op["::"] = Native.List.cons; - var partition = F2(function (pred,lst) - { - return function () - { - switch (lst.ctor) - {case - "::" : - return function () - { - var $ = A2(partition,pred,lst._1), - bs = $._0, - cs = $._1; - return pred(lst._0) ? {ctor: "_Tuple2", _0: {ctor: "::", _0: lst._0, _1: bs}, _1: cs} : {ctor: "_Tuple2", _0: bs, _1: {ctor: "::", _0: lst._0, _1: cs}} - }() - case - "[]" : - return {ctor: "_Tuple2", _0: _J.toList([]), _1: _J.toList([])}} - _E.Case($moduleName,"between lines 169 and 179"); - }() - }); - var unzip = function (pairs) - { - return function () - { - switch (pairs.ctor) - {case - "::" : - switch (pairs._0.ctor) - {case - "_Tuple2" : - return function () - { - var $ = unzip(pairs._1),xs = $._0,ys = $._1; - return {ctor: "_Tuple2", _0: {ctor: "::", _0: pairs._0._0, _1: xs}, _1: {ctor: "::", _0: pairs._0._1, _1: ys}} - }()} - break; - case - "[]" : - return {ctor: "_Tuple2", _0: _J.toList([]), _1: _J.toList([])}} - _E.Case($moduleName,"between lines 194 and 202"); - }() - }; - var intersperse = F2(function (sep,xs) - { - return function () - { - switch (xs.ctor) - {case - "::" : - switch (xs._1.ctor) - {case - "::" : - return {ctor: "::", _0: xs._0, _1: {ctor: "::", _0: sep, _1: A2(intersperse, - sep, - {ctor: "::", _0: xs._1._0, _1: xs._1._1})}} - case - "[]" : - return _J.toList([xs._0])} - break; - case - "[]" : - return _J.toList([])} - _E.Case($moduleName,"between lines 212 and 217"); - }() - }); - _elm.List.values = {_op: _op, head: head, tail: tail, last: last, isEmpty: isEmpty, map: map, foldl: foldl, foldr: foldr, foldl1: foldl1, foldr1: foldr1, scanl: scanl, scanl1: scanl1, filter: filter, length: length, reverse: reverse, all: all, any: any, and: and, or: or, concat: concat, concatMap: concatMap, sum: sum, product: product, maximum: maximum, minimum: minimum, partition: partition, zip: zip, zipWith: zipWith, unzip: unzip, join: join, intersperse: intersperse, take: take, drop: drop, repeat: repeat, sort: sort, sortBy: sortBy, sortWith: sortWith}; - return _elm.List.values - };Elm.Maybe = Elm.Maybe || {}; -Elm.Maybe.make = function (_elm) - { - _elm.Maybe = _elm.Maybe || {}; - if (_elm.Maybe.values) - return _elm.Maybe.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Maybe"; - var Basics = Elm.Basics.make(_elm); - var List = Elm.List.make(_elm); - var _op = {}; - var Nothing = {ctor: "Nothing"}; - var Just = function (a) - { - return {ctor: "Just", _0: a} - }; - var maybe = F3(function (b,f,m) - { - return function () - { - switch (m.ctor) - {case - "Just" : - return f(m._0) - case - "Nothing" : - return b} - _E.Case($moduleName,"between lines 28 and 33"); - }() - }); - var isJust = A2(maybe, - false, - function (_v2) - { - return function () - { - return true - }() - }); - var isNothing = function ($) - { - return Basics.not(isJust($)) - }; - var cons = F2(function (mx,xs) - { - return A3(maybe, - xs, - function (x) - { - return {ctor: "::", _0: x, _1: xs} - }, - mx) - }); - var justs = A2(List.foldr,cons,_J.toList([])); - _elm.Maybe.values = {_op: _op, maybe: maybe, isJust: isJust, isNothing: isNothing, cons: cons, justs: justs, Just: Just, Nothing: Nothing}; - return _elm.Maybe.values - };Elm.Mouse = Elm.Mouse || {}; -Elm.Mouse.make = function (_elm) - { - _elm.Mouse = _elm.Mouse || {}; - if (_elm.Mouse.values) - return _elm.Mouse.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Mouse"; - var Native = Native || {}; - Native.Mouse = Elm.Native.Mouse.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var clicks = Native.Mouse.clicks; - var isClicked = Native.Mouse.isClicked; - var isDown = Native.Mouse.isDown; - var y = Native.Mouse.y; - var x = Native.Mouse.x; - var position = Native.Mouse.position; - _elm.Mouse.values = {_op: _op, position: position, x: x, y: y, isDown: isDown, isClicked: isClicked, clicks: clicks}; - return _elm.Mouse.values - };Elm.Prelude = Elm.Prelude || {}; -Elm.Prelude.make = function (_elm) - { - _elm.Prelude = _elm.Prelude || {}; - if (_elm.Prelude.values) - return _elm.Prelude.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Prelude"; - var Native = Native || {}; - Native.Show = Elm.Native.Show.make(_elm); - var _op = {}; - var show = Native.Show.show; - _elm.Prelude.values = {_op: _op, show: show}; - return _elm.Prelude.values - };Elm.Random = Elm.Random || {}; -Elm.Random.make = function (_elm) - { - _elm.Random = _elm.Random || {}; - if (_elm.Random.values) - return _elm.Random.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Random"; - var Native = Native || {}; - Native.Random = Elm.Native.Random.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var floatList = Native.Random.floatList; - var $float = Native.Random.float_; - var range = Native.Random.range; - _elm.Random.values = {_op: _op, range: range, $float: $float, floatList: floatList}; - return _elm.Random.values - };Elm.Regex = Elm.Regex || {}; -Elm.Regex.make = function (_elm) - { - _elm.Regex = _elm.Regex || {}; - if (_elm.Regex.values) - return _elm.Regex.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Regex"; - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Regex = Elm.Native.Regex.make(_elm); - var _op = {}; - var splitN = Native.Regex.splitN; - var split = Native.Regex.split; - var replace = Native.Regex.replace; - var replaceAll = Native.Regex.replaceAll; - var find = Native.Regex.find; - var findAll = Native.Regex.findAll; - var Match = F4(function (a,b,c,d) - { - return {_: {}, index: c, match: a, number: d, submatches: b} - }); - var contains = Native.Regex.contains; - var caseInsensitive = Native.Regex.caseInsensitive; - var pattern = Native.Regex.pattern; - var escape = Native.Regex.escape; - var Regex = {ctor: "Regex"}; - _elm.Regex.values = {_op: _op, escape: escape, pattern: pattern, caseInsensitive: caseInsensitive, contains: contains, findAll: findAll, find: find, replaceAll: replaceAll, replace: replace, split: split, splitN: splitN, Regex: Regex, Match: Match}; - return _elm.Regex.values - };Elm.Set = Elm.Set || {}; -Elm.Set.make = function (_elm) - { - _elm.Set = _elm.Set || {}; - if (_elm.Set.values) - return _elm.Set.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Set"; - var Dict = Elm.Dict.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var _op = {}; - var foldr = F3(function (f,b,s) - { - return A3(Dict.foldr, - F3(function (k,_v0,b) - { - return function () - { - return A2(f,k,b) - }() - }), - b, - s) - }); - var foldl = F3(function (f,b,s) - { - return A3(Dict.foldl, - F3(function (k,_v2,b) - { - return function () - { - return A2(f,k,b) - }() - }), - b, - s) - }); - var toList = Dict.keys; - var diff = Dict.diff; - var intersect = Dict.intersect; - var union = Dict.union; - var member = Dict.member; - var remove = Dict.remove; - var insert = function (k) - { - return A2(Dict.insert,k,{ctor: "_Tuple0"}) - }; - var singleton = function (k) - { - return A2(Dict.singleton,k,{ctor: "_Tuple0"}) - }; - var empty = Dict.empty; - var fromList = function (xs) - { - return A3(List.foldl,insert,empty,xs) - }; - var map = F2(function (f,s) - { - return fromList(A2(List.map,f,toList(s))) - }); - _elm.Set.values = {_op: _op, empty: empty, singleton: singleton, insert: insert, remove: remove, member: member, foldl: foldl, foldr: foldr, map: map, union: union, intersect: intersect, diff: diff, toList: toList, fromList: fromList}; - return _elm.Set.values - };Elm.Signal = Elm.Signal || {}; -Elm.Signal.make = function (_elm) - { - _elm.Signal = _elm.Signal || {}; - if (_elm.Signal.values) - return _elm.Signal.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Signal"; - var List = Elm.List.make(_elm); - var Native = Native || {}; - Native.Signal = Elm.Native.Signal.make(_elm); - var _op = {}; - _op["~"] = F2(function (sf,s) - { - return A3(Native.Signal.lift2, - F2(function (f,x) - { - return f(x) - }), - sf, - s) - }); - _op["<~"] = F2(function (f,s) - { - return A2(Native.Signal.lift,f,s) - }); - var sampleOn = Native.Signal.sampleOn; - var dropRepeats = Native.Signal.dropRepeats; - var dropWhen = Native.Signal.dropWhen; - var keepWhen = Native.Signal.keepWhen; - var dropIf = Native.Signal.dropIf; - var keepIf = Native.Signal.keepIf; - var countIf = Native.Signal.countIf; - var count = Native.Signal.count; - var combine = A2(List.foldr, - Native.Signal.lift2(F2(function (x,y) - { - return {ctor: "::", _0: x, _1: y} - })), - Native.Signal.constant(_J.toList([]))); - var merges = Native.Signal.merges; - var merge = Native.Signal.merge; - var foldp = Native.Signal.foldp; - var lift8 = Native.Signal.lift8; - var lift7 = Native.Signal.lift7; - var lift6 = Native.Signal.lift6; - var lift5 = Native.Signal.lift5; - var lift4 = Native.Signal.lift4; - var lift3 = Native.Signal.lift3; - var lift2 = Native.Signal.lift2; - var lift = Native.Signal.lift; - var constant = Native.Signal.constant; - var Signal = {ctor: "Signal"}; - _elm.Signal.values = {_op: _op, constant: constant, lift: lift, lift2: lift2, lift3: lift3, lift4: lift4, lift5: lift5, lift6: lift6, lift7: lift7, lift8: lift8, foldp: foldp, merge: merge, merges: merges, combine: combine, count: count, countIf: countIf, keepIf: keepIf, dropIf: dropIf, keepWhen: keepWhen, dropWhen: dropWhen, dropRepeats: dropRepeats, sampleOn: sampleOn, Signal: Signal}; - return _elm.Signal.values - };Elm.String = Elm.String || {}; -Elm.String.make = function (_elm) - { - _elm.String = _elm.String || {}; - if (_elm.String.values) - return _elm.String.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "String"; - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.String = Elm.Native.String.make(_elm); - var _op = {}; - var fromList = Native.String.fromList; - var toList = Native.String.toList; - var toFloat = Native.String.toFloat; - var toInt = Native.String.toInt; - var indices = Native.String.indexes; - var indexes = Native.String.indexes; - var endsWith = Native.String.endsWith; - var startsWith = Native.String.startsWith; - var contains = Native.String.contains; - var all = Native.String.all; - var any = Native.String.any; - var toLower = Native.String.toLower; - var toUpper = Native.String.toUpper; - var lines = Native.String.lines; - var words = Native.String.words; - var trimRight = Native.String.trimRight; - var trimLeft = Native.String.trimLeft; - var trim = Native.String.trim; - var padRight = Native.String.padRight; - var padLeft = Native.String.padLeft; - var pad = Native.String.pad; - var dropRight = Native.String.dropRight; - var dropLeft = Native.String.dropLeft; - var right = Native.String.right; - var left = Native.String.left; - var sub = Native.String.sub; - var repeat = Native.String.repeat; - var join = Native.String.join; - var split = Native.String.split; - var foldr = Native.String.foldr; - var foldl = Native.String.foldl; - var reverse = Native.String.reverse; - var filter = Native.String.filter; - var map = Native.String.map; - var length = Native.String.length; - var concat = Native.String.concat; - var append = Native.String.append; - var uncons = Native.String.uncons; - var cons = Native.String.cons; - var isEmpty = Native.String.isEmpty; - _elm.String.values = {_op: _op, isEmpty: isEmpty, cons: cons, uncons: uncons, append: append, concat: concat, length: length, map: map, filter: filter, reverse: reverse, foldl: foldl, foldr: foldr, split: split, join: join, repeat: repeat, sub: sub, left: left, right: right, dropLeft: dropLeft, dropRight: dropRight, pad: pad, padLeft: padLeft, padRight: padRight, trim: trim, trimLeft: trimLeft, trimRight: trimRight, words: words, lines: lines, toUpper: toUpper, toLower: toLower, any: any, all: all, contains: contains, startsWith: startsWith, endsWith: endsWith, indexes: indexes, indices: indices, toInt: toInt, toFloat: toFloat, toList: toList, fromList: fromList}; - return _elm.String.values - };Elm.Text = Elm.Text || {}; -Elm.Text.make = function (_elm) - { - _elm.Text = _elm.Text || {}; - if (_elm.Text.values) - return _elm.Text.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Text"; - var Basics = Elm.Basics.make(_elm); - var Color = Elm.Color.make(_elm); - var Graphics = Graphics || {}; - Graphics.Element = Elm.Graphics.Element.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Text = Elm.Native.Text.make(_elm); - var _op = {}; - var asText = Native.Text.asText; - var markdown = Native.Text.markdown; - var plainText = Native.Text.plainText; - var text = Native.Text.text; - var righted = Native.Text.righted; - var centered = Native.Text.centered; - var justified = Native.Text.justified; - var strikeThrough = Native.Text.strikeThrough; - var underline = Native.Text.underline; - var overline = Native.Text.overline; - var italic = Native.Text.italic; - var bold = Native.Text.bold; - var color = Native.Text.color; - var height = Native.Text.height; - var link = Native.Text.link; - var monospace = Native.Text.monospace; - var typeface = Native.Text.typeface; - var toText = Native.Text.toText; - var Text = {ctor: "Text"}; - _elm.Text.values = {_op: _op, toText: toText, typeface: typeface, monospace: monospace, link: link, height: height, color: color, bold: bold, italic: italic, overline: overline, underline: underline, strikeThrough: strikeThrough, justified: justified, centered: centered, righted: righted, text: text, plainText: plainText, markdown: markdown, asText: asText, Text: Text}; - return _elm.Text.values - };Elm.Time = Elm.Time || {}; -Elm.Time.make = function (_elm) - { - _elm.Time = _elm.Time || {}; - if (_elm.Time.values) - return _elm.Time.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Time"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.Time = Elm.Native.Time.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var delay = Native.Time.delay; - var timestamp = Native.Time.timestamp; - var since = Native.Time.since; - var every = Native.Time.every; - var fpsWhen = Native.Time.fpsWhen; - var fps = Native.Time.fps; - var inMilliseconds = function (t) - { - return t - }; - var millisecond = 1; - var second = 1000 * millisecond; - var minute = 60 * second; - var hour = 60 * minute; - var inHours = function (t) - { - return t / hour - }; - var inMinutes = function (t) - { - return t / minute - }; - var inSeconds = function (t) - { - return t / second - }; - _elm.Time.values = {_op: _op, millisecond: millisecond, second: second, minute: minute, hour: hour, inMilliseconds: inMilliseconds, inSeconds: inSeconds, inMinutes: inMinutes, inHours: inHours, fps: fps, fpsWhen: fpsWhen, every: every, since: since, timestamp: timestamp, delay: delay}; - return _elm.Time.values - };Elm.Touch = Elm.Touch || {}; -Elm.Touch.make = function (_elm) - { - _elm.Touch = _elm.Touch || {}; - if (_elm.Touch.values) - return _elm.Touch.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Touch"; - var Native = Native || {}; - Native.Touch = Elm.Native.Touch.make(_elm); - var Signal = Elm.Signal.make(_elm); - var Time = Elm.Time.make(_elm); - var _op = {}; - var taps = Native.Touch.taps; - var touches = Native.Touch.touches; - var Touch = F6(function (a,b,c,d,e,f) - { - return {_: {}, id: c, t0: f, x: a, x0: d, y: b, y0: e} - }); - _elm.Touch.values = {_op: _op, touches: touches, taps: taps, Touch: Touch}; - return _elm.Touch.values - };Elm.Transform2D = Elm.Transform2D || {}; -Elm.Transform2D.make = function (_elm) - { - _elm.Transform2D = _elm.Transform2D || {}; - if (_elm.Transform2D.values) - return _elm.Transform2D.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Transform2D"; - var Native = Native || {}; - Native.Transform2D = Elm.Native.Transform2D.make(_elm); - var _op = {}; - var multiply = Native.Transform2D.multiply; - var rotation = Native.Transform2D.rotation; - var matrix = Native.Transform2D.matrix; - var translation = F2(function (x,y) - { - return A6(matrix,1,0,0,1,x,y) - }); - var scale = function (s) - { - return A6(matrix,s,0,0,s,0,0) - }; - var scaleX = function (x) - { - return A6(matrix,x,0,0,1,0,0) - }; - var scaleY = function (y) - { - return A6(matrix,1,0,0,y,0,0) - }; - var identity = Native.Transform2D.identity; - var Transform2D = {ctor: "Transform2D"}; - _elm.Transform2D.values = {_op: _op, identity: identity, matrix: matrix, rotation: rotation, translation: translation, scale: scale, scaleX: scaleX, scaleY: scaleY, multiply: multiply, Transform2D: Transform2D}; - return _elm.Transform2D.values - };Elm.WebSocket = Elm.WebSocket || {}; -Elm.WebSocket.make = function (_elm) - { - _elm.WebSocket = _elm.WebSocket || {}; - if (_elm.WebSocket.values) - return _elm.WebSocket.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "WebSocket"; - var Basics = Elm.Basics.make(_elm); - var Native = Native || {}; - Native.WebSocket = Elm.Native.WebSocket.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var connect = Native.WebSocket.connect; - _elm.WebSocket.values = {_op: _op, connect: connect}; - return _elm.WebSocket.values - };Elm.Window = Elm.Window || {}; -Elm.Window.make = function (_elm) - { - _elm.Window = _elm.Window || {}; - if (_elm.Window.values) - return _elm.Window.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Window"; - var Native = Native || {}; - Native.Window = Elm.Native.Window.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var height = Native.Window.height; - var width = Native.Window.width; - var dimensions = Native.Window.dimensions; - _elm.Window.values = {_op: _op, dimensions: dimensions, width: width, height: height}; - return _elm.Window.values - };Elm.Graphics = Elm.Graphics || {}; -Elm.Graphics.Collage = Elm.Graphics.Collage || {}; -Elm.Graphics.Collage.make = function (_elm) - { - _elm.Graphics = _elm.Graphics || {}; - _elm.Graphics.Collage = _elm.Graphics.Collage || {}; - if (_elm.Graphics.Collage.values) - return _elm.Graphics.Collage.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Graphics.Collage"; - var Basics = Elm.Basics.make(_elm); - var Color = Elm.Color.make(_elm); - var Either = Elm.Either.make(_elm); - var Graphics = Graphics || {}; - Graphics.Element = Elm.Graphics.Element.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Graphics = Native.Graphics || {}; - Native.Graphics.Collage = Elm.Native.Graphics.Collage.make(_elm); - var Transform2D = Elm.Transform2D.make(_elm); - var _op = {}; - var ngon = F2(function (n,r) - { - return function () - { - var m = Basics.toFloat(n); - var t = 2 * Basics.pi / m; - var f = function (i) - { - return {ctor: "_Tuple2", _0: r * Basics.cos(t * i), _1: r * Basics.sin(t * i)} - }; - return A2(List.map,f,_L.range(0,m - 1)) - }() - }); - var oval = F2(function (w,h) - { - return function () - { - var hh = h / 2; - var hw = w / 2; - var n = 50; - var t = 2 * Basics.pi / n; - var f = function (i) - { - return {ctor: "_Tuple2", _0: hw * Basics.cos(t * i), _1: hh * Basics.sin(t * i)} - }; - return A2(List.map,f,_L.range(0,n - 1)) - }() - }); - var circle = function (r) - { - return A2(oval,2 * r,2 * r) - }; - var rect = F2(function (w,h) - { - return function () - { - var hh = h / 2; - var hw = w / 2; - return _J.toList([{ctor: "_Tuple2", _0: 0 - hw, _1: 0 - hh}, - {ctor: "_Tuple2", _0: 0 - hw, _1: hh}, - {ctor: "_Tuple2", _0: hw, _1: hh}, - {ctor: "_Tuple2", _0: hw, _1: 0 - hh}]) - }() - }); - var square = function (n) - { - return A2(rect,n,n) - }; - var polygon = function (points) - { - return points - }; - var segment = F2(function (p1,p2) - { - return _J.toList([p1,p2]) - }); - var path = function (ps) - { - return ps - }; - var collage = Native.Graphics.Collage.collage; - var alpha = F2(function (a,f) - { - return _U.replace([["alpha",a]],f) - }); - var rotate = F2(function (t,f) - { - return _U.replace([["theta",f.theta + t]],f) - }); - var scale = F2(function (s,f) - { - return _U.replace([["scale",f.scale * s]],f) - }); - var moveY = F2(function (y,f) - { - return _U.replace([["y",f.y + y]],f) - }); - var moveX = F2(function (x,f) - { - return _U.replace([["x",f.x + x]],f) - }); - var move = F2(function (_v0,f) - { - return function () - { - switch (_v0.ctor) - {case - "_Tuple2" : - return _U.replace([["x",f.x + _v0._0], - ["y",f.y + _v0._1]], - f)} - _E.Case($moduleName, - "on line 170, column 20 to 48"); - }() - }); - var form = function (f) - { - return {_: {}, alpha: 1, form: f, scale: 1, theta: 0, x: 0, y: 0} - }; - var FGroup = F2(function (a,b) - { - return {ctor: "FGroup", _0: a, _1: b} - }); - var group = function (fs) - { - return form(A2(FGroup,Transform2D.identity,fs)) - }; - var groupTransform = F2(function (matrix,fs) - { - return form(A2(FGroup,matrix,fs)) - }); - var FElement = function (a) - { - return {ctor: "FElement", _0: a} - }; - var toForm = function (e) - { - return form(FElement(e)) - }; - var FImage = F4(function (a,b,c,d) - { - return {ctor: "FImage", _0: a, _1: b, _2: c, _3: d} - }); - var sprite = F4(function (w,h,pos,src) - { - return form(A4(FImage,w,h,pos,src)) - }); - var FShape = F2(function (a,b) - { - return {ctor: "FShape", _0: a, _1: b} - }); - var fill = F2(function (style,shape) - { - return form(A2(FShape,Either.Right(style),shape)) - }); - var outlined = F2(function (style,shape) - { - return form(A2(FShape,Either.Left(style),shape)) - }); - var FPath = F2(function (a,b) - { - return {ctor: "FPath", _0: a, _1: b} - }); - var traced = F2(function (style,path) - { - return form(A2(FPath,style,path)) - }); - var LineStyle = F6(function (a,b,c,d,e,f) - { - return {_: {}, cap: c, color: a, dashOffset: f, dashing: e, join: d, width: b} - }); - var Clipped = {ctor: "Clipped"}; - var Sharp = function (a) - { - return {ctor: "Sharp", _0: a} - }; - var Smooth = {ctor: "Smooth"}; - var Padded = {ctor: "Padded"}; - var Round = {ctor: "Round"}; - var Flat = {ctor: "Flat"}; - var defaultLine = {_: {}, cap: Flat, color: Color.black, dashOffset: 0, dashing: _J.toList([]), join: Sharp(10), width: 1}; - var solid = function (clr) - { - return _U.replace([["color",clr]],defaultLine) - }; - var dashed = function (clr) - { - return _U.replace([["color",clr], - ["dashing",_J.toList([8,4])]], - defaultLine) - }; - var dotted = function (clr) - { - return _U.replace([["color",clr], - ["dashing",_J.toList([3,3])]], - defaultLine) - }; - var Grad = function (a) - { - return {ctor: "Grad", _0: a} - }; - var gradient = F2(function (grad,shape) - { - return A2(fill,Grad(grad),shape) - }); - var Texture = function (a) - { - return {ctor: "Texture", _0: a} - }; - var textured = F2(function (src,shape) - { - return A2(fill,Texture(src),shape) - }); - var Solid = function (a) - { - return {ctor: "Solid", _0: a} - }; - var filled = F2(function (color,shape) - { - return A2(fill,Solid(color),shape) - }); - var Form = F6(function (a,b,c,d,e,f) - { - return {_: {}, alpha: e, form: f, scale: b, theta: a, x: c, y: d} - }); - _elm.Graphics.Collage.values = {_op: _op, defaultLine: defaultLine, solid: solid, dashed: dashed, dotted: dotted, form: form, fill: fill, filled: filled, textured: textured, gradient: gradient, outlined: outlined, traced: traced, sprite: sprite, toForm: toForm, group: group, groupTransform: groupTransform, move: move, moveX: moveX, moveY: moveY, scale: scale, rotate: rotate, alpha: alpha, collage: collage, path: path, segment: segment, polygon: polygon, rect: rect, square: square, oval: oval, circle: circle, ngon: ngon, Solid: Solid, Texture: Texture, Grad: Grad, Flat: Flat, Round: Round, Padded: Padded, Smooth: Smooth, Sharp: Sharp, Clipped: Clipped, FPath: FPath, FShape: FShape, FImage: FImage, FElement: FElement, FGroup: FGroup, Form: Form, LineStyle: LineStyle}; - return _elm.Graphics.Collage.values - };Elm.Graphics = Elm.Graphics || {}; -Elm.Graphics.Element = Elm.Graphics.Element || {}; -Elm.Graphics.Element.make = function (_elm) - { - _elm.Graphics = _elm.Graphics || {}; - _elm.Graphics.Element = _elm.Graphics.Element || {}; - if (_elm.Graphics.Element.values) - return _elm.Graphics.Element.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Graphics.Element"; - var Basics = Elm.Basics.make(_elm); - var Color = Elm.Color.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Utils = Elm.Native.Utils.make(_elm); - var _op = {}; - var DOut = {ctor: "DOut"}; - var outward = DOut; - var DIn = {ctor: "DIn"}; - var inward = DIn; - var DRight = {ctor: "DRight"}; - var right = DRight; - var DLeft = {ctor: "DLeft"}; - var left = DLeft; - var DDown = {ctor: "DDown"}; - var down = DDown; - var DUp = {ctor: "DUp"}; - var up = DUp; - var Position = F4(function (a,b,c,d) - { - return {_: {}, horizontal: a, vertical: b, x: c, y: d} - }); - var Relative = function (a) - { - return {ctor: "Relative", _0: a} - }; - var relative = Relative; - var Absolute = function (a) - { - return {ctor: "Absolute", _0: a} - }; - var absolute = Absolute; - var N = {ctor: "N"}; - var bottomLeftAt = F2(function (x,y) - { - return {_: {}, horizontal: N, vertical: N, x: x, y: y} - }); - var Z = {ctor: "Z"}; - var middle = {_: {}, horizontal: Z, vertical: Z, x: Relative(0.5), y: Relative(0.5)}; - var midLeft = _U.replace([["horizontal",N],["x",Absolute(0)]], - middle); - var middleAt = F2(function (x,y) - { - return {_: {}, horizontal: Z, vertical: Z, x: x, y: y} - }); - var midLeftAt = F2(function (x,y) - { - return {_: {}, horizontal: N, vertical: Z, x: x, y: y} - }); - var midBottomAt = F2(function (x,y) - { - return {_: {}, horizontal: Z, vertical: N, x: x, y: y} - }); - var P = {ctor: "P"}; - var topLeft = {_: {}, horizontal: N, vertical: P, x: Absolute(0), y: Absolute(0)}; - var bottomLeft = _U.replace([["vertical",N]],topLeft); - var topRight = _U.replace([["horizontal",P]],topLeft); - var bottomRight = _U.replace([["horizontal",P]],bottomLeft); - var midRight = _U.replace([["horizontal",P]],midLeft); - var midTop = _U.replace([["vertical",P],["y",Absolute(0)]],middle); - var midBottom = _U.replace([["vertical",N]],midTop); - var topLeftAt = F2(function (x,y) - { - return {_: {}, horizontal: N, vertical: P, x: x, y: y} - }); - var topRightAt = F2(function (x,y) - { - return {_: {}, horizontal: P, vertical: P, x: x, y: y} - }); - var bottomRightAt = F2(function (x,y) - { - return {_: {}, horizontal: P, vertical: N, x: x, y: y} - }); - var midRightAt = F2(function (x,y) - { - return {_: {}, horizontal: P, vertical: Z, x: x, y: y} - }); - var midTopAt = F2(function (x,y) - { - return {_: {}, horizontal: Z, vertical: P, x: x, y: y} - }); - var Tiled = {ctor: "Tiled"}; - var Cropped = function (a) - { - return {ctor: "Cropped", _0: a} - }; - var Fitted = {ctor: "Fitted"}; - var Plain = {ctor: "Plain"}; - var Custom = {ctor: "Custom"}; - var RawHtml = {ctor: "RawHtml"}; - var Spacer = {ctor: "Spacer"}; - var Flow = F2(function (a,b) - { - return {ctor: "Flow", _0: a, _1: b} - }); - var Container = F2(function (a,b) - { - return {ctor: "Container", _0: a, _1: b} - }); - var Image = F4(function (a,b,c,d) - { - return {ctor: "Image", _0: a, _1: b, _2: c, _3: d} - }); - var emptyStr = JavaScript.fromString(""); - var link = F2(function (href,e) - { - return function () - { - var p = e.props; - return {_: {}, element: e.element, props: _U.replace([["href", - JavaScript.fromString(href)]], - p)} - }() - }); - var tag = F2(function (name,e) - { - return function () - { - var p = e.props; - return {_: {}, element: e.element, props: _U.replace([["tag", - JavaScript.fromString(name)]], - p)} - }() - }); - var color = F2(function (c,e) - { - return function () - { - var p = e.props; - return {_: {}, element: e.element, props: _U.replace([["color", - Maybe.Just(c)]], - p)} - }() - }); - var opacity = F2(function (o,e) - { - return function () - { - var p = e.props; - return {_: {}, element: e.element, props: _U.replace([["opacity", - o]], - p)} - }() - }); - var height = F2(function (nh,e) - { - return function () - { - var p = e.props; - var props = function () - { - var _v0 = e.element; - switch (_v0.ctor) - {case - "Image" : - return _U.replace([["width", - Basics.round(Basics.toFloat(_v0._1) / Basics.toFloat(_v0._2) * Basics.toFloat(nh))]], - p)} - return p - }(); - return {_: {}, element: e.element, props: _U.replace([["height", - nh]], - p)} - }() - }); - var width = F2(function (nw,e) - { - return function () - { - var p = e.props; - var props = function () - { - var _v5 = e.element; - switch (_v5.ctor) - {case - "Image" : - return _U.replace([["height", - Basics.round(Basics.toFloat(_v5._2) / Basics.toFloat(_v5._1) * Basics.toFloat(nw))]], - p) - case - "RawHtml" : - return _U.replace([["height", - Basics.snd(A2(Native.Utils.htmlHeight, - nw, - e.element))]], - p)} - return p - }(); - return {_: {}, element: e.element, props: _U.replace([["width", - nw]], - props)} - }() - }); - var size = F3(function (w,h,e) - { - return A2(height,h,A2(width,w,e)) - }); - var sizeOf = function (e) - { - return {ctor: "_Tuple2", _0: e.props.width, _1: e.props.height} - }; - var heightOf = function (e) - { - return e.props.height - }; - var widthOf = function (e) - { - return e.props.width - }; - var Element = F2(function (a,b) - { - return {_: {}, element: b, props: a} - }); - var Properties = F8(function (a,b,c,d,e,f,g,h) - { - return {_: {}, color: e, height: c, hover: h, href: f, id: a, opacity: d, tag: g, width: b} - }); - var newElement = F3(function (w,h,e) - { - return {_: {}, element: e, props: A8(Properties, - Native.Utils.guid({ctor: "_Tuple0"}), - w, - h, - 1, - Maybe.Nothing, - emptyStr, - emptyStr, - {ctor: "_Tuple0"})} - }); - var image = F3(function (w,h,src) - { - return A3(newElement, - w, - h, - A4(Image, - Plain, - w, - h, - JavaScript.fromString(src))) - }); - var fittedImage = F3(function (w,h,src) - { - return A3(newElement, - w, - h, - A4(Image, - Fitted, - w, - h, - JavaScript.fromString(src))) - }); - var croppedImage = F4(function (pos,w,h,src) - { - return A3(newElement, - w, - h, - A4(Image, - Cropped(pos), - w, - h, - JavaScript.fromString(src))) - }); - var tiledImage = F3(function (w,h,src) - { - return A3(newElement, - w, - h, - A4(Image, - Tiled, - w, - h, - JavaScript.fromString(src))) - }); - var container = F4(function (w,h,pos,e) - { - return A3(newElement,w,h,A2(Container,pos,e)) - }); - var spacer = F2(function (w,h) - { - return A3(newElement,w,h,Spacer) - }); - var empty = A2(spacer,0,0); - var flow = F2(function (dir,es) - { - return function () - { - var newFlow = F2(function (w,h) - { - return A3(newElement, - w, - h, - A2(Flow,dir,es)) - }); - var hs = A2(List.map,heightOf,es); - var ws = A2(List.map,widthOf,es); - return _U.eq(es, - _J.toList([])) ? empty : function () - { - switch (dir.ctor) - {case - "DDown" : - return A2(newFlow, - List.maximum(ws), - List.sum(hs)) - case - "DIn" : - return A2(newFlow, - List.maximum(ws), - List.maximum(hs)) - case - "DLeft" : - return A2(newFlow, - List.sum(ws), - List.maximum(hs)) - case - "DOut" : - return A2(newFlow, - List.maximum(ws), - List.maximum(hs)) - case - "DRight" : - return A2(newFlow, - List.sum(ws), - List.maximum(hs)) - case - "DUp" : - return A2(newFlow, - List.maximum(ws), - List.sum(hs))} - _E.Case($moduleName, - "between lines 206 and 216"); - }() - }() - }); - var above = F2(function (hi,lo) - { - return A3(newElement, - A2(Basics.max,widthOf(hi),widthOf(lo)), - heightOf(hi) + heightOf(lo), - A2(Flow,DDown,_J.toList([hi,lo]))) - }); - var below = F2(function (lo,hi) - { - return A3(newElement, - A2(Basics.max,widthOf(hi),widthOf(lo)), - heightOf(hi) + heightOf(lo), - A2(Flow,DDown,_J.toList([hi,lo]))) - }); - var beside = F2(function (lft,rht) - { - return A3(newElement, - widthOf(lft) + widthOf(rht), - A2(Basics.max, - heightOf(lft), - heightOf(rht)), - A2(Flow,right,_J.toList([lft,rht]))) - }); - var layers = function (es) - { - return function () - { - var hs = A2(List.map,heightOf,es); - var ws = A2(List.map,widthOf,es); - return A3(newElement, - List.maximum(ws), - List.maximum(hs), - A2(Flow,DOut,es)) - }() - }; - _elm.Graphics.Element.values = {_op: _op, empty: empty, widthOf: widthOf, heightOf: heightOf, sizeOf: sizeOf, width: width, height: height, size: size, opacity: opacity, color: color, tag: tag, link: link, emptyStr: emptyStr, newElement: newElement, image: image, fittedImage: fittedImage, croppedImage: croppedImage, tiledImage: tiledImage, container: container, spacer: spacer, flow: flow, above: above, below: below, beside: beside, layers: layers, absolute: absolute, relative: relative, middle: middle, topLeft: topLeft, topRight: topRight, bottomLeft: bottomLeft, bottomRight: bottomRight, midLeft: midLeft, midRight: midRight, midTop: midTop, midBottom: midBottom, middleAt: middleAt, topLeftAt: topLeftAt, topRightAt: topRightAt, bottomLeftAt: bottomLeftAt, bottomRightAt: bottomRightAt, midLeftAt: midLeftAt, midRightAt: midRightAt, midTopAt: midTopAt, midBottomAt: midBottomAt, up: up, down: down, left: left, right: right, inward: inward, outward: outward, Image: Image, Container: Container, Flow: Flow, Spacer: Spacer, RawHtml: RawHtml, Custom: Custom, Plain: Plain, Fitted: Fitted, Cropped: Cropped, Tiled: Tiled, P: P, Z: Z, N: N, Absolute: Absolute, Relative: Relative, DUp: DUp, DDown: DDown, DLeft: DLeft, DRight: DRight, DIn: DIn, DOut: DOut, Properties: Properties, Element: Element, Position: Position}; - return _elm.Graphics.Element.values - };Elm.Graphics = Elm.Graphics || {}; -Elm.Graphics.Input = Elm.Graphics.Input || {}; -Elm.Graphics.Input.make = function (_elm) - { - _elm.Graphics = _elm.Graphics || {}; - _elm.Graphics.Input = _elm.Graphics.Input || {}; - if (_elm.Graphics.Input.values) - return _elm.Graphics.Input.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "Graphics.Input"; - var Basics = Elm.Basics.make(_elm); - var Graphics = Graphics || {}; - Graphics.Element = Elm.Graphics.Element.make(_elm); - var JavaScript = Elm.JavaScript.make(_elm); - var List = Elm.List.make(_elm); - var Maybe = Elm.Maybe.make(_elm); - var Native = Native || {}; - Native.Graphics = Native.Graphics || {}; - Native.Graphics.Input = Elm.Native.Graphics.Input.make(_elm); - var Signal = Elm.Signal.make(_elm); - var _op = {}; - var dropDown = Native.Graphics.Input.dropDown; - var stringDropDown = function (strs) - { - return dropDown(A2(List.map, - function (s) - { - return {ctor: "_Tuple2", _0: s, _1: s} - }, - strs)) - }; - var emptyFieldState = {_: {}, selectionEnd: 0, selectionStart: 0, string: ""}; - var fields = Native.Graphics.Input.fields; - var FieldState = F3(function (a,b,c) - { - return {_: {}, selectionEnd: c, selectionStart: b, string: a} - }); - var hoverables = Native.Graphics.Input.hoverables; - var checkboxes = Native.Graphics.Input.checkboxes; - var customButtons = Native.Graphics.Input.customButtons; - var customButton = F3(function (up,hover,down) - { - return function () - { - var pool = customButtons({ctor: "_Tuple0"}); - return {ctor: "_Tuple2", _0: A4(pool.customButton, - {ctor: "_Tuple0"}, - up, - hover, - down), _1: pool.events} - }() - }); - var buttons = Native.Graphics.Input.buttons; - var button = function (txt) - { - return function () - { - var pool = buttons({ctor: "_Tuple0"}); - return {ctor: "_Tuple2", _0: A2(pool.button, - {ctor: "_Tuple0"}, - txt), _1: pool.events} - }() - }; - var id = function (x) - { - return x - }; - var checkbox = function (b) - { - return function () - { - var cbs = checkboxes(b); - return {ctor: "_Tuple2", _0: A2(Signal.lift, - cbs.checkbox(id), - cbs.events), _1: cbs.events} - }() - }; - var hoverable = function (elem) - { - return function () - { - var pool = hoverables(false); - return {ctor: "_Tuple2", _0: A2(pool.hoverable, - id, - elem), _1: pool.events} - }() - }; - var field = function (placeHolder) - { - return function () - { - var tfs = fields(emptyFieldState); - var changes = Signal.dropRepeats(tfs.events); - return {ctor: "_Tuple2", _0: A2(Signal.lift, - A2(tfs.field, - id, - placeHolder), - changes), _1: Signal.dropRepeats(A2(Signal.lift, - function (_) - { - return _.string - }, - changes))} - }() - }; - var password = function (placeHolder) - { - return function () - { - var tfs = Native.Graphics.Input.passwords(emptyFieldState); - var changes = Signal.dropRepeats(tfs.events); - return {ctor: "_Tuple2", _0: A2(Signal.lift, - A2(tfs.field, - id, - placeHolder), - changes), _1: Signal.dropRepeats(A2(Signal.lift, - function (_) - { - return _.string - }, - changes))} - }() - }; - var email = function (placeHolder) - { - return function () - { - var tfs = Native.Graphics.Input.emails(emptyFieldState); - var changes = Signal.dropRepeats(tfs.events); - return {ctor: "_Tuple2", _0: A2(Signal.lift, - A2(tfs.field, - id, - placeHolder), - changes), _1: Signal.dropRepeats(A2(Signal.lift, - function (_) - { - return _.string - }, - changes))} - }() - }; - _elm.Graphics.Input.values = {_op: _op, id: id, buttons: buttons, button: button, customButtons: customButtons, customButton: customButton, checkboxes: checkboxes, checkbox: checkbox, hoverables: hoverables, hoverable: hoverable, fields: fields, emptyFieldState: emptyFieldState, field: field, password: password, email: email, dropDown: dropDown, stringDropDown: stringDropDown, FieldState: FieldState}; - return _elm.Graphics.Input.values - };Elm.JavaScript = Elm.JavaScript || {}; -Elm.JavaScript.Experimental = Elm.JavaScript.Experimental || {}; -Elm.JavaScript.Experimental.make = function (_elm) - { - _elm.JavaScript = _elm.JavaScript || {}; - _elm.JavaScript.Experimental = _elm.JavaScript.Experimental || {}; - if (_elm.JavaScript.Experimental.values) - return _elm.JavaScript.Experimental.values - var _N = Elm.Native, - _U = _N.Utils.make(_elm), - _L = _N.List.make(_elm), - _E = _N.Error.make(_elm), - _J = _N.JavaScript.make(_elm), - $moduleName = "JavaScript.Experimental"; - var JavaScript = Elm.JavaScript.make(_elm); - var Native = Native || {}; - Native.JavaScript = Elm.Native.JavaScript.make(_elm); - var _op = {}; - var fromRecord = Native.JavaScript.fromRecord; - var toRecord = Native.JavaScript.toRecord; - _elm.JavaScript.Experimental.values = {_op: _op, toRecord: toRecord, fromRecord: fromRecord}; - return _elm.JavaScript.Experimental.values - };(function() { - -// Returns boolean indicating if the swap was successful. -// Requires that the two signal graphs have exactly the same -// structure. -ElmRuntime.swap = function(from, to) { - function similar(nodeOld,nodeNew) { - idOkay = nodeOld.id === nodeNew.id; - lengthOkay = nodeOld.kids.length === nodeNew.kids.length; - return idOkay && lengthOkay; - } - function swap(nodeOld,nodeNew) { - nodeNew.value = nodeOld.value; - return true; - } - var canSwap = depthFirstTraversals(similar, from.inputs, to.inputs); - if (canSwap) { depthFirstTraversals(swap, from.inputs, to.inputs); } - from.node.parentNode.replaceChild(to.node, from.node); - return canSwap; -} - -// Returns false if the node operation f ever fails. -function depthFirstTraversals(f, queueOld, queueNew) { - if (queueOld.length !== queueNew.length) return false; - queueOld = queueOld.slice(0); - queueNew = queueNew.slice(0); - - var seen = []; - while (queueOld.length > 0 && queueNew.length > 0) { - var nodeOld = queueOld.pop(); - var nodeNew = queueNew.pop(); - if (seen.indexOf(nodeOld.id) < 0) { - if (!f(nodeOld, nodeNew)) return false; - queueOld = queueOld.concat(nodeOld.kids); - queueNew = queueNew.concat(nodeNew.kids); - seen.push(nodeOld.id); - } - } - return true; -} - -}()); - -(function() { -'use strict'; - -Elm.fullscreen = function(module, ports) { - var style = document.createElement('style'); - style.type = 'text/css'; - style.innerHTML = "html,head,body { padding:0; margin:0; }" + - "body { font-family: calibri, helvetica, arial, sans-serif; }"; - document.head.appendChild(style); - var container = document.createElement('div'); - document.body.appendChild(container); - return init(ElmRuntime.Display.FULLSCREEN, container, module, ports || {}); -}; - -Elm.embed = function(module, container, ports) { - var tag = container.tagName; - if (tag !== 'DIV') { - throw new Error('Elm.node must be given a DIV, not a ' + tag + '.'); - } else if (container.hasChildNodes()) { - throw new Error('Elm.node must be given an empty DIV. No children allowed!'); - } - return init(ElmRuntime.Display.COMPONENT, container, module, ports || {}); -}; - -Elm.worker = function(module, ports) { - return init(ElmRuntime.Display.NONE, {}, module, ports || {}); -}; - -function init(display, container, module, ports, moduleToReplace) { - // defining state needed for an instance of the Elm RTS - var inputs = []; - - var updateInProgress = false; - function notify(id, v) { - if (updateInProgress) { - throw new Error( - 'The notify function has been called synchronously!\n' + - 'This can lead to frames being dropped.\n' + - 'Definitely report this to \n'); - } - updateInProgress = true; - var timestep = Date.now(); - for (var i = inputs.length; i--; ) { - inputs[i].recv(timestep, id, v); - } - updateInProgress = false; - } - - var listeners = []; - function addListener(relevantInputs, domNode, eventName, func) { - domNode.addEventListener(eventName, func); - var listener = { - relevantInputs: relevantInputs, - domNode: domNode, - eventName: eventName, - func: func - }; - listeners.push(listener); - } - - var portUses = {} - for (var key in ports) { - portUses[key] = 0; - } - // create the actual RTS. Any impure modules will attach themselves to this - // object. This permits many Elm programs to be embedded per document. - var elm = { - notify:notify, - node:container, - display:display, - id:ElmRuntime.guid(), - addListener:addListener, - inputs:inputs, - ports: { incoming:ports, outgoing:{}, uses:portUses } - }; - - function swap(newModule) { - removeListeners(listeners); - var div = document.createElement('div'); - var newElm = init(display, div, newModule, ports, elm); - inputs = []; - // elm.swap = newElm.swap; - return newElm; - } - - var Module = {}; - var reportAnyErrors = function() {}; - try { - Module = module.make(elm); - checkPorts(elm); - } catch(e) { - var directions = "
    Open the developer console for more details." - Module.main = Elm.Text.make(elm).text('' + e.message + directions + ''); - reportAnyErrors = function() { throw e; } - } - inputs = ElmRuntime.filterDeadInputs(inputs); - filterListeners(inputs, listeners); - addReceivers(elm.ports.outgoing); - if (display !== ElmRuntime.Display.NONE) { - var graphicsNode = initGraphics(elm, Module); - } - if (typeof moduleToReplace !== 'undefined') { - ElmRuntime.swap(moduleToReplace, elm); - - // rerender scene if graphics are enabled. - if (typeof graphicsNode !== 'undefined') { - graphicsNode.recv(0, true, 0); - } - } - - reportAnyErrors(); - return { swap:swap, ports:elm.ports.outgoing }; -}; - -function checkPorts(elm) { - var portUses = elm.ports.uses; - for (var key in portUses) { - var uses = portUses[key] - if (uses === 0) { - throw new Error( - "Initialization Error: provided port '" + key + - "' to a module that does not take it as in input.\n" + - "Remove '" + key + "' from the module initialization code."); - } else if (uses > 1) { - throw new Error( - "Initialization Error: port '" + key + - "' has been declared multiple times in the Elm code.\n" + - "Remove declarations until there is exactly one."); - } - } -} - -function filterListeners(inputs, listeners) { - loop: - for (var i = listeners.length; i--; ) { - var listener = listeners[i]; - for (var j = inputs.length; j--; ) { - if (listener.relevantInputs.indexOf(inputs[j].id) >= 0) { - continue loop; - } - } - listener.domNode.removeEventListener(listener.eventName, listener.func); - } -} - -function removeListeners(listeners) { - for (var i = listeners.length; i--; ) { - var listener = listeners[i]; - listener.domNode.removeEventListener(listener.eventName, listener.func); - } -} - -// add receivers for built-in ports if they are defined -function addReceivers(ports) { - if ('log' in ports) { - ports.log.subscribe(function(v) { console.log(v) }); - } - if ('stdout' in ports) { - var process = process || {}; - var handler = process.stdout - ? function(v) { process.stdout.write(v); } - : function(v) { console.log(v); }; - ports.stdout.subscribe(handler); - } - if ('stderr' in ports) { - var process = process || {}; - var handler = process.stderr - ? function(v) { process.stderr.write(v); } - : function(v) { console.log('Error:' + v); }; - ports.stderr.subscribe(handler); - } - if ('title' in ports) { - if (typeof ports.title === 'string') { - document.title = ports.title; - } else { - ports.title.subscribe(function(v) { document.title = v; }); - } - } - if ('redirect' in ports) { - ports.redirect.subscribe(function(v) { - if (v.length > 0) window.location = v; - }); - } - if ('favicon' in ports) { - if (typeof ports.favicon === 'string') { - changeFavicon(ports.favicon); - } else { - ports.favicon.subscribe(changeFavicon); - } - } - function changeFavicon(src) { - var link = document.createElement('link'); - var oldLink = document.getElementById('elm-favicon'); - link.id = 'elm-favicon'; - link.rel = 'shortcut icon'; - link.href = src; - if (oldLink) { - document.head.removeChild(oldLink); - } - document.head.appendChild(link); - } -} - -function initGraphics(elm, Module) { - if (!('main' in Module)) - throw new Error("'main' is missing! What do I display?!"); - - var signalGraph = Module.main; - - // make sure the signal graph is actually a signal & extract the visual model - var Signal = Elm.Signal.make(elm); - if (!('recv' in signalGraph)) { - signalGraph = Signal.constant(signalGraph); - } - var currentScene = signalGraph.value; - - // Add the currentScene to the DOM - var Render = ElmRuntime.use(ElmRuntime.Render.Element); - elm.node.appendChild(Render.render(currentScene)); - - // set up updates so that the DOM is adjusted as necessary. - var savedScene = currentScene; - function domUpdate(newScene) { - ElmRuntime.draw(function(_) { - Render.update(elm.node.firstChild, savedScene, newScene); - if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); - savedScene = newScene; - }); - } - var renderer = A2(Signal.lift, domUpdate, signalGraph); - - // must check for resize after 'renderer' is created so - // that changes show up. - if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); - - return renderer; -} - -}()); - -(function() { -'use strict'; - -ElmRuntime.Display = { FULLSCREEN: 0, COMPONENT: 1, NONE: 2 }; - -ElmRuntime.counter = 0; -ElmRuntime.guid = function() { return ElmRuntime.counter++; } - -ElmRuntime.use = function(M) { - if (typeof M === 'function') M = M(); - return M; -}; - -function isAlive(input) { - if (!('defaultNumberOfKids' in input)) return true; - var len = input.kids.length; - if (len === 0) return false; - if (len > input.defaultNumberOfKids) return true; - var alive = false; - for (var i = len; i--; ) { - alive = alive || isAlive(input.kids[i]); - } - return alive; -} - -ElmRuntime.filterDeadInputs = function(inputs) { - var temp = []; - for (var i = inputs.length; i--; ) { - if (isAlive(inputs[i])) temp.push(inputs[i]); - } - return temp; -}; - -// define the draw function -var vendors = ['ms', 'moz', 'webkit', 'o']; -var win = window || {}; -for (var i = 0; i < vendors.length && !win.requestAnimationFrame; ++i) { - win.requestAnimationFrame = win[vendors[i]+'RequestAnimationFrame']; - win.cancelAnimationFrame = win[vendors[i]+'CancelAnimationFrame'] || - win[vendors[i]+'CancelRequestAnimationFrame']; -} - -if (win.requestAnimationFrame && win.cancelAnimationFrame) { - var previous = 0; - ElmRuntime.draw = function(callback) { - win.cancelAnimationFrame(previous); - previous = win.requestAnimationFrame(callback); - }; -} else { - ElmRuntime.draw = function(callback) { callback(); }; -} - -}()); - -ElmRuntime.Render.Collage = function() { - -var Render = ElmRuntime.use(ElmRuntime.Render.Element); -var Transform = Elm.Transform2D.make({}); -var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); -var newElement = Utils.newElement, - extract = Utils.extract, fromList = Utils.fromList, - fromString = Utils.fromString, addTransform = Utils.addTransform; - -function trace(ctx, path) { - var points = fromList(path); - var i = points.length - 1; - if (i <= 0) return; - ctx.moveTo(points[i]._0, points[i]._1); - while (i--) { ctx.lineTo(points[i]._0, points[i]._1); } - if (path.closed) { - i = points.length - 1; - ctx.lineTo(points[i]._0, points[i]._1); - } -} - -function line(ctx,style,path) { - style.dashing.ctor === 'Nil' ? trace(ctx, path) : customLineHelp(ctx, style, path); - ctx.scale(1,-1); - ctx.stroke(); -} - -function customLineHelp(ctx, style, path) { - var points = fromList(path); - if (path.closed) points.push(points[0]); - var pattern = fromList(style.dashing); - var i = points.length - 1; - if (i <= 0) return; - var x0 = points[i]._0, y0 = points[i]._1; - var x1=0, y1=0, dx=0, dy=0, remaining=0, nx=0, ny=0; - var pindex = 0, plen = pattern.length; - var draw = true, segmentLength = pattern[0]; - ctx.moveTo(x0,y0); - while (i--) { - x1 = points[i]._0; y1 = points[i]._1; - dx = x1 - x0; dy = y1 - y0; - remaining = Math.sqrt(dx * dx + dy * dy); - while (segmentLength <= remaining) { - x0 += dx * segmentLength / remaining; - y0 += dy * segmentLength / remaining; - ctx[draw ? 'lineTo' : 'moveTo'](x0, y0); - // update starting position - dx = x1 - x0; dy = y1 - y0; - remaining = Math.sqrt(dx * dx + dy * dy); - // update pattern - draw = !draw; - pindex = (pindex + 1) % plen; - segmentLength = pattern[pindex]; - } - if (remaining > 0) { - ctx[draw ? 'lineTo' : 'moveTo'](x1, y1); - segmentLength -= remaining; - } - x0 = x1; y0 = y1; - } -} - -function drawLine(ctx, style, path) { - ctx.lineWidth = style.width; - var cap = style.cap.ctor; - ctx.lineCap = cap === 'Flat' ? 'butt' : - cap === 'Round' ? 'round' : 'square'; - var join = style.join.ctor; - ctx.lineJoin = join === 'Smooth' ? 'round' : - join === 'Sharp' ? 'miter' : 'bevel'; - ctx.miterLimit = style.join._0 || 10; - ctx.strokeStyle = extract(style.color); - return line(ctx, style, path); -} - -function texture(redo, ctx, src) { - var img = new Image(); - img.src = fromString(src); - img.onload = redo; - return ctx.createPattern(img, 'repeat'); -} - -function gradient(ctx, grad) { - var g; - var stops = []; - if (grad.ctor === 'Linear') { - var p0 = grad._0, p1 = grad._1; - g = ctx.createLinearGradient(p0._0, -p0._1, p1._0, -p1._1); - stops = fromList(grad._2); - } else { - var p0 = grad._0, p2 = grad._2; - g = ctx.createRadialGradient(p0._0, -p0._1, grad._1, p2._0, -p2._1, grad._3); - stops = fromList(grad._4); - } - var len = stops.length; - for (var i = 0; i < len; ++i) { - var stop = stops[i]; - g.addColorStop(stop._0, extract(stop._1)); - } - return g; -} - -function drawShape(redo, ctx, style, path) { - trace(ctx, path); - var sty = style.ctor; - ctx.fillStyle = - sty === 'Solid' ? extract(style._0) : - sty === 'Texture' ? texture(redo, ctx, style._0) : gradient(ctx, style._0); - ctx.scale(1,-1); - ctx.fill(); -} - -function drawImage(redo, ctx, form) { - var img = new Image(); - img.onload = redo; - img.src = fromString(form._3); - var w = form._0, - h = form._1, - pos = form._2, - srcX = pos._0, - srcY = pos._1, - srcW = w, - srcH = h, - destX = -w/2, - destY = -h/2, - destW = w, - destH = h; - - ctx.scale(1,-1); - ctx.drawImage(img, srcX, srcY, srcW, srcH, destX, destY, destW, destH); -} - -function renderForm(redo, ctx, form) { - ctx.save(); - var x = form.x, y = form.y, theta = form.theta, scale = form.scale; - if (x !== 0 || y !== 0) ctx.translate(x, y); - if (theta !== 0) ctx.rotate(theta); - if (scale !== 1) ctx.scale(scale,scale); - if (form.alpha !== 1) ctx.globalAlpha = ctx.globalAlpha * form.alpha; - ctx.beginPath(); - var f = form.form; - switch(f.ctor) { - case 'FPath' : drawLine(ctx, f._0, f._1); break; - case 'FImage': drawImage(redo, ctx, f); break; - case 'FShape': - if (f._0.ctor === 'Left') { - f._1.closed = true; - drawLine(ctx, f._0._0, f._1); - } else { - drawShape(redo, ctx, f._0._0, f._1); - } - break; - } - ctx.restore(); -} - -function formToMatrix(form) { - var scale = form.scale; - var matrix = A6( Transform.matrix, scale, 0, 0, scale, form.x, form.y ); - - var theta = form.theta - if (theta !== 0) - matrix = A2( Transform.multiply, matrix, Transform.rotation(theta) ); - - return matrix; -} - -function str(n) { - if (n < 0.00001 && n > -0.00001) return 0; - return n; -} - -function makeTransform(w, h, form, matrices) { - var props = form.form._0.props; - var m = A6( Transform.matrix, 1, 0, 0, -1, - (w - props.width ) / 2, - (h - props.height) / 2 ); - var len = matrices.length; - for (var i = 0; i < len; ++i) { m = A2( Transform.multiply, m, matrices[i] ); } - m = A2( Transform.multiply, m, formToMatrix(form) ); - - return 'matrix(' + str( m[0]) + ', ' + str( m[3]) + ', ' + - str(-m[1]) + ', ' + str(-m[4]) + ', ' + - str( m[2]) + ', ' + str( m[5]) + ')'; -} - -function stepperHelp(list) { - var arr = fromList(list); - var i = 0; - function peekNext() { - return i < arr.length ? arr[i].form.ctor : ''; - } - // assumes that there is a next element - function next() { - var out = arr[i]; - ++i; - return out; - } - return { peekNext:peekNext, next:next }; -} - -function formStepper(forms) { - var ps = [stepperHelp(forms)]; - var matrices = []; - var alphas = []; - function peekNext() { - var len = ps.length; - var formType = ''; - for (var i = 0; i < len; ++i ) { - if (formType = ps[i].peekNext()) return formType; - } - return ''; - } - // assumes that there is a next element - function next(ctx) { - while (!ps[0].peekNext()) { - ps.shift(); - matrices.pop(); - alphas.shift(); - if (ctx) { ctx.restore(); } - } - var out = ps[0].next(); - var f = out.form; - if (f.ctor === 'FGroup') { - ps.unshift(stepperHelp(f._1)); - var m = A2(Transform.multiply, f._0, formToMatrix(out)); - ctx.save(); - ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); - matrices.push(m); - - var alpha = (alphas[0] || 1) * out.alpha; - alphas.unshift(alpha); - ctx.globalAlpha = alpha; - } - return out; - } - function transforms() { return matrices; } - function alpha() { return alphas[0] || 1; } - return { peekNext:peekNext, next:next, transforms:transforms, alpha:alpha }; -} - -function makeCanvas(w,h) { - var canvas = newElement('canvas'); - canvas.style.width = w + 'px'; - canvas.style.height = h + 'px'; - canvas.style.display = "block"; - canvas.style.position = "absolute"; - canvas.width = w; - canvas.height = h; - return canvas; -} - -function render(model) { - var div = newElement('div'); - div.style.overflow = 'hidden'; - update(div, model, model); - return div; -} - -function nodeStepper(w,h,div) { - var kids = div.childNodes; - var i = 0; - function transform(transforms, ctx) { - ctx.translate(w/2, h/2); - ctx.scale(1,-1); - var len = transforms.length; - for (var i = 0; i < len; ++i) { - var m = transforms[i]; - ctx.save(); - ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); - } - return ctx; - } - function nextContext(transforms) { - while (i < kids.length) { - var node = kids[i]; - if (node.getContext) { - node.width = w; - node.height = h; - node.style.width = w + 'px'; - node.style.height = h + 'px'; - ++i; - return transform(transforms, node.getContext('2d')); - } - div.removeChild(node); - } - var canvas = makeCanvas(w,h); - div.appendChild(canvas); - // we have added a new node, so we must step our position - ++i; - return transform(transforms, canvas.getContext('2d')); - } - function addElement(matrices, alpha, form) { - var kid = kids[i]; - var elem = form.form._0; - - var node = (!kid || kid.getContext) - ? Render.render(elem) - : (Render.update(kid, kid.oldElement, elem), kids[i]); - - node.style.position = 'absolute'; - node.style.opacity = alpha * form.alpha; - addTransform(node.style, makeTransform(w, h, form, matrices)); - node.oldElement = elem; - ++i; - if (!kid) { - div.appendChild(node); - } else if (kid.getContext) { - div.insertBefore(node, kid); - } - } - function clearRest() { - while (i < kids.length) { - div.removeChild(kids[i]); - } - } - return { nextContext:nextContext, addElement:addElement, clearRest:clearRest }; -} - - -function update(div, _, model) { - var w = model.w; - var h = model.h; - - var forms = formStepper(model.forms); - var nodes = nodeStepper(w,h,div); - var ctx = null; - var formType = ''; - - while (formType = forms.peekNext()) { - // make sure we have context if we need it - if (ctx === null && formType !== 'FElement') { - ctx = nodes.nextContext(forms.transforms()); - ctx.globalAlpha = forms.alpha(); - } - - var form = forms.next(ctx); - // if it is FGroup, all updates are made within formStepper when next is called. - if (formType === 'FElement') { - // update or insert an element, get a new context - nodes.addElement(forms.transforms(), forms.alpha(), form); - ctx = null; - } else if (formType !== 'FGroup') { - renderForm(function() { update(div, model, model); }, ctx, form); - } - } - nodes.clearRest(); - return false; -} - -return { render:render, update:update }; - -}; - -ElmRuntime.Render.Element = function() { -'use strict'; - -var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); -var newElement = Utils.newElement, extract = Utils.extract, - addTransform = Utils.addTransform, removeTransform = Utils.removeTransform, - fromList = Utils.fromList, eq = Utils.eq; - -function setProps(props, e) { - e.style.width = (props.width |0) + 'px'; - e.style.height = (props.height|0) + 'px'; - if (props.opacity !== 1) { e.style.opacity = props.opacity; } - if (props.color.ctor === 'Just') { - e.style.backgroundColor = extract(props.color._0); - } - if (props.tag !== '') { e.id = props.tag; } - if (props.href !== '') { - var a = newElement('a'); - a.href = props.href; - a.style.width = '100%'; - a.style.height = '100%'; - a.style.top = 0; - a.style.left = 0; - a.style.display = 'block'; - a.style.position = 'absolute'; - e.style.position = 'relative'; - e.appendChild(a); - } - if (props.hover.ctor !== '_Tuple0') { - var overCount = 0; - e.addEventListener('mouseover', function() { - if (overCount++ > 0) return; - props.hover(true); - }); - e.addEventListener('mouseout', function(evt) { - if (e.contains(evt.toElement || evt.relatedTarget)) return; - overCount = 0; - props.hover(false); - }); - } - return e; -} - -function image(props, img) { - switch (img._0.ctor) { - case 'Plain': return plainImage(img._3); - case 'Fitted': return fittedImage(props.width, props.height, img._3); - case 'Cropped': return croppedImage(img,props.width,props.height,img._3); - case 'Tiled': return tiledImage(img._3); - } -} - -function plainImage(src) { - var img = newElement('img'); - img.src = src; - img.name = src; - img.style.display = "block"; - return img; -} - -function tiledImage(src) { - var div = newElement('div'); - div.style.backgroundImage = 'url(' + src + ')'; - return div; -} - -function fittedImage(w, h, src) { - var div = newElement('div'); - div.style.background = 'url(' + src + ') no-repeat center'; - div.style.webkitBackgroundSize = 'cover'; - div.style.MozBackgroundSize = 'cover'; - div.style.OBackgroundSize = 'cover'; - div.style.backgroundSize = 'cover'; - return div; -} - -function croppedImage(elem, w, h, src) { - var pos = elem._0._0; - var e = newElement('div'); - e.style.overflow = "hidden"; - - var img = newElement('img'); - img.onload = function() { - var sw = w / elem._1, sh = h / elem._2; - img.style.width = ((this.width * sw)|0) + 'px'; - img.style.height = ((this.height * sh)|0) + 'px'; - img.style.marginLeft = ((- pos._0 * sw)|0) + 'px'; - img.style.marginTop = ((- pos._1 * sh)|0) + 'px'; - }; - img.src = src; - img.name = src; - e.appendChild(img); - return e; -} - -function goIn(e) { e.style.position = 'absolute'; return e; } -function goDown(e) { return e } -function goRight(e) { e.style.styleFloat = e.style.cssFloat = "left"; return e; } -function flowWith(f, array) { - var container = newElement('div'); - for (var i = array.length; i--; ) { - container.appendChild(f(render(array[i]))); - } - return container; -} - -function flow(dir,elist) { - var array = fromList(elist); - switch(dir.ctor) { - case "DDown": array.reverse(); - case "DUp": return flowWith(goDown,array); - case "DRight": array.reverse(); - case "DLeft": return flowWith(goRight,array); - case "DOut": array.reverse(); - case "DIn": return flowWith(goIn,array); - } -} - -function toPos(pos) { - switch(pos.ctor) { - case "Absolute": return pos._0 + "px"; - case "Relative": return (pos._0 * 100) + "%"; - } -} - -// must clear right, left, top, bottom, and transform -// before calling this function -function setPos(pos,w,h,e) { - e.style.position = 'absolute'; - e.style.margin = 'auto'; - var transform = ''; - switch(pos.horizontal.ctor) { - case 'P': e.style.right = toPos(pos.x); e.style.removeProperty('left'); break; - case 'Z': transform = 'translateX(' + ((-w/2)|0) + 'px) '; - case 'N': e.style.left = toPos(pos.x); e.style.removeProperty('right'); break; - } - switch(pos.vertical.ctor) { - case 'N': e.style.bottom = toPos(pos.y); e.style.removeProperty('top'); break; - case 'Z': transform += 'translateY(' + ((-h/2)|0) + 'px)'; - case 'P': e.style.top = toPos(pos.y); e.style.removeProperty('bottom'); break; - } - if (transform !== '') addTransform(e.style, transform); - return e; -} - -function container(pos,elem) { - var e = render(elem); - setPos(pos, elem.props.width, elem.props.height, e); - var div = newElement('div'); - div.style.position = 'relative'; - div.style.overflow = 'hidden'; - div.appendChild(e); - return div; -} - -function rawHtml(elem) { - var html = elem.html; - var args = elem.args; - var guid = elem.guid; - var align = elem.align; - - var div = newElement('div'); - div.innerHTML = html; - div.style.visibility = "hidden"; - if (align) div.style.textAlign = align; - document.body.appendChild(div); - - for (var i = args.length; i--; ) { - var arg = args[i]; - var span = document.getElementById('md-' + guid + '-' + i); - if (arg.isText) { - span.innerHTML = arg; - } else { - span.style.display = 'block'; - span.style.width = arg.props.width + 'px'; - span.style.height = arg.props.height + 'px'; - span.appendChild(render(arg)); - } - } - document.body.removeChild(div); - div.style.visibility = 'visible'; - return div; -} - -function render(elem) { return setProps(elem.props, makeElement(elem)); } -function makeElement(e) { - var elem = e.element; - switch(elem.ctor) { - case 'Image': return image(e.props, elem); - case 'Flow': return flow(elem._0, elem._1); - case 'Container': return container(elem._0, elem._1); - case 'Spacer': return newElement('div'); - case 'RawHtml': return rawHtml(elem); - case 'Custom': return elem.render(elem.model); - } -} - -function update(node, curr, next) { - if (node.tagName === 'A') { node = node.firstChild; } - if (curr.props.id === next.props.id) return updateProps(node, curr, next); - if (curr.element.ctor !== next.element.ctor) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var nextE = next.element, currE = curr.element; - switch(nextE.ctor) { - case "Spacer": break; - case "RawHtml": - // only markdown blocks have guids, so this must be a text block - if (nextE.guid === null) { - node.innerHTML = nextE.html; - break; - } - if (nextE.guid !== currE.guid) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var nargs = nextE.args; - var cargs = currE.args; - for (var i = nargs.length; i--; ) { - var narg = nargs[i]; - var carg = cargs[i] - if (narg == carg) continue; - var span = document.getElementById('md-' + currE.guid + '-' + i); - if (narg.isElement) { - if (carg.isElement) { - update(span, carg, narg); - } else { - span.style.display = 'block'; - var e = render(narg); - span.innerHTML = ''; - span.appendChild(e); - } - } else { - span.style.display = 'inline'; - span.innerHTML = narg; - } - } - break; - case "Image": - if (nextE._0.ctor === 'Plain') { - if (nextE._3 !== currE._3) node.src = nextE._3; - } else if (!eq(nextE,currE) || - next.props.width !== curr.props.width || - next.props.height !== curr.props.height) { - node.parentNode.replaceChild(render(next),node); - return true; - } - break; - case "Flow": - var arr = fromList(nextE._1); - for (var i = arr.length; i--; ) { arr[i] = arr[i].element.ctor; } - if (nextE._0.ctor !== currE._0.ctor) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var nexts = fromList(nextE._1); - var kids = node.childNodes; - if (nexts.length !== kids.length) { - node.parentNode.replaceChild(render(next),node); - return true; - } - var currs = fromList(currE._1); - var goDir = function(x) { return x; }; - switch(nextE._0.ctor) { - case "DDown": case "DUp": goDir = goDown; break; - case "DRight": case "DLeft": goDir = goRight; break; - case "DOut": case "DIn": goDir = goIn; break; - } - for (var i = kids.length; i-- ;) { - update(kids[i],currs[i],nexts[i]); - goDir(kids[i]); - } - break; - case "Container": - update(node.firstChild, currE._1, nextE._1); - setPos(nextE._0, nextE._1.props.width, nextE._1.props.height, node.firstChild); - break; - case "Custom": - if (currE.type === nextE.type) { - var done = nextE.update(node, currE.model, nextE.model); - if (done) return; - } else { - return node.parentNode.replaceChild(render(next), node); - } - } - updateProps(node, curr, next); -} - -function updateProps(node, curr, next) { - var props = next.props, currP = curr.props, e = node; - if (props.width !== currP.width) e.style.width = (props.width |0) + 'px'; - if (props.height !== currP.height) e.style.height = (props.height|0) + 'px'; - if (props.opacity !== 1 && props.opacity !== currP.opacity) { - e.style.opacity = props.opacity; - } - var nextColor = (props.color.ctor === 'Just' ? - extract(props.color._0) : ''); - if (e.style.backgroundColor !== nextColor) { - e.style.backgroundColor = (nextColor === '' ? 'transparent' : nextColor); - } - if (props.tag !== currP.tag) { e.id = props.tag; } - if (props.href !== currP.href) { - if (currP.href === '') { - var a = newElement('a'); - a.href = props.href; - a.style.width = '100%'; - a.style.height = '100%'; - a.style.top = 0; - a.style.left = 0; - a.style.display = 'block'; - a.style.position = 'absolute'; - e.style.position = 'relative'; - e.appendChild(a); - } else { - node.lastNode.href = props.href; - } +'use strict'; +var Elm = {}; Elm.Native = {}; Elm.Native.Graphics = {}; +var ElmRuntime = {}; ElmRuntime.Render = {}; + +Elm.Native.Basics = {}; +Elm.Native.Basics.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Basics = elm.Native.Basics || {}; + if (elm.Native.Basics.values) return elm.Native.Basics.values; + + var JS = Elm.Native.JavaScript.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function div(a,b) { return (a/b)|0; } + function rem(a,b) { return a % b; } + var mod = Utils.mod; + function abs(x) { return x < 0 ? -x : x; } + function logBase(base,n) { return Math.log(n) / Math.log(base); } + function min(a,b) { return Utils.cmp(a,b) < 0 ? a : b; } + function max(a,b) { return Utils.cmp(a,b) > 0 ? a : b; } + function clamp(lo,hi,n) { + return Utils.cmp(n,lo) < 0 ? lo : Utils.cmp(n,hi) > 0 ? hi : n; } + function xor(a,b) { return a !== b; } + function not(b) { return !b; } + function isInfinite(n) { return n === Infinity || n === -Infinity } + + function truncate(n) { return n|0; } + + var basics = { + div:F2(div), + rem:F2(rem), + mod:mod, + + pi:Math.PI, + e:Math.E, + cos:Math.cos, + sin:Math.sin, + tan:Math.tan, + acos:Math.acos, + asin:Math.asin, + atan:Math.atan, + atan2:F2(Math.atan2), + + sqrt:Math.sqrt, + abs:abs, + logBase:F2(logBase), + min:F2(min), + max:F2(max), + clamp:F3(clamp), + compare:Utils.compare, + + xor:F2(xor), + not:not, + + truncate:truncate, + ceiling:Math.ceil, + floor:Math.floor, + round:Math.round, + toFloat:function(x) { return x; }, + isNaN:isNaN, + isInfinite:isInfinite + }; + + return elm.Native.Basics.values = basics; +}; +Elm.Native.Bitwise = {}; +Elm.Native.Bitwise.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Bitwise = elm.Native.Bitwise || {}; + if (elm.Native.Bitwise.values) return elm.Native.Bitwise.values; + + function and(a,b) { return a & b; } + function or (a,b) { return a | b; } + function xor(a,b) { return a ^ b; } + function not(a) { return ~a; } + function sll(a,offset) { return a << offset; } + function sra(a,offset) { return a >> offset; } + function srl(a,offset) { return a >>> offset; } + + return elm.Native.Bitwise.values = { + and: F2(and), + or : F2(or ), + xor: F2(xor), + complement: not, + shiftLeft : F2(sll), + shiftRightArithmatic: F2(sra), + shiftRightLogical : F2(srl), + }; + +}; +Elm.Native.Char = {}; +Elm.Native.Char.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Char = elm.Native.Char || {}; + if (elm.Native.Char.values) return elm.Native.Char.values; + + function isBetween(lo,hi) { return function(chr) { + var c = chr.charCodeAt(0); + return lo <= c && c <= hi; + }; + } + var isDigit = isBetween('0'.charCodeAt(0),'9'.charCodeAt(0)); + var chk1 = isBetween('a'.charCodeAt(0),'f'.charCodeAt(0)); + var chk2 = isBetween('A'.charCodeAt(0),'F'.charCodeAt(0)); + + return elm.Native.Char.values = { + fromCode : function(c) { return String.fromCharCode(c); }, + toCode : function(c) { return c.toUpperCase().charCodeAt(0); }, + toUpper : function(c) { return c.toUpperCase(); }, + toLower : function(c) { return c.toLowerCase(); }, + toLocaleUpper : function(c) { return c.toLocaleUpperCase(); }, + toLocaleLower : function(c) { return c.toLocaleLowerCase(); }, + isLower : isBetween('a'.charCodeAt(0),'z'.charCodeAt(0)), + isUpper : isBetween('A'.charCodeAt(0),'Z'.charCodeAt(0)), + isDigit : isDigit, + isOctDigit : isBetween('0'.charCodeAt(0),'7'.charCodeAt(0)), + isHexDigit : function(c) { return isDigit(c) || chk1(c) || chk2(c); } + }; +}; +Elm.Native.Color = {}; +Elm.Native.Color.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Color = elm.Native.Color || {}; + if (elm.Native.Color.values) return elm.Native.Color.values; + + var Utils = Elm.Native.Utils.make(elm); + + function toCss(c) { + return (c._3 === 1) + ? ('rgb(' + c._0 + ', ' + c._1 + ', ' + c._2 + ')') + : ('rgba(' + c._0 + ', ' + c._1 + ', ' + c._2 + ', ' + c._3 + ')'); + } + + function complement(rgb) { + var hsv = toHSV(rgb); + hsv.hue = (hsv.hue + 180) % 360; + return toRGB(hsv); + } + + function hsva(h,s,v,a) { + var degree = A2(Utils.mod, h * 180 / Math.PI, 360); + var clr = toRGB({hue:degree, saturation:s, value:v}); + clr._3 = a; + return clr; + } + + function hsv(h,s,v) { + var degree = A2(Utils.mod, h * 180 / Math.PI, 360); + return toRGB({hue:degree, saturation:s, value:v}); + } + + function toHSV(rgb) { + var hsv = {}; + var r = rgb._0 / 255.0, g = rgb._1 / 255.0, b = rgb._2 / 255.0; + var M = Math.max(r,g,b); + var m = Math.min(r,g,b); + var c = M - m; + + var h = 0; + if (c === 0) { h = 0; } + else if (M === r) { h = ((g - b) / c) % 6; } + else if (M === g) { h = ((b - r) / c) + 2; } + else if (M === b) { h = ((r - g) / c) + 4; } + h *= 60; + + return { value : M, hue : h, saturation : (M === 0 ? 0 : c / M) }; + } + + function between(lo,hi,x) { return lo <= x && x < hi; } + function norm(n) { return Math.round(n*255); } + + function toRGB(hsv) { + var c = hsv.value * hsv.saturation; + var hue = hsv.hue / 60; + var x = c * (1 - Math.abs((hue % 2) - 1)); + var r = 0, g = 0, b = 0; + if (between(0,1,hue)) { r = c; g = x; b = 0; } + else if (between(1,2,hue)) { r = x; g = c; b = 0; } + else if (between(2,3,hue)) { r = 0; g = c; b = x; } + else if (between(3,4,hue)) { r = 0; g = x; b = c; } + else if (between(4,5,hue)) { r = x; g = 0; b = c; } + else if (between(5,6,hue)) { r = c; g = 0; b = x; } + + var m = hsv.value - c; + return { ctor:"Color", _0:norm(r+m), _1:norm(g+m), _2:norm(b+m), _3:1 }; + } + + return elm.Native.Color.values = { + hsva:F4(hsva), + hsv:F3(hsv), + complement:complement, + toCss:toCss + }; + +}; +Elm.Native.Date = {}; +Elm.Native.Date.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Date = elm.Native.Date || {}; + if (elm.Native.Date.values) return elm.Native.Date.values; + + var JS = Elm.JavaScript.make(elm); + var Maybe = Elm.Maybe.make(elm); + + function dateNow() { return new window.Date; } + function readDate(str) { + var d = new window.Date(JS.fromString(str)); + if (isNaN(d.getTime())) return Maybe.Nothing; + return Maybe.Just(d); + } + + var dayTable = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]; + var monthTable = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", + "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]; + + return elm.Native.Date.values = { + read : readDate, + year : function(d) { return d.getFullYear(); }, + month : function(d) { return { ctor:monthTable[d.getMonth()] }; }, + day : function(d) { return d.getDate(); }, + hour : function(d) { return d.getHours(); }, + minute : function(d) { return d.getMinutes(); }, + second : function(d) { return d.getSeconds(); }, + toTime : function(d) { return d.getTime(); }, + fromTime: function(t) { return new window.Date(t); }, + dayOfWeek : function(d) { return { ctor:dayTable[d.getDay()] }; } + }; + +}; +Elm.Native.Debug = {}; +Elm.Native.Debug.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Debug = elm.Native.Debug || {}; + if (elm.Native.Debug.values) return elm.Native.Debug.values; + + var show = Elm.Native.Show.make(elm).show; + + function log(tag,value) { + var msg = tag + ': ' + show(value); + var process = process || {}; + if (process.stdout) { + process.stdout.write(msg); + } else { + console.log(msg); + } + return value; + } + + return elm.Native.Debug.values = { + log: F2(log) + }; + +}; +Elm.Native.Error = {}; +Elm.Native.Error.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Error = elm.Native.Error || {}; + if (elm.Native.Error.values) return elm.Native.Error.values; + + var fromString = Elm.Native.JavaScript.make(elm).fromString; + + function indent(lines) { + var msg = ''; + for (var i = 0; i < lines.length; ++i) { + msg += '
    ' + lines[i]; + } + return msg; + } + + function Case(moduleName, span) { + var msg = indent(['Non-exhaustive pattern match in case-expression.', + 'Make sure your patterns cover every case!']); + throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); + } + + function If(moduleName, span) { + var msg = indent(['Non-exhaustive pattern match in multi-way-if expression.', + 'It is best to use \'otherwise\' as the last branch of multi-way-if.']); + throw new Error('Runtime error in module ' + moduleName + ' (' + span + '):' + msg); + } + + function raise(str) { throw new Error(fromString(str)); } + + return elm.Native.Error.values = { Case: Case, If: If, raise: raise }; +}; +function F2(fun) { + function wrapper(a) { return function(b) { return fun(a,b) } } + wrapper.arity = 2; + wrapper.func = fun; + return wrapper; +} + +function F3(fun) { + function wrapper(a) { + return function(b) { return function(c) { return fun(a,b,c) }} + } + wrapper.arity = 3; + wrapper.func = fun; + return wrapper; +} + +function F4(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return fun(a,b,c,d) }}} + } + wrapper.arity = 4; + wrapper.func = fun; + return wrapper; +} + +function F5(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return fun(a,b,c,d,e) }}}} + } + wrapper.arity = 5; + wrapper.func = fun; + return wrapper; +} + +function F6(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return fun(a,b,c,d,e,f) }}}}} + } + wrapper.arity = 6; + wrapper.func = fun; + return wrapper; +} + +function F7(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return function(g) { return fun(a,b,c,d,e,f,g) }}}}}} + } + wrapper.arity = 7; + wrapper.func = fun; + return wrapper; +} + +function F8(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return function(g) { return function(h) {return fun(a,b,c,d,e,f,g,h)}}}}}}} + } + wrapper.arity = 8; + wrapper.func = fun; + return wrapper; +} + +function F9(fun) { + function wrapper(a) { return function(b) { return function(c) { + return function(d) { return function(e) { return function(f) { + return function(g) { return function(h) { return function(i) { + return fun(a,b,c,d,e,f,g,h,i) }}}}}}}} + } + wrapper.arity = 9; + wrapper.func = fun; + return wrapper; +} + +function A2(fun,a,b) { + return fun.arity === 2 ? fun.func(a,b) : fun(a)(b); +} +function A3(fun,a,b,c) { + return fun.arity === 3 ? fun.func(a,b,c) : fun(a)(b)(c); +} +function A4(fun,a,b,c,d) { + return fun.arity === 4 ? fun.func(a,b,c,d) : fun(a)(b)(c)(d); +} +function A5(fun,a,b,c,d,e) { + return fun.arity === 5 ? fun.func(a,b,c,d,e) : fun(a)(b)(c)(d)(e); +} +function A6(fun,a,b,c,d,e,f) { + return fun.arity === 6 ? fun.func(a,b,c,d,e,f) : fun(a)(b)(c)(d)(e)(f); +} +function A7(fun,a,b,c,d,e,f,g) { + return fun.arity === 7 ? fun.func(a,b,c,d,e,f,g) : fun(a)(b)(c)(d)(e)(f)(g); +} +function A8(fun,a,b,c,d,e,f,g,h) { + return fun.arity === 8 ? fun.func(a,b,c,d,e,f,g,h) : fun(a)(b)(c)(d)(e)(f)(g)(h); +} +function A9(fun,a,b,c,d,e,f,g,h,i) { + return fun.arity === 9 ? fun.func(a,b,c,d,e,f,g,h,i) + : fun(a)(b)(c)(d)(e)(f)(g)(h)(i); +} +Elm.Native.JavaScript = {}; +Elm.Native.JavaScript.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.JavaScript = elm.Native.JavaScript || {}; + if (elm.Native.JavaScript.values) return elm.Native.JavaScript.values; + + var List = Elm.Native.List.make(elm); + var Render = ElmRuntime.use(ElmRuntime.Render.Element); + + function fromJS(v) { + var type = typeof v; + if (type === 'number' ) return v; + if (type === 'boolean') return v; + if (type === 'string' ) return v; + if (v instanceof Array) { + var arr = []; + var len = v.length; + for (var i = 0; i < len; ++i) { + var x = fromJS(v[i]); + if (x !== null) arr.push(x); + } + return List.fromArray(arr); + } + if (type === 'object') { + var rec = { _:{} }; + for (var f in v) { + var x = fromJS(v[f]); + if (x !== null) rec[f] = x; + } + return rec; + } + return null; + } + + function toJS(v) { + var type = typeof v; + if (type === 'number' || type === 'boolean' || type === 'string') return v; + if (type === 'object' && '_' in v) { + var obj = {}; + for (var k in v) { + var x = toJS(v[k]); + if (x !== null) obj[k] = x; + } + return obj; + } + if (type === 'object' && (v.ctor === '::' || v.ctor === '[]')) { + var array = List.toArray(v); + for (var i = array.length; i--; ) { + array[i] = toJS(array[i]); + } + return array; + } + return null; + } + + function fromRecord(r) { + if (typeof r === 'object' && '_' in r) { + return toJS(r); + } + throw new Error("'fromRecord' must be called on a record."); + } + + function id(n) { return n; } + + function toElement(w,h,domNode) { + return A3( newElement, w, h, { + ctor: 'Custom', + type: 'DomNode', + render: function(node) { return node; }, + update: function(node,oldNode,newNode) { + if (node === newNode) return; + node.parentNode.replaceChild(newNode, node); + }, + model: domNode + }); + } + + function fromElement(element) { + return Render.render(element); + } + + return elm.Native.JavaScript.values = { + toInt : function(n) { return n|0; }, + toFloat : function(n) { return +n; }, + toBool : id, + toString : id, + toList : List.fromArray, + fromString : id, + fromList : List.toArray, + fromInt : id, + fromFloat : id, + fromBool : id, + + toElement : toElement, + fromElement : fromElement, + toRecord : fromJS, + fromRecord : fromRecord + }; + +}; +Elm.Native.Json = {}; +Elm.Native.Json.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Json = elm.Native.Json || {}; + if (elm.Native.Json.values) return elm.Native.Json.values; + + var Maybe = Elm.Maybe.make(elm); + var Dict = Elm.Dict.make(elm); + var List = Elm.List.make(elm); + var JS = Elm.JavaScript.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function fromValue(v) { + switch (v.ctor) { + case 'Null' : return null; + case 'String' : return JS.fromString(v._0); + case 'Object' : + var obj = {}; + var array = JS.fromList(Dict.toList(v._0)); + for (var i = array.length; i--; ) { + obj[JS.fromString(array[i]._0)] = fromValue(array[i]._1); + } + return obj; + case 'Array' : + var array = JS.fromList(v._0); + for (var i = array.length; i--; ) { + array[i] = fromValue(array[i]); + } + return array; + default : + return v._0; + } + } + + function toPrettyJSString(sep, obj) { + return JSON.stringify(fromValue(obj), null, JS.fromString(sep)); + } + + function toValue(v) { + switch (typeof v) { + case 'string' : return { ctor:"String", _0: JS.toString(v) }; + case 'number' : return { ctor:"Number", _0: JS.toFloat(v) }; + case 'boolean': return { ctor:"Boolean" , _0: JS.toBool(v) }; + case 'object' : + if (v === null) return { ctor:"Null" }; + if (v instanceof Array) { + for (var i = v.length; i--; ) { v[i] = toValue(v[i]); } + return { ctor:"Array", _0: JS.toList(v) }; + } + var array = []; + for (var k in v) array.push(Utils.Tuple2(JS.toString(k), toValue(v[k]))); + return { ctor:"Object", _0: Dict.fromList(JS.toList(array)) }; + } + } + + function fromJSString(str) { + try { + return Maybe.Just(toValue(JSON.parse(str))); + } catch (e) { + return Maybe.Nothing; + } + } + + return elm.Native.Json.values = { + toJSString : F2(toPrettyJSString), + fromJSString : fromJSString, + toJSObject : fromValue, + fromJSObject : toValue + }; + +}; +Elm.Native.List = {}; +Elm.Native.List.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.List = elm.Native.List || {}; + if (elm.Native.List.values) return elm.Native.List.values; + if ('values' in Elm.Native.List) + return elm.Native.List.values = Elm.Native.List.values; + + var Utils = Elm.Native.Utils.make(elm); + + // TODO: Improve Nil handling + // We can change places like: if (xs.ctor === '[]') ... to if (xs === Nil) ... + // but only if we're confident Nil can only be defined once. + // Currently (27Mar2013) each module can have different instantiations, so multiple Nil objects can exist + // (and if they're used interchangeably then direct object comparison fails where ctor doesn't). + // So, this can only be fixed when modules initialisation is also fixed. + // The performance overhead of the .ctor calls is 5-10% according to jsperf (depending on fn + list size) + // (on firefox 19) + + var Nil = { ctor:'[]' }; + + // using freeze for every cons would be nice but is a huge (9x on firefox 19) + // performance penalty + function Cons(hd,tl) { return { ctor:"::", _0:hd, _1:tl }; } + + function throwError(f) { + throw new Error("Function '" + f + "' expects a non-empty list!"); + } + + function toArray(xs) { + var out = []; + while (xs.ctor !== '[]') { + out.push(xs._0); + xs = xs._1; + } + return out; + } + + function fromArray(arr) { + var out = Nil; + for (var i = arr.length; i--; ) { + out = Cons(arr[i], out); + } + return out; + } + + function range(lo,hi) { + var lst = Nil; + if (lo <= hi) { + do { lst = Cons(hi,lst) } while (hi-->lo); + } + return lst + } + + function append(xs,ys) { + // append Text + if (xs.text || ys.text) { + return Utils.txt(Utils.makeText(xs) + Utils.makeText(ys)); + } + + // append Strings + if (typeof xs === "string") return xs + ys; + + // append Lists + if (xs.ctor === '[]') { return ys; } + var root = Cons(xs._0, Nil); + var curr = root; + xs = xs._1; + while (xs.ctor !== '[]') { + curr._1 = Cons(xs._0, Nil); + xs = xs._1; + curr = curr._1; + } + curr._1 = ys; + return root; + } + + function head(v) { return v.ctor === '[]' ? throwError('head') : v._0; } + function tail(v) { return v.ctor === '[]' ? throwError('tail') : v._1; } + + function last(xs) { + if (xs.ctor === '[]') { throwError('last'); } + var out = xs._0; + while (xs.ctor !== '[]') { + out = xs._0; + xs = xs._1; + } + return out; + } + + function map(f, xs) { + var arr = []; + while (xs.ctor !== '[]') { + arr.push(f(xs._0)); + xs = xs._1; + } + return fromArray(arr); + } + + // f defined similarly for both foldl and foldr (NB: different from Haskell) + // ie, foldl : (a -> b -> b) -> b -> [a] -> b + function foldl(f, b, xs) { + var acc = b; + while (xs.ctor !== '[]') { + acc = A2(f, xs._0, acc); + xs = xs._1; + } + return acc; + } + + function foldr(f, b, xs) { + var arr = toArray(xs); + var acc = b; + for (var i = arr.length; i--; ) { + acc = A2(f, arr[i], acc); + } + return acc; + } + + function foldl1(f, xs) { + return xs.ctor === '[]' ? throwError('foldl1') : foldl(f, xs._0, xs._1); + } + + function foldr1(f, xs) { + if (xs.ctor === '[]') { throwError('foldr1'); } + var arr = toArray(xs); + var acc = arr.pop(); + for (var i = arr.length; i--; ) { + acc = A2(f, arr[i], acc); + } + return acc; + } + + function scanl(f, b, xs) { + var arr = toArray(xs); + arr.unshift(b); + var len = arr.length; + for (var i = 1; i < len; ++i) { + arr[i] = A2(f, arr[i], arr[i-1]); + } + return fromArray(arr); + } + + function scanl1(f, xs) { + return xs.ctor === '[]' ? throwError('scanl1') : scanl(f, xs._0, xs._1); + } + + function filter(pred, xs) { + var arr = []; + while (xs.ctor !== '[]') { + if (pred(xs._0)) { arr.push(xs._0); } + xs = xs._1; + } + return fromArray(arr); + } + + function length(xs) { + var out = 0; + while (xs.ctor !== '[]') { + out += 1; + xs = xs._1; + } + return out; + } + + function member(x, xs) { + while (xs.ctor !== '[]') { + if (Utils.eq(x,xs._0)) return true; + xs = xs._1; + } + return false; + } + + function reverse(xs) { return fromArray(toArray(xs).reverse()); } + + function concat(xss) { + if (xss.ctor === '[]') return xss; + var arr = toArray(xss); + var xs = arr[arr.length-1]; + for (var i = arr.length-1; i--; ) { + xs = append(arr[i], xs); + } + return xs; + } + + function all(pred, xs) { + while (xs.ctor !== '[]') { + if (!pred(xs._0)) return false; + xs = xs._1; + } + return true; + } + + function any(pred, xs) { + while (xs.ctor !== '[]') { + if (pred(xs._0)) return true; + xs = xs._1; + } + return false; + } + + function zipWith(f, xs, ys) { + var arr = []; + while (xs.ctor !== '[]' && ys.ctor !== '[]') { + arr.push(A2(f, xs._0, ys._0)); + xs = xs._1; + ys = ys._1; + } + return fromArray(arr); + } + + function zip(xs, ys) { + var arr = []; + while (xs.ctor !== '[]' && ys.ctor !== '[]') { + arr.push(Utils.Tuple2(xs._0, ys._0)); + xs = xs._1; + ys = ys._1; + } + return fromArray(arr); + } + + function sort(xs) { + return fromArray(toArray(xs).sort(Utils.cmp)); + } + + function sortBy(f, xs) { + return fromArray(toArray(xs).sort(function(a,b){ + return Utils.cmp(f(a), f(b)); + })); + } + + function sortWith(f, xs) { + return fromArray(toArray(xs).sort(function(a,b){ + var ord = f(a)(b).ctor; + return ord === 'EQ' ? 0 : ord === 'LT' ? -1 : 1; + })); + } + + function nth(xs, n) { + return toArray(xs)[n]; + } + + function take(n, xs) { + var arr = []; + while (xs.ctor !== '[]' && n > 0) { + arr.push(xs._0); + xs = xs._1; + --n; + } + return fromArray(arr); + } + + function drop(n, xs) { + while (xs.ctor !== '[]' && n > 0) { + xs = xs._1; + --n; + } + return xs; + } + + function repeat(n, x) { + var arr = []; + var pattern = [x]; + while (n > 0) { + if (n & 1) arr = arr.concat(pattern); + n >>= 1, pattern = pattern.concat(pattern); + } + return fromArray(arr); + } + + function join(sep, xss) { + if (sep.text) { + sep = Utils.makeText(sep); + xss = toArray(xss); + for (var i = xss.length; i--; ) { + xss[i] = Utils.makeText(xss[i]); + } + return Utils.txt(xss.join(sep)); + } + if (typeof sep === 'string') return toArray(xss).join(sep); + if (xss.ctor === '[]') return Nil; + var s = toArray(sep); + var out = toArray(xss._0); + xss = xss._1; + while (xss.ctor !== '[]') { + out = out.concat(s, toArray(xss._0)); + xss = xss._1; + } + return fromArray(out); + } + + Elm.Native.List.values = { + Nil:Nil, + Cons:Cons, + cons:F2(Cons), + toArray:toArray, + fromArray:fromArray, + range:range, + append:append, + + head:head, + tail:tail, + last:last, + + map:F2(map), + foldl:F3(foldl), + foldr:F3(foldr), + + foldl1:F2(foldl1), + foldr1:F2(foldr1), + scanl:F3(scanl), + scanl1:F2(scanl1), + filter:F2(filter), + length:length, + member:F2(member), + reverse:reverse, + concat:concat, + + all:F2(all), + any:F2(any), + zipWith:F3(zipWith), + zip:F2(zip), + sort:sort, + sortBy:F2(sortBy), + sortWith:F2(sortWith), + nth:F2(nth), + take:F2(take), + drop:F2(drop), + repeat:F2(repeat), + + join:F2(join) + }; + return elm.Native.List.values = Elm.Native.List.values; + +}; +Elm.Native.Ports = {}; +Elm.Native.Ports.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Ports = elm.Native.Ports || {}; + if (elm.Native.Ports.values) return elm.Native.Ports.values; + + var Signal = Elm.Signal.make(elm); + + function incomingSignal(converter) { + converter.isSignal = true; + return converter; + } + + function outgoingSignal(converter) { + return function(signal) { + var subscribers = [] + function subscribe(handler) { + subscribers.push(handler); + } + function unsubscribe(handler) { + subscribers.pop(subscribers.indexOf(handler)); + } + A2( Signal.lift, function(value) { + var val = converter(value); + var len = subscribers.length; + for (var i = 0; i < len; ++i) { + subscribers[i](val); + } + }, signal); + return { subscribe:subscribe, unsubscribe:unsubscribe }; + } + } + + function portIn(name, converter) { + var jsValue = elm.ports.incoming[name]; + if (jsValue === undefined) { + throw new Error("Initialization Error: port '" + name + + "' was not given an input!"); + } + elm.ports.uses[name] += 1; + try { + var elmValue = converter(jsValue); + } catch(e) { + throw new Error("Initialization Error on port '" + name + "': \n" + e.message); + } + + // just return a static value if it is not a signal + if (!converter.isSignal) { + return elmValue; + } + + // create a signal if necessary + var signal = Signal.constant(elmValue); + function send(jsValue) { + try { + var elmValue = converter(jsValue); + } catch(e) { + throw new Error("Error sending to port '" + name + "': \n" + e.message); + } + setTimeout(function() { + elm.notify(signal.id, elmValue); + }, 0); + } + elm.ports.outgoing[name] = { send:send }; + return signal; + } + + function portOut(name, converter, value) { + try { + elm.ports.outgoing[name] = converter(value); + } catch(e) { + throw new Error("Initialization Error on port '" + name + "': \n" + e.message); + } + return value; + } + + return elm.Native.Ports.values = { + incomingSignal: incomingSignal, + outgoingSignal: outgoingSignal, + portOut: portOut, + portIn: portIn + }; +}; +Elm.Native.Regex = {}; +Elm.Native.Regex.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Regex = elm.Native.Regex || {}; + if (elm.Native.Regex.values) return elm.Native.Regex.values; + if ('values' in Elm.Native.Regex) + return elm.Native.Regex.values = Elm.Native.Regex.values; + + var Maybe = Elm.Maybe.make(elm); + var JS = Elm.JavaScript.make(elm); + + function escape(str) { + return str.replace(/[-\/\\^$*+?.()|[\]{}]/g, '\\$&'); + } + function caseInsensitive(re) { + return new RegExp(re.source, 'gi'); + } + function regex(raw) { + return new RegExp(raw, 'g'); + } + + function contains(re, string) { + return JS.fromString(string).match(re) !== null; + } + + function find(n, re, str) { + n = n.ctor === "All" ? Infinity : n._0; + var out = []; + var number = 0; + var string = JS.fromString(str); + var result; + while (number++ < n && (result = re.exec(string))) { + var i = result.length - 1; + var subs = new Array(i); + while (i > 0) { + var submatch = result[i]; + subs[--i] = submatch === undefined + ? Maybe.Nothing + : Maybe.Just(JS.toString(submatch)); + } + out.push({ + _:{}, + match: JS.toString(result[0]), + submatches: JS.toList(subs), + index: result.index, + number: number, + }); + } + return JS.toList(out); + } + + function replace(n, re, replacer, string) { + n = n.ctor === "All" ? Infinity : n._0; + var count = 0; + function jsReplacer(match) { + if (count++ > n) return match; + var i = arguments.length-3; + var submatches = new Array(i); + while (i > 0) { + var submatch = arguments[i]; + submatches[--i] = submatch === undefined + ? Maybe.Nothing + : Maybe.Just(JS.toString(submatch)); + } + return JS.fromString(replacer({ + _:{}, + match:match, + submatches:JS.toList(submatches), + index:arguments[i-1], + number:count + })); + } + return string.replace(re, jsReplacer); + } + + function split(n, re, str) { + if (n === Infinity) { + return JS.toList(JS.fromString(string).split(re)); + } + var string = JS.fromString(str); + var result; + var out = []; + var start = re.lastIndex; + while (n--) { + if (!(result = re.exec(string))) break; + out.push(string.slice(start, result.index)); + start = re.lastIndex; + } + out.push(string.slice(start)); + return JS.toList(out); + } + + return Elm.Native.Regex.values = { + regex: regex, + caseInsensitive: caseInsensitive, + escape: escape, + + contains: F2(contains), + find: F3(find), + replace: F4(replace), + split: F3(split), + }; +}; +Elm.Native.Show = {}; +Elm.Native.Show.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Show = elm.Native.Show || {}; + if (elm.Native.Show.values) return elm.Native.Show.values; + + var NList = Elm.Native.List.make(elm); + var List = Elm.List.make(elm); + var Dict = Elm.Dict.make(elm); + var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; + + var toString = function(v) { + var type = typeof v; + if (type === "function") { + var name = v.func ? v.func.name : v.name; + return ''; + } else if (type === "boolean") { + return v ? "True" : "False"; + } else if (type === "number") { + return v+""; + } else if ((v instanceof String) && v.isChar) { + return "'" + addSlashes(v) + "'"; + } else if (type === "string") { + return '"' + addSlashes(v) + '"'; + } else if (type === "object" && '_' in v && probablyPublic(v)) { + var output = []; + for (var k in v._) { + for (var i = v._[k].length; i--; ) { + output.push(k + " = " + toString(v._[k][i])); + } + } + for (var k in v) { + if (k === '_') continue; + output.push(k + " = " + toString(v[k])); + } + if (output.length === 0) return "{}"; + return "{ " + output.join(", ") + " }"; + } else if (type === "object" && 'ctor' in v) { + if (v.ctor.substring(0,6) === "_Tuple") { + var output = []; + for (var k in v) { + if (k === 'ctor') continue; + output.push(toString(v[k])); + } + return "(" + output.join(",") + ")"; + } else if (v.ctor === "::") { + var output = '[' + toString(v._0); + v = v._1; + while (v.ctor === "::") { + output += "," + toString(v._0); + v = v._1; + } + return output + ']'; + } else if (v.ctor === "[]") { + return "[]"; + } else if (v.ctor === "RBNode" || v.ctor === "RBEmpty") { + var cons = F3(function(k,v,acc){return NList.Cons(Tuple2(k,v),acc)}); + var list = A3(Dict.foldr, cons, NList.Nil, v); + var name = "Dict"; + if (list.ctor === "::" && list._0._1.ctor === "_Tuple0") { + name = "Set"; + list = A2(List.map, function(x){return x._0}, list); + } + return name + ".fromList " + toString(list); + } else { + var output = ""; + for (var i in v) { + if (i === 'ctor') continue; + var str = toString(v[i]); + var parenless = str[0] === '{' || str[0] === '<' || str.indexOf(' ') < 0; + output += ' ' + (parenless ? str : '(' + str + ')'); + } + return v.ctor + output; + } + } + if (type === 'object' && 'recv' in v) return ''; + return ""; + }; + + function addSlashes(str) { + return str.replace(/\\/g, '\\\\') + .replace(/\n/g, '\\n') + .replace(/\t/g, '\\t') + .replace(/\r/g, '\\r') + .replace(/\v/g, '\\v') + .replace(/\0/g, '\\0') + .replace(/\'/g, "\\'") + .replace(/\"/g, '\\"'); + } + + function probablyPublic(v) { + var keys = Object.keys(v); + var len = keys.length; + if (len === 3 + && 'props' in v + && 'element' in v) return false; + if (len === 5 + && 'horizontal' in v + && 'vertical' in v + && 'x' in v + && 'y' in v) return false; + if (len === 7 + && 'theta' in v + && 'scale' in v + && 'x' in v + && 'y' in v + && 'alpha' in v + && 'form' in v) return false; + return true; + } + + return elm.Native.Show.values = { show:toString }; +}; +Elm.Native.String = {}; +Elm.Native.String.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.String = elm.Native.String || {}; + if (elm.Native.String.values) return elm.Native.String.values; + if ('values' in Elm.Native.String) + return elm.Native.String.values = Elm.Native.String.values; + + var Char = Elm.Char.make(elm); + var Maybe = Elm.Maybe.make(elm); + var JS = Elm.JavaScript.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function isEmpty(str) { + return str.length === 0; + } + function cons(chr,str) { + return chr + str; + } + function uncons(str) { + var hd; + return (hd = str[0]) ? Maybe.Just(Utils.Tuple2(Utils.chr(hd), str.slice(1))) + : Maybe.Nothing; + } + function append(a,b) { + return a + b; + } + function concat(strs) { + return JS.fromList(strs).join(''); + } + function length(str) { + return str.length; + } + function map(f,str) { + var out = str.split(''); + for (var i = out.length; i--; ) { + out[i] = f(Utils.chr(out[i])); + } + return out.join(''); + } + function filter(pred,str) { + return str.split('').map(Utils.chr).filter(pred).join(''); + } + function reverse(str) { + return str.split('').reverse().join(''); + } + function foldl(f,b,str) { + var len = str.length; + for (var i = 0; i < len; ++i) { + b = A2(f, Utils.chr(str[i]), b); + } + return b; + } + function foldr(f,b,str) { + for (var i = str.length; i--; ) { + b = A2(f, Utils.chr(str[i]), b); + } + return b; + } + + function split(sep, str) { + return JS.toList(str.split(sep)); + } + function join(sep, strs) { + return JS.fromList(strs).join(sep); + } + function repeat(n, str) { + var result = ''; + while (n > 0) { + if (n & 1) result += str; + n >>= 1, str += str; + } + return result; + } + + function sub(start, end, str) { + return str.slice(start,end); + } + function left(n, str) { + return n < 1 ? "" : str.slice(0,n); + } + function right(n, str) { + return n < 1 ? "" : str.slice(-n); + } + function dropLeft(n, str) { + return n < 1 ? str : str.slice(n); + } + function dropRight(n, str) { + return n < 1 ? str : str.slice(0,-n); + } + + function pad(n,chr,str) { + var half = (n - str.length) / 2; + return repeat(Math.ceil(half),chr) + str + repeat(half|0,chr); + } + function padRight(n,chr,str) { + return str + repeat(n - str.length, chr); + } + function padLeft(n,chr,str) { + return repeat(n - str.length, chr) + str; + } + + function trim(str) { + return str.trim(); + } + function trimLeft(str) { + return str.trimLeft(); + } + function trimRight(str) { + return str.trimRight(); + } + + function words(str) { + return JS.toList(str.split(/\s+/g)); + } + function lines(str) { + return JS.toList(str.split(/\r\n|\r|\n/g)); + } + + function toUpper(str) { + return str.toUpperCase(); + } + function toLower(str) { + return str.toLowerCase(); + } + + function any(pred, str) { + for (var i = str.length; i--; ) { + if (pred(Utils.chr(str[i]))) return true; + } + return false; + } + function all(pred, str) { + for (var i = str.length; i--; ) { + if (!pred(Utils.chr(str[i]))) return false; + } + return true; + } + + function contains(sub, str) { + return str.indexOf(sub) > -1; + } + function startsWith(sub, str) { + return str.indexOf(sub) === 0; + } + function endsWith(sub, str) { + return str.length >= sub.length && + str.lastIndexOf(sub) === str.length - sub.length; + } + function indexes(sub, str) { + var subLen = sub.length; + var i = 0; + var is = []; + while ((i = str.indexOf(sub, i)) > -1) { + is.push(i); + i = i + subLen; + } + return JS.toList(is); + } + + function toInt(s) { + var len = s.length; + if (len === 0) { return Maybe.Nothing; } + var start = 0; + if (s[0] == '-') { + if (len === 1) { return Maybe.Nothing; } + start = 1; + } + for (var i = start; i < len; ++i) { + if (!Char.isDigit(s[i])) { return Maybe.Nothing; } + } + return Maybe.Just(parseInt(s, 10)); + } + + function toFloat(s) { + var len = s.length; + if (len === 0) { return Maybe.Nothing; } + var start = 0; + if (s[0] == '-') { + if (len === 1) { return Maybe.Nothing; } + start = 1; + } + var dotCount = 0; + for (var i = start; i < len; ++i) { + if (Char.isDigit(s[i])) { continue; } + if (s[i] === '.') { + dotCount += 1; + if (dotCount <= 1) { continue; } + } + return Maybe.Nothing; + } + return Maybe.Just(parseFloat(s)); + } + + function toList(str) { + return JS.toList(str.split('').map(Utils.chr)); + } + function fromList(chars) { + return JS.fromList(chars).join(''); + } + + return Elm.Native.String.values = { + isEmpty: isEmpty, + cons: F2(cons), + uncons: uncons, + append: F2(append), + concat: concat, + length: length, + map: F2(map), + filter: F2(filter), + reverse: reverse, + foldl: F3(foldl), + foldr: F3(foldr), + + split: F2(split), + join: F2(join), + repeat: F2(repeat), + + sub: F3(sub), + left: F2(left), + right: F2(right), + dropLeft: F2(dropLeft), + dropRight: F2(dropRight), + + pad: F3(pad), + padLeft: F3(padLeft), + padRight: F3(padRight), + + trim: trim, + trimLeft: trimLeft, + trimRight: trimRight, + + words: words, + lines: lines, + + toUpper: toUpper, + toLower: toLower, + + any: F2(any), + all: F2(all), + + contains: F2(contains), + startsWith: F2(startsWith), + endsWith: F2(endsWith), + indexes: F2(indexes), + + toInt: toInt, + toFloat: toFloat, + toList: toList, + fromList: fromList, + }; +}; +Elm.Native.Text = {}; +Elm.Native.Text.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Text = elm.Native.Text || {}; + if (elm.Native.Text.values) return elm.Native.Text.values; + + var toCss = Elm.Native.Color.make(elm).toCss; + var Element = Elm.Graphics.Element.make(elm); + var List = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function makeSpaces(s) { + if (s.length == 0) { return s; } + var arr = s.split(''); + if (arr[0] == ' ') { arr[0] = " " } + for (var i = arr.length; --i; ) { + if (arr[i][0] == ' ' && arr[i-1] == ' ') { + arr[i-1] = arr[i-1] + arr[i]; + arr[i] = ''; + } + } + for (var i = arr.length; i--; ) { + if (arr[i].length > 1 && arr[i][0] == ' ') { + var spaces = arr[i].split(''); + for (var j = spaces.length - 2; j >= 0; j -= 2) { + spaces[j] = ' '; + } + arr[i] = spaces.join(''); + } + } + arr = arr.join(''); + if (arr[arr.length-1] === " ") { + return arr.slice(0,-1) + ' '; + } + return arr; + } + + function properEscape(str) { + if (str.length == 0) return str; + str = str //.replace(/&/g, "&") + .replace(/"/g, '"') + .replace(/'/g, "'") + .replace(//g, ">") + .replace(/\n/g, "
"); + var arr = str.split('
'); + for (var i = arr.length; i--; ) { + arr[i] = makeSpaces(arr[i]); + } + return arr.join('
'); + } + + function toText(str) { return Utils.txt(properEscape(str)); } + + // conversions from Elm values to CSS + function toTypefaces(list) { + var typefaces = List.toArray(list); + for (var i = typefaces.length; i--; ) { + var typeface = typefaces[i]; + if (typeface.indexOf(' ') > -1) { + typefaces[i] = "'" + typeface + "'"; + } + } + return typefaces.join(','); + } + function toLine(line) { + var ctor = line.ctor; + return ctor === 'Under' ? 'underline' : + ctor === 'Over' ? 'overline' : 'line-through'; + } + + // setting styles of Text + function style(style, text) { + var newText = '' + return Utils.txt(newText); + } + function height(px, text) { + return { style: 'font-size:' + px + 'px;', text:text } + } + function typeface(names, text) { + return { style: 'font-family:' + toTypefaces(names) + ';', text:text } + } + function monospace(text) { + return { style: 'font-family:monospace;', text:text } + } + function italic(text) { + return { style: 'font-style:italic;', text:text } + } + function bold(text) { + return { style: 'font-weight:bold;', text:text } + } + function link(href, text) { + return { href: toText(href), text:text }; + } + function line(line, text) { + return { style: 'text-decoration:' + toLine(line) + ';', text:text }; + } + + function color(color, text) { + return { style: 'color:' + toCss(color) + ';', text:text }; + } + + function block(align) { + return function(text) { + var raw = { + ctor :'RawHtml', + html : Utils.makeText(text), + align: align, + guid : null, + args : [], + }; + var pos = A2(Utils.htmlHeight, 0, raw); + return A3(Element.newElement, pos._0, pos._1, raw); + } + } + + function markdown(text, guid) { + var raw = { + ctor:'RawHtml', + html: text, + align: null, + guid: guid, + args: [], + }; + var pos = A2(Utils.htmlHeight, 0, raw); + return A3(Element.newElement, pos._0, pos._1, raw); + } + + return elm.Native.Text.values = { + toText: toText, + + height : F2(height), + italic : italic, + bold : bold, + line : F2(line), + monospace : monospace, + typeface : F2(typeface), + color : F2(color), + link : F2(link), + + leftAligned : block('left'), + rightAligned : block('right'), + centered : block('center'), + justified : block('justify'), + markdown : markdown, + + toTypefaces:toTypefaces, + toLine:toLine, + }; +}; +Elm.Native.Trampoline = {}; +Elm.Native.Trampoline.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Trampoline = elm.Native.Trampoline || {}; + if (elm.Native.Trampoline.values) return elm.Native.Trampoline.values; + + // trampoline : Trampoline a -> a + function trampoline(t) { + var tramp = t; + while(true) { + switch(tramp.ctor) { + case "Done": + return tramp._0; + case "Continue": + tramp = tramp._0({ctor: "_Tuple0"}); + continue; + } + } + } + + return elm.Native.Trampoline.values = { + trampoline:trampoline + }; +}; +Elm.Native.Transform2D = {}; +Elm.Native.Transform2D.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Transform2D = elm.Native.Transform2D || {}; + if (elm.Native.Transform2D.values) return elm.Native.Transform2D.values; + + var A; + if (typeof Float32Array === 'undefined') { + A = function(arr) { + this.length = arr.length; + this[0] = arr[0]; + this[1] = arr[1]; + this[2] = arr[2]; + this[3] = arr[3]; + this[4] = arr[4]; + this[5] = arr[5]; + }; + } else { + A = Float32Array; + } + + // layout of matrix in an array is + // + // | m11 m12 dx | + // | m21 m22 dy | + // | 0 0 1 | + // + // new A([ m11, m12, dx, m21, m22, dy ]) + + var identity = new A([1,0,0,0,1,0]); + function matrix(m11, m12, m21, m22, dx, dy) { + return new A([m11, m12, dx, m21, m22, dy]); + } + function rotation(t) { + var c = Math.cos(t); + var s = Math.sin(t); + return new A([c, -s, 0, s, c, 0]); + } + function rotate(t,m) { + var c = Math.cos(t); + var s = Math.sin(t); + var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; + return new A([m11*c + m12*s, -m11*s + m12*c, m[2], + m21*c + m22*s, -m21*s + m22*c, m[5]]); + } + /* + function move(xy,m) { + var x = xy._0; + var y = xy._1; + var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4]; + return new A([m11, m12, m11*x + m12*y + m[2], + m21, m22, m21*x + m22*y + m[5]]); + } + function scale(s,m) { return new A([m[0]*s, m[1]*s, m[2], m[3]*s, m[4]*s, m[5]]); } + function scaleX(x,m) { return new A([m[0]*x, m[1], m[2], m[3]*x, m[4], m[5]]); } + function scaleY(y,m) { return new A([m[0], m[1]*y, m[2], m[3], m[4]*y, m[5]]); } + function reflectX(m) { return new A([-m[0], m[1], m[2], -m[3], m[4], m[5]]); } + function reflectY(m) { return new A([m[0], -m[1], m[2], m[3], -m[4], m[5]]); } + + function transform(m11, m21, m12, m22, mdx, mdy, n) { + var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; + return new A([m11*n11 + m12*n21, + m11*n12 + m12*n22, + m11*ndx + m12*ndy + mdx, + m21*n11 + m22*n21, + m21*n12 + m22*n22, + m21*ndx + m22*ndy + mdy]); + } + */ + function multiply(m, n) { + var m11 = m[0], m12 = m[1], m21 = m[3], m22 = m[4], mdx = m[2], mdy = m[5]; + var n11 = n[0], n12 = n[1], n21 = n[3], n22 = n[4], ndx = n[2], ndy = n[5]; + return new A([m11*n11 + m12*n21, + m11*n12 + m12*n22, + m11*ndx + m12*ndy + mdx, + m21*n11 + m22*n21, + m21*n12 + m22*n22, + m21*ndx + m22*ndy + mdy]); + } + + return elm.Native.Transform2D.values = { + identity:identity, + matrix:F6(matrix), + rotation:rotation, + multiply:F2(multiply) + /* + transform:F7(transform), + rotate:F2(rotate), + move:F2(move), + scale:F2(scale), + scaleX:F2(scaleX), + scaleY:F2(scaleY), + reflectX:reflectX, + reflectY:reflectY + */ + }; + +}; +Elm.Native.Utils = {}; +Elm.Native.Utils.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Utils = elm.Native.Utils || {}; + if (elm.Native.Utils.values) return elm.Native.Utils.values; + + function eq(x,y) { + if (x === y) return true; + if (typeof x === "object") { + var c = 0; + for (var i in x) { + ++c; + if (!eq(x[i],y[i])) { + return false; + } + } + return c === Object.keys(y).length; + } + if (typeof x === 'function') { + throw new Error('Equality error: general function equality is ' + + 'undecidable, and therefore, unsupported'); + } + return x === y; + } + + // code in Generate/JavaScript.hs depends on the particular + // integer values assigned to LT, EQ, and GT + var LT = -1, EQ = 0, GT = 1, ord = ['LT','EQ','GT']; + function compare(x,y) { return { ctor: ord[cmp(x,y)+1] } } + function cmp(x,y) { + var ord; + if (typeof x !== 'object' || x instanceof String){ + return x === y ? EQ : x < y ? LT : GT; + } + + if (x.ctor === "::" || x.ctor === "[]") { + while (true) { + if (x.ctor === "[]" && y.ctor === "[]") return EQ; + if (x.ctor !== y.ctor) return x.ctor === '[]' ? LT : GT; + ord = cmp(x._0, y._0); + if (ord !== EQ) return ord; + x = x._1; + y = y._1; + } + } + + if (x.ctor.slice(0,6) === '_Tuple') { + var n = x.ctor.slice(6) - 0; + var err = 'cannot compare tuples with more than 6 elements.'; + if (n === 0) return EQ; + if (n >= 1) { ord = cmp(x._0, y._0); if (ord !== EQ) return ord; + if (n >= 2) { ord = cmp(x._1, y._1); if (ord !== EQ) return ord; + if (n >= 3) { ord = cmp(x._2, y._2); if (ord !== EQ) return ord; + if (n >= 4) { ord = cmp(x._3, y._3); if (ord !== EQ) return ord; + if (n >= 5) { ord = cmp(x._4, y._4); if (ord !== EQ) return ord; + if (n >= 6) { ord = cmp(x._5, y._5); if (ord !== EQ) return ord; + if (n >= 7) throw new Error('Comparison error: ' + err); } } } } } } + return EQ; + } + throw new Error('Comparison error: comparison is only defined on ints, ' + + 'floats, times, chars, strings, lists of comparable values, ' + + 'and tuples of comparable values.') + } + + + var Tuple0 = { ctor: "_Tuple0" }; + function Tuple2(x,y) { return { ctor:"_Tuple2", _0:x, _1:y } } + + function chr(c) { + var x = new String(c); + x.isChar = true; + return x; + } + + function txt(str) { + var t = new String(str); + t.text = true; + return t; + } + + function makeText(text) { + var style = ''; + var href = ''; + while (true) { + if (text.style) { + style += text.style; + text = text.text; + continue; + } + if (text.href) { + href = text.href; + text = text.text; + continue; + } + if (href) text = '' + text + ''; + if (style) text = '' + text + ''; + return text; + } + } + + var count = 0; + function guid(_) { return count++ } + + function copy(r) { + var o = {}; + for (var i in r) { o[i] = r[i]; } + return o; + } + + function remove(x,r) { + var o = copy(r); + if (x in o._) { + o[x] = o._[x][0]; + o._[x] = o._[x].slice(1); + if (o._[x].length === 0) { delete o._[x]; } + } else { + delete o[x]; + } + return o; + } + + function replace(kvs,r) { + var o = copy(r); + for (var i = kvs.length; i--; ) { + var kvsi = kvs[i]; + o[kvsi[0]] = kvsi[1]; + } + return o; + } + + function insert(x,v,r) { + var o = copy(r); + if (x in o) o._[x] = [o[x]].concat(x in o._ ? o._[x].slice(0) : []); + o[x] = v; + return o; + } + + function max(a,b) { return a > b ? a : b } + function min(a,b) { return a < b ? a : b } + + function mod(a,b) { + if (b === 0) { + throw new Error("Cannot perform mod 0. Division by zero error."); + } + var r = a % b; + var m = a === 0 ? 0 : (b > 0 ? (a >= 0 ? r : r+b) : -mod(-a,-b)); + + return m === b ? 0 : m; + } + + function htmlHeight(width, rawHtml) { + // create dummy node + var html = rawHtml.html; + var t = document.createElement('div'); + t.innerHTML = html; + if (width > 0) { t.style.width = width + "px"; } + t.style.visibility = "hidden"; + t.style.styleFloat = "left"; + t.style.cssFloat = "left"; + + document.body.appendChild(t); + + // insert interpolated values + var args = rawHtml.args; + var guid = rawHtml.guid; + for (var i = args.length; i--; ) { + var arg = args[i]; + var span = document.getElementById('md-' + guid + '-' + i); + if (arg.isElement) { + span.style.width = arg.props.width + 'px'; + span.style.height = arg.props.height + 'px'; + } else { + span.innerHTML = arg; + } + } + + // get dimensions + var style = window.getComputedStyle(t, null); + var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); + var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); + document.body.removeChild(t); + return Tuple2(w,h); + } + + function getXY(e) { + var posx = 0; + var posy = 0; + if (e.pageX || e.pageY) { + posx = e.pageX; + posy = e.pageY; + } else if (e.clientX || e.clientY) { + posx = e.clientX + document.body.scrollLeft + document.documentElement.scrollLeft; + posy = e.clientY + document.body.scrollTop + document.documentElement.scrollTop; + } + + if (elm.display === ElmRuntime.Display.COMPONENT) { + var rect = elm.node.getBoundingClientRect(); + var relx = rect.left + document.body.scrollLeft + document.documentElement.scrollLeft; + var rely = rect.top + document.body.scrollTop + document.documentElement.scrollTop; + // TODO: figure out if there is a way to avoid rounding here + posx = posx - Math.round(relx) - elm.node.clientLeft; + posy = posy - Math.round(rely) - elm.node.clientTop; + } + return Tuple2(posx, posy); + } + + return elm.Native.Utils.values = { + eq:eq, + cmp:cmp, + compare:F2(compare), + Tuple0:Tuple0, + Tuple2:Tuple2, + chr:chr, + txt:txt, + makeText:makeText, + copy: copy, + remove: remove, + replace: replace, + insert: insert, + guid: guid, + max : F2(max), + min : F2(min), + mod : F2(mod), + htmlHeight: F2(htmlHeight), + getXY: getXY, + toFloat: function(x) { return +x; } + }; +}; +Elm.Native.Graphics.Collage = {}; +Elm.Native.Graphics.Collage.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Graphics = elm.Native.Graphics || {}; + elm.Native.Graphics.Collage = elm.Native.Graphics.Collage || {}; + if (elm.Native.Graphics.Collage.values) return elm.Native.Graphics.Collage.values; + + var newElement = Elm.Graphics.Element.make(elm).newElement; + var C = ElmRuntime.use(ElmRuntime.Render.Collage); + + function collage(w,h,forms) { + return A3(newElement, w, h, { + ctor: 'Custom', + type: 'Collage', + render: C.render, + update: C.update, + model: {w:w, h:h, forms:forms} + }); + } + return elm.Native.Graphics.Collage.values = { collage:F3(collage) }; + +};Elm.Native.Graphics.Input = {}; +Elm.Native.Graphics.Input.make = function(elm) { + elm.Native = elm.Native || {}; + elm.Native.Graphics = elm.Native.Graphics || {}; + elm.Native.Graphics.Input = elm.Native.Graphics.Input || {}; + if (elm.Native.Graphics.Input.values) return elm.Native.Graphics.Input.values; + + var Render = ElmRuntime.use(ElmRuntime.Render.Element); + var newNode = ElmRuntime.use(ElmRuntime.Render.Utils).newElement; + + var toCss = Elm.Native.Color.make(elm).toCss; + var Text = Elm.Native.Text.make(elm); + var Signal = Elm.Signal.make(elm); + var newElement = Elm.Graphics.Element.make(elm).newElement; + var JS = Elm.Native.JavaScript.make(elm); + var Utils = Elm.Native.Utils.make(elm); + var Tuple2 = Utils.Tuple2; + + function input(initialValue) { + var signal = Signal.constant(initialValue); + return { _:{}, signal:signal, handle:signal }; + } + + function renderDropDown(signal, values) { + return function(_) { + var entries = JS.fromList(values); + + var drop = newNode('select'); + drop.style.border = '0 solid'; + drop.style.pointerEvents = 'auto'; + for (var i = 0; i < entries.length; ++i) { + var option = newNode('option'); + var name = JS.fromString(entries[i]._0); + option.value = name; + option.innerHTML = name; + drop.appendChild(option); + } + drop.addEventListener('change', function() { + elm.notify(signal.id, entries[drop.selectedIndex]._1); + }); + + var t = drop.cloneNode(true); + t.style.visibility = "hidden"; + + elm.node.appendChild(t); + var style = window.getComputedStyle(t, null); + var w = Math.ceil(style.getPropertyValue("width").slice(0,-2) - 0); + var h = Math.ceil(style.getPropertyValue("height").slice(0,-2) - 0); + elm.node.removeChild(t); + return drop; + }; + } + + function updateDropDown(node, oldModel, newModel) { + } + + function dropDown(signal, values) { + return A3(newElement, 100, 24, { + ctor: 'Custom', + type: 'DropDown', + render: renderDropDown(signal,values), + update: updateDropDown, + model: {} + }); + } + + function renderButton(model) { + var node = newNode('button'); + node.style.display = 'block'; + node.style.pointerEvents = 'auto'; + node.elm_signal = model.signal; + node.elm_value = model.value; + function click() { + elm.notify(node.elm_signal.id, node.elm_value); + } + node.addEventListener('click', click); + node.innerHTML = model.text; + return node; + } + + function updateButton(node, oldModel, newModel) { + node.elm_signal = newModel.signal; + node.elm_value = newModel.value; + var txt = newModel.text; + if (oldModel.text !== txt) node.innerHTML = txt; + } + + function button(signal, value, text) { + return A3(newElement, 100, 40, { + ctor: 'Custom', + type: 'Button', + render: renderButton, + update: updateButton, + model: { signal:signal, value:value, text:JS.fromString(text) } + }); + } + + function renderCustomButton(model) { + var btn = newNode('div'); + btn.style.pointerEvents = 'auto'; + btn.elm_signal = model.signal; + btn.elm_value = model.value; + + btn.elm_up = Render.render(model.up); + btn.elm_hover = Render.render(model.hover); + btn.elm_down = Render.render(model.down); + + function replace(node) { + if (node !== btn.firstChild) { + btn.replaceChild(node, btn.firstChild); + } + } + var overCount = 0; + function over(e) { + if (overCount++ > 0) return; + replace(btn.elm_hover); + } + function out(e) { + if (btn.contains(e.toElement || e.relatedTarget)) return; + overCount = 0; + replace(btn.elm_up); + } + function up() { + replace(btn.elm_hover); + elm.notify(btn.elm_signal.id, btn.elm_value); + } + function down() { + replace(btn.elm_down); + } + btn.addEventListener('mouseover', over); + btn.addEventListener('mouseout' , out); + btn.addEventListener('mousedown', down); + btn.addEventListener('mouseup' , up); + + btn.appendChild(btn.elm_up); + + var clicker = newNode('div'); + clicker.style.width = btn.elm_up.style.width; + clicker.style.height = btn.elm_up.style.height; + clicker.style.position = 'absolute'; + clicker.style.top = 0; + btn.appendChild(clicker); + + return btn; + } + + function updateCustomButton(node, oldModel, newModel) { + var signal = newModel.signal; + node.elm_up.elm_signal = signal; + node.elm_hover.elm_signal = signal; + node.elm_down.elm_signal = signal; + + var value = newModel.value; + node.elm_up.elm_value = value; + node.elm_hover.elm_value = value; + node.elm_down.elm_value = value; + + Render.update(node.elm_up, oldModel.up, newModel.up) + Render.update(node.elm_hover, oldModel.hover, newModel.hover) + Render.update(node.elm_down, oldModel.down, newModel.down) + } + + function max3(a,b,c) { + var ab = a > b ? a : b; + return ab > c ? ab : c; + } + + function customButton(signal, value, up, hover, down) { + return A3(newElement, + max3(up.props.width, hover.props.width, down.props.width), + max3(up.props.height, hover.props.height, down.props.height), + { ctor: 'Custom', + type: 'CustomButton', + render: renderCustomButton, + update: updateCustomButton, + model: { signal:signal, value:value, up:up, hover:hover, down:down } + }); + } + + function renderCheckbox(model) { + var node = newNode('input'); + node.type = 'checkbox'; + node.checked = model.checked; + node.style.display = 'block'; + node.style.pointerEvents = 'auto'; + node.elm_signal = model.signal; + node.elm_handler = model.handler; + function change() { + elm.notify(node.elm_signal.id, node.elm_handler(node.checked)); + } + node.addEventListener('change', change); + return node; + } + + function updateCheckbox(node, oldModel, newModel) { + node.elm_signal = newModel.signal; + node.elm_handler = newModel.handler; + node.checked = newModel.checked; + return true; + } + + function checkbox(signal, handler, checked) { + return A3(newElement, 13, 13, { + ctor: 'Custom', + type: 'CheckBox', + render: renderCheckbox, + update: updateCheckbox, + model: { signal:signal, handler:handler, checked:checked } + }); + } + + function setRange(node, start, end, dir) { + if (node.parentNode) { + node.setSelectionRange(start, end, dir); + } else { + setTimeout(function(){node.setSelectionRange(start, end, dir);}, 0); + } + } + + function updateIfNeeded(css, attribute, latestAttribute) { + if (css[attribute] !== latestAttribute) { + css[attribute] = latestAttribute; + } + } + function cssDimensions(dimensions) { + return dimensions.top + 'px ' + + dimensions.right + 'px ' + + dimensions.bottom + 'px ' + + dimensions.left + 'px'; + } + function updateFieldStyle(css, style) { + updateIfNeeded(css, 'padding', cssDimensions(style.padding)); + + var outline = style.outline; + updateIfNeeded(css, 'border-width', cssDimensions(outline.width)); + updateIfNeeded(css, 'border-color', toCss(outline.color)); + updateIfNeeded(css, 'border-radius', outline.radius + 'px'); + + var highlight = style.highlight; + if (highlight.width === 0) { + css.outline = 'none'; + } else { + updateIfNeeded(css, 'outline-width', highlight.width + 'px'); + updateIfNeeded(css, 'outline-color', toCss(highlight.color)); + } + + var textStyle = style.style; + updateIfNeeded(css, 'color', toCss(textStyle.color)); + if (textStyle.typeface.ctor !== '[]') { + updateIfNeeded(css, 'font-family', Text.toTypefaces(textStyle.typeface)); + } + if (textStyle.height.ctor !== "Nothing") { + updateIfNeeded(css, 'font-size', textStyle.height._0 + 'px'); + } + updateIfNeeded(css, 'font-weight', textStyle.bold ? 'bold' : 'normal'); + updateIfNeeded(css, 'font-style', textStyle.italic ? 'italic' : 'normal'); + if (textStyle.line.ctor !== 'Nothing') { + updateIfNeeded(css, 'text-decoration', Text.toLine(textStyle.line._0)); + } + } + + function renderField(model) { + var field = newNode('input'); + updateFieldStyle(field.style, model.style); + field.style.borderStyle = 'solid'; + field.style.pointerEvents = 'auto'; + + field.type = model.type; + field.placeholder = JS.fromString(model.placeHolder); + field.value = JS.fromString(model.content.string); + + field.elm_signal = model.signal; + field.elm_handler = model.handler; + field.elm_old_value = field.value; + + function inputUpdate(event) { + var curr = field.elm_old_value; + var next = field.value; + if (curr === next) { + return; + } + + var direction = field.selectionDirection === 'forward' ? 'Forward' : 'Backward'; + var start = field.selectionStart; + var end = field.selectionEnd; + field.value = field.elm_old_value; + + elm.notify(field.elm_signal.id, field.elm_handler({ + _:{}, + string: JS.toString(next), + selection: { + _:{}, + start: start, + end: end, + direction: { ctor: direction } + }, + })); + } + + function mouseUpdate(event) { + var direction = field.selectionDirection === 'forward' ? 'Forward' : 'Backward'; + elm.notify(field.elm_signal.id, field.elm_handler({ + _:{}, + string: field.value, + selection: { + _:{}, + start: field.selectionStart, + end: field.selectionEnd, + direction: { ctor: direction } + }, + })); + } + function mousedown(event) { + mouseUpdate(event); + elm.node.addEventListener('mouseup', mouseup); + } + function mouseup(event) { + mouseUpdate(event); + elm.node.removeEventListener('mouseup', mouseup) + } + field.addEventListener('input', inputUpdate); + field.addEventListener('mousedown', mousedown); + field.addEventListener('focus', function() { + field.elm_hasFocus = true; + }); + field.addEventListener('blur', function() { + field.elm_hasFocus = false; + }); + + return field; + } + + function updateField(field, oldModel, newModel) { + if (oldModel.style !== newModel.style) { + updateFieldStyle(field.style, newModel.style); + } + field.elm_signal = newModel.signal; + field.elm_handler = newModel.handler; + + field.type = newModel.type; + field.placeholder = JS.fromString(newModel.placeHolder); + var value = JS.fromString(newModel.content.string); + field.value = value; + field.elm_old_value = value; + if (field.elm_hasFocus) { + var selection = newModel.content.selection; + var direction = selection.direction.ctor === 'Forward' ? 'forward' : 'backward'; + setRange(field, selection.start, selection.end, direction); + } + } + + function mkField(type) { + function field(style, signal, handler, placeHolder, content) { + var padding = style.padding; + var outline = style.outline.width; + var adjustWidth = padding.left + padding.right + outline.left + outline.right; + var adjustHeight = padding.top + padding.bottom + outline.top + outline.bottom; + return A3(newElement, 200, 30, { + ctor: 'Custom', + type: type + 'Field', + adjustWidth: adjustWidth, + adjustHeight: adjustHeight, + render: renderField, + update: updateField, + model: { + signal:signal, + handler:handler, + placeHolder:placeHolder, + content:content, + style:style, + type:type + } + }); + } + return F5(field); + } + + function hoverable(signal, handler, elem) { + function onHover(bool) { + elm.notify(signal.id, handler(bool)); + } + var props = Utils.replace([['hover',onHover]], elem.props); + return { props:props, element:elem.element }; + } + + function clickable(signal, value, elem) { + function onClick(bool) { + elm.notify(signal.id, value); + } + var props = Utils.replace([['click',onClick]], elem.props); + return { props:props, element:elem.element }; + } + + return elm.Native.Graphics.Input.values = { + input:input, + button:F3(button), + customButton:F5(customButton), + checkbox:F3(checkbox), + dropDown:F2(dropDown), + field:mkField('text'), + email:mkField('email'), + password:mkField('password'), + hoverable:F3(hoverable), + clickable:F3(clickable) + }; + +}; +Elm.Native.Http = {}; +Elm.Native.Http.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Http = elm.Native.Http || {}; + if (elm.Native.Http.values) return elm.Native.Http.values; + + var JS = Elm.JavaScript.make(elm); + var List = Elm.List.make(elm); + var Signal = Elm.Signal.make(elm); + + function registerReq(queue,responses) { + return function(req) { + if (req.url.length > 0) { + sendReq(queue,responses,req); + } + }; + } + + function updateQueue(queue,responses) { + if (queue.length > 0) { + elm.notify(responses.id, queue[0].value); + if (queue[0].value.ctor !== 'Waiting') { + queue.shift(); + setTimeout(function() { updateQueue(queue,responses); }, 0); + } + } + } + + function sendReq(queue,responses,req) { + var response = { value: { ctor:'Waiting' } }; + queue.push(response); + + var request = (window.ActiveXObject + ? new ActiveXObject("Microsoft.XMLHTTP") + : new XMLHttpRequest()); + + request.onreadystatechange = function(e) { + if (request.readyState === 4) { + response.value = (request.status >= 200 && request.status < 300 ? + { ctor:'Success', _0:JS.toString(request.responseText) } : + { ctor:'Failure', _0:request.status, _1:JS.toString(request.statusText) }); + setTimeout(function() { updateQueue(queue,responses); }, 0); + } + }; + request.open(JS.fromString(req.verb), JS.fromString(req.url), true); + function setHeader(pair) { + request.setRequestHeader( JS.fromString(pair._0), JS.fromString(pair._1) ); + } + List.map(setHeader)(req.headers); + request.send(JS.fromString(req.body)); + } + + function send(requests) { + var responses = Signal.constant(elm.Http.values.Waiting); + var sender = A2( Signal.lift, registerReq([],responses), requests ); + function f(x) { return function(y) { return x; } } + return A3( Signal.lift2, f, responses, sender ); + } + + return elm.Native.Http.values = { + send:send + }; +}; +Elm.Native.Keyboard = {}; +Elm.Native.Keyboard.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Keyboard = elm.Native.Keyboard || {}; + if (elm.Native.Keyboard.values) return elm.Native.Keyboard.values; + + // Duplicated from Native.Signal + function send(node, timestep, changed) { + var kids = node.kids; + for (var i = kids.length; i--; ) { + kids[i].recv(timestep, changed, node.id); + } + } + + var Signal = Elm.Signal.make(elm); + var NList = Elm.Native.List.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + var downEvents = Signal.constant(0); + var upEvents = Signal.constant(0); + var blurEvents = Signal.constant(0); + + elm.addListener([downEvents.id], document, 'keydown', function down(e) { + elm.notify(downEvents.id, e.keyCode); + }); + + elm.addListener([upEvents.id], document, 'keyup', function up(e) { + elm.notify(upEvents.id, e.keyCode); + }); + + elm.addListener([blurEvents.id], document, 'blur', function blur(e) { + elm.notify(blurEvents.id, NList.Nil); + }); + + function KeyMerge(down, up, blur) { + var args = [down,up,blur]; + this.id = Utils.guid(); + // Ignore starting values here + this.value = NList.Nil + this.kids = []; + + var n = args.length; + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + ++count; + if (changed) { + // We know this a change must only be one of the following cases + if (parentID === down.id && !(NList.member(down.value)(this.value))) { + isChanged = true; + this.value = NList.Cons(down.value, this.value); + } + if (parentID === up.id) { + isChanged = true; + var notEq = function(kc) { return kc !== up.value }; + this.value = NList.filter(notEq)(this.value); + } + if (parentID === blur.id) { + isChanged = true; + this.value = NList.Nil; + } + } + if (count == n) { + send(this, timestep, isChanged); + isChanged = false; + count = 0; + } + }; + + for (var i = n; i--; ) { args[i].kids.push(this); } + + } + + var keysDown = Signal.dropRepeats(new KeyMerge(downEvents,upEvents,blurEvents)); + + function keySignal(f) { + var signal = A2(Signal.lift, f, keysDown); + // must set the default number of kids to make it possible to filter + // these signals if they are not actually used. + keysDown.defaultNumberOfKids += 1; + signal.defaultNumberOfKids = 1; + var filtered = Signal.dropRepeats(signal) + filtered.defaultNumberOfKids = 0; + return filtered; + } + + function dir(up, down, left, right) { + function f(ks) { + var x = 0, y = 0; + while (ks.ctor === "::") { + switch (ks._0) { + case left : --x; break; + case right: ++x; break; + case up : ++y; break; + case down : --y; break; + } + ks = ks._1; + } + return { _:{}, x:x, y:y }; + } + return keySignal(f); + } + + function is(key) { return keySignal(NList.member(key)); } + + var lastPressed = downEvents; + + return elm.Native.Keyboard.values = { + isDown:is, + directions:F4(dir), + keysDown:keysDown, + lastPressed:lastPressed + }; + +}; +Elm.Native.Mouse = {}; +Elm.Native.Mouse.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Mouse = elm.Native.Mouse || {}; + if (elm.Native.Mouse.values) return elm.Native.Mouse.values; + + var Signal = Elm.Signal.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + var position = Signal.constant(Utils.Tuple2(0,0)); + position.defaultNumberOfKids = 2; + + // do not move x and y into Elm. By setting their default number + // of kids, it is possible to detatch the mouse listeners if + // they are not needed. + var x = A2( Signal.lift, function(p){return p._0}, position); + x.defaultNumberOfKids = 0; + var y = A2( Signal.lift, function(p){return p._1}, position); + y.defaultNumberOfKids = 0; + + var isDown = Signal.constant(false); + var clicks = Signal.constant(Utils.Tuple0); + + var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; + + elm.addListener([clicks.id], node, 'click', function click() { + elm.notify(clicks.id, Utils.Tuple0); + }); + elm.addListener([isDown.id], node, 'mousedown', function down() { + elm.notify(isDown.id, true); + }); + elm.addListener([isDown.id], node, 'mouseup', function up() { + elm.notify(isDown.id, false); + }); + elm.addListener([position.id], node, 'mousemove', function move(e) { + elm.notify(position.id, Utils.getXY(e)); + }); + + return elm.Native.Mouse.values = { + position: position, + x:x, + y:y, + isDown: isDown, + clicks: clicks + }; +}; +Elm.Native.Random = {}; +Elm.Native.Random.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Random = elm.Native.Random || {}; + if (elm.Native.Random.values) return elm.Native.Random.values; + + var Signal = Elm.Signal.make(elm); + var List = Elm.Native.List.make(elm); + + function range(min, max, signal) { + function f(x) { return Math.floor(Math.random() * (max-min+1)) + min; } + return A2( Signal.lift, f, signal ); + } + + function float_(signal) { + function f(x) { return Math.random(); } + return A2( Signal.lift, f, signal ); + } + + function floatList(signal) { + function f(n) { + if (n < 0) return List.Nil; + var arr = new Array(n); + for (var i = n; i--; ) { + arr[i] = Math.random(); + } + return List.fromArray(arr); + } + return A2( Signal.lift, f, signal ); + } + + return elm.Native.Random.values = { + range: F3(range), + float_: float_, + floatList: floatList + }; + +}; + +Elm.Native.Signal = {}; +Elm.Native.Signal.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Signal = elm.Native.Signal || {}; + if (elm.Native.Signal.values) return elm.Native.Signal.values; + + var Utils = Elm.Native.Utils.make(elm); + var foldr1 = Elm.List.make(elm).foldr1; + + function send(node, timestep, changed) { + var kids = node.kids; + for (var i = kids.length; i--; ) { + kids[i].recv(timestep, changed, node.id); + } + } + + function Input(base) { + this.id = Utils.guid(); + this.value = base; + this.kids = []; + this.defaultNumberOfKids = 0; + this.recv = function(timestep, eid, v) { + var changed = eid === this.id; + if (changed) { this.value = v; } + send(this, timestep, changed); + return changed; + }; + elm.inputs.push(this); + } + + function LiftN(update, args) { + this.id = Utils.guid(); + this.value = update(); + this.kids = []; + + var n = args.length; + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + ++count; + if (changed) { isChanged = true; } + if (count == n) { + if (isChanged) { this.value = update(); } + send(this, timestep, isChanged); + isChanged = false; + count = 0; + } + }; + for (var i = n; i--; ) { args[i].kids.push(this); } + } + + function lift(func, a) { + function update() { return func(a.value); } + return new LiftN(update, [a]); + } + function lift2(func, a, b) { + function update() { return A2( func, a.value, b.value ); } + return new LiftN(update, [a,b]); + } + function lift3(func, a, b, c) { + function update() { return A3( func, a.value, b.value, c.value ); } + return new LiftN(update, [a,b,c]); + } + function lift4(func, a, b, c, d) { + function update() { return A4( func, a.value, b.value, c.value, d.value ); } + return new LiftN(update, [a,b,c,d]); + } + function lift5(func, a, b, c, d, e) { + function update() { return A5( func, a.value, b.value, c.value, d.value, e.value ); } + return new LiftN(update, [a,b,c,d,e]); + } + function lift6(func, a, b, c, d, e, f) { + function update() { return A6( func, a.value, b.value, c.value, d.value, e.value, f.value ); } + return new LiftN(update, [a,b,c,d,e,f]); + } + function lift7(func, a, b, c, d, e, f, g) { + function update() { return A7( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value ); } + return new LiftN(update, [a,b,c,d,e,f,g]); + } + function lift8(func, a, b, c, d, e, f, g, h) { + function update() { return A8( func, a.value, b.value, c.value, d.value, e.value, f.value, g.value, h.value ); } + return new LiftN(update, [a,b,c,d,e,f,g,h]); + } + + function Foldp(step, state, input) { + this.id = Utils.guid(); + this.value = state; + this.kids = []; + + this.recv = function(timestep, changed, parentID) { + if (changed) { + this.value = A2( step, input.value, this.value ); + } + send(this, timestep, changed); + }; + input.kids.push(this); + } + + function foldp(step, state, input) { + return new Foldp(step, state, input); + } + + function DropIf(pred,base,input) { + this.id = Utils.guid(); + this.value = pred(input.value) ? base : input.value; + this.kids = []; + this.recv = function(timestep, changed, parentID) { + var chng = changed && !pred(input.value); + if (chng) { this.value = input.value; } + send(this, timestep, chng); + }; + input.kids.push(this); + } + + function DropRepeats(input) { + this.id = Utils.guid(); + this.value = input.value; + this.kids = []; + this.recv = function(timestep, changed, parentID) { + var chng = changed && !Utils.eq(this.value,input.value); + if (chng) { this.value = input.value; } + send(this, timestep, chng); + }; + input.kids.push(this); + } + + function timestamp(a) { + function update() { return Utils.Tuple2(Date.now(), a.value); } + return new LiftN(update, [a]); + } + + function SampleOn(s1,s2) { + this.id = Utils.guid(); + this.value = s2.value; + this.kids = []; + + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + if (parentID === s1.id) isChanged = changed; + ++count; + if (count == 2) { + if (isChanged) { this.value = s2.value; } + send(this, timestep, isChanged); + count = 0; + isChanged = false; + } + }; + s1.kids.push(this); + s2.kids.push(this); + } + + function sampleOn(s1,s2) { return new SampleOn(s1,s2); } + + function delay(t,s) { + var delayed = new Input(s.value); + var firstEvent = true; + function update(v) { + if (firstEvent) { firstEvent = false; return; } + setTimeout(function() { elm.notify(delayed.id, v); }, t); + } + function first(a,b) { return a; } + return new SampleOn(delayed, lift2(F2(first), delayed, lift(update,s))); + } + + function Merge(s1,s2) { + this.id = Utils.guid(); + this.value = s1.value; + this.kids = []; + + var next = null; + var count = 0; + var isChanged = false; + + this.recv = function(timestep, changed, parentID) { + ++count; + if (changed) { + isChanged = true; + if (parentID == s2.id && next === null) { next = s2.value; } + if (parentID == s1.id) { next = s1.value; } + } + + if (count == 2) { + if (isChanged) { this.value = next; next = null; } + send(this, timestep, isChanged); + isChanged = false; + count = 0; + } + }; + s1.kids.push(this); + s2.kids.push(this); + } + + function merge(s1,s2) { return new Merge(s1,s2); } + function merges(ss) { return A2(foldr1, F2(merge), ss); } + + return elm.Native.Signal.values = { + constant : function(v) { return new Input(v); }, + lift : F2(lift ), + lift2 : F3(lift2), + lift3 : F4(lift3), + lift4 : F5(lift4), + lift5 : F6(lift5), + lift6 : F7(lift6), + lift7 : F8(lift7), + lift8 : F9(lift8), + foldp : F3(foldp), + delay : F2(delay), + merge : F2(merge), + merges : merges, + count : function(s) { return foldp(F2(function(_,c) { return c+1; }), 0, s); }, + countIf : F2(function(pred,s) { + return foldp(F2(function(x,c){ + return pred(x) ? c+1 : c; }), 0, s)}), + keepIf : F3(function(pred,base,sig) { + return new DropIf(function(x) {return !pred(x);},base,sig); }), + dropIf : F3(function(pred,base,sig) { return new DropIf(pred,base,sig); }), + dropRepeats : function(s) { return new DropRepeats(s);}, + sampleOn : F2(sampleOn), + timestamp : timestamp + }; +}; +Elm.Native.Time = {}; +Elm.Native.Time.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Time = elm.Native.Time || {}; + if (elm.Native.Time.values) return elm.Native.Time.values; + + var Signal = Elm.Signal.make(elm); + var NS = Elm.Native.Signal.make(elm); + var Maybe = Elm.Maybe.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function fpsWhen(desiredFPS, isOn) { + var msPerFrame = 1000 / desiredFPS; + var prev = Date.now(), curr = prev, diff = 0, wasOn = true; + var ticker = Signal.constant(diff); + function tick(zero) { return function() { + curr = Date.now(); + diff = zero ? 0 : curr - prev; + prev = curr; + elm.notify(ticker.id, diff); + }; + } + var timeoutID = 0; + function f(isOn, t) { + if (isOn) { + timeoutID = setTimeout(tick(!wasOn && isOn), msPerFrame); + } else if (wasOn) { + clearTimeout(timeoutID); + } + wasOn = isOn; + return t; + } + return A3( Signal.lift2, F2(f), isOn, ticker ); + } + + function every(t) { + var clock = Signal.constant(Date.now()); + setInterval(function() { + elm.notify(clock.id, Date.now()); + }, t); + return clock; + } + + function since(t, s) { + function cmp(a,b) { return !Utils.eq(a,b); } + var dcount = Signal.count(A2(NS.delay, t, s)); + return A3( Signal.lift2, F2(cmp), Signal.count(s), dcount ); + } + function read(s) { + var t = Date.parse(s); + return isNaN(t) ? Maybe.Nothing : Maybe.Just(t); + } + return elm.Native.Time.values = { + fpsWhen : F2(fpsWhen), + fps : function(t) { return fpsWhen(t, Signal.constant(true)); }, + every : every, + delay : NS.delay, + timestamp : NS.timestamp, + since : F2(since), + toDate : function(t) { return new window.Date(t); }, + read : read + }; + +}; +Elm.Native.Touch = {}; +Elm.Native.Touch.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Touch = elm.Native.Touch || {}; + if (elm.Native.Touch.values) return elm.Native.Touch.values; + + var Signal = Elm.Signal.make(elm); + var JS = Elm.JavaScript.make(elm); + var Utils = Elm.Native.Utils.make(elm); + + function Dict() { + this.keys = []; + this.values = []; + + this.insert = function(key,value) { + this.keys.push(key); + this.values.push(value); + }; + this.lookup = function(key) { + var i = this.keys.indexOf(key) + return i >= 0 ? this.values[i] : {x:0,y:0,t:0}; + }; + this.remove = function(key) { + var i = this.keys.indexOf(key); + if (i < 0) return; + var t = this.values[i]; + this.keys.splice(i,1); + this.values.splice(i,1); + return t; + }; + this.clear = function() { + this.keys = []; + this.values = []; + }; + } + + var root = Signal.constant([]), + tapTime = 500, + hasTap = false, + tap = {_:{},x:0,y:0}, + dict = new Dict(); + + function touch(t) { + var r = dict.lookup(t.identifier); + var point = Utils.getXY(t); + return {_ : {}, + id: t.identifier, + x : point._0, + y : point._1, + x0: r.x, + y0: r.y, + t0: r.t + }; + } + + var node = elm.display === ElmRuntime.Display.FULLSCREEN ? document : elm.node; + + function start(e) { + var point = Utils.getXY(e); + dict.insert(e.identifier, + {x: point._0, + y: point._1, + t: Date.now()}); + } + function end(e) { + var t = dict.remove(e.identifier); + if (Date.now() - t.t < tapTime) { + hasTap = true; + tap = {_:{}, x:t.x, y:t.y}; + } + } + + function listen(name, f) { + function update(e) { + for (var i = e.changedTouches.length; i--; ) { f(e.changedTouches[i]); } + var ts = new Array(e.touches.length); + for (var i = e.touches.length; i--; ) { ts[i] = touch(e.touches[i]); } + elm.notify(root.id, ts); + e.preventDefault(); + } + elm.addListener([root.id], node, name, update); + } + + listen("touchstart", start); + listen("touchmove", function(_){}); + listen("touchend", end); + listen("touchcancel", end); + listen("touchleave", end); + + var mouseID = -1; + function move(e) { + var point = Utils.getXY(e); + for (var i = root.value.length; i--; ) { + if (root.value[i].id === mouseID) { + root.value[i].x = point._0; + root.value[i].y = point._1; + elm.notify(root.id, root.value); + break; + } + } + } + elm.addListener([root.id], node, "mousedown", function down(e) { + node.addEventListener("mousemove", move); + e.identifier = mouseID; + start(e); + root.value.push(touch(e)); + elm.notify(root.id, root.value); + }); + elm.addListener([root.id], node, "mouseup", function up(e) { + node.removeEventListener("mousemove", move); + e.identifier = mouseID; + end(e); + for (var i = root.value.length; i--; ) { + if (root.value[i].id === mouseID) { + root.value.splice(i, 1); + --mouseID; + break; + } + } + elm.notify(root.id, root.value); + }); + elm.addListener([root.id], node, "blur", function blur(e) { + node.removeEventListener("mousemove", move); + if (root.value.length > 0) { + elm.notify(root.id, []); + --mouseID; + } + dict.clear(); + }); + + function dependency(f) { + var sig = A2( Signal.lift, f, root ); + root.defaultNumberOfKids += 1; + sig.defaultNumberOfKids = 0; + return sig; + } + + var touches = dependency(JS.toList); + + var taps = function() { + var sig = dependency(function(_) { return tap; }); + sig.defaultNumberOfKids = 1; + function pred(_) { var b = hasTap; hasTap = false; return b; } + var sig2 = A3( Signal.keepIf, pred, {_:{},x:0,y:0}, sig); + sig2.defaultNumberOfKids = 0; + return sig2; + }(); + + return elm.Native.Touch.values = { touches: touches, taps: taps }; + +};Elm.Native.WebSocket = {}; +Elm.Native.WebSocket.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.WebSocket = elm.Native.WebSocket || {}; + if (elm.Native.WebSocket.values) return elm.Native.WebSocket.values; + + var Signal = Elm.Signal.make(elm); + var JS = Elm.JavaScript.make(elm); + var List = Elm.Native.List.make(elm); + + function open(url, outgoing) { + var incoming = Signal.constant(List.Nil); + var ws = new WebSocket(JS.fromString(url)); + + var pending = []; + var ready = false; + + ws.onopen = function(e) { + var len = pending.length; + for (var i = 0; i < len; ++i) { ws.send(pending[i]); } + ready = true; + }; + ws.onmessage = function(event) { + elm.notify(incoming.id, JS.toString(event.data)); + }; + + function send(msg) { + var s = JS.fromString(msg); + ready ? ws.send(s) : pending.push(s); + } + + function take1(x,y) { return x } + return A3(Signal.lift2, F2(take1), incoming, A2(Signal.lift, send, outgoing)); + } + + return elm.Native.WebSocket.values = { connect: F2(open) }; +}; +Elm.Native.Window = {}; +Elm.Native.Window.make = function(elm) { + + elm.Native = elm.Native || {}; + elm.Native.Window = elm.Native.Window || {}; + if (elm.Native.Window.values) return elm.Native.Window.values; + + var Signal = Elm.Signal.make(elm); + var Tuple2 = Elm.Native.Utils.make(elm).Tuple2; + + function getWidth() { return elm.node.clientWidth; } + function getHeight() { + if (elm.display === ElmRuntime.Display.FULLSCREEN) { + return window.innerHeight; + } + return elm.node.clientHeight; + } + + var dimensions = Signal.constant(Tuple2(getWidth(), getHeight())); + dimensions.defaultNumberOfKids = 2; + + // Do not move width and height into Elm. By setting the default number of kids, + // the resize listener can be detached. + var width = A2(Signal.lift, function(p){return p._0;}, dimensions); + width.defaultNumberOfKids = 0; + + var height = A2(Signal.lift, function(p){return p._1;}, dimensions); + height.defaultNumberOfKids = 0; + + function resizeIfNeeded() { + // Do not trigger event if the dimensions have not changed. + // This should be most of the time. + var w = getWidth(); + var h = getHeight(); + if (dimensions.value._0 === w && dimensions.value._1 === h) return; + + setTimeout(function () { + // Check again to see if the dimensions have changed. + // It is conceivable that the dimensions have changed + // again while some other event was being processed. + var w = getWidth(); + var h = getHeight(); + if (dimensions.value._0 === w && dimensions.value._1 === h) return; + elm.notify(dimensions.id, Tuple2(w,h)); + }, 0); + } + elm.addListener([dimensions.id], window, 'resize', resizeIfNeeded); + + return elm.Native.Window.values = { + dimensions:dimensions, + width:width, + height:height, + resizeIfNeeded:resizeIfNeeded + }; + +}; +Elm.Basics = Elm.Basics || {}; +Elm.Basics.make = function (_elm) { + "use strict"; + _elm.Basics = _elm.Basics || {}; + if (_elm.Basics.values) + return _elm.Basics.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Basics"; + var Native = Native || {}; + Native.Basics = Elm.Native.Basics.make(_elm); + var _op = {}; + var uncurry = F2(function (f, + _v0) { + return function () { + switch (_v0.ctor) + {case "_Tuple2": return A2(f, + _v0._0, + _v0._1);} + _E.Case($moduleName, + "on line 381, column 19 to 24"); + }(); + }); + var curry = F3(function (f, + a, + b) { + return f({ctor: "_Tuple2" + ,_0: a + ,_1: b}); + }); + var flip = F3(function (f,b,a) { + return A2(f,a,b); + }); + var snd = function (_v4) { + return function () { + switch (_v4.ctor) + {case "_Tuple2": return _v4._1;} + _E.Case($moduleName, + "on line 365, column 13 to 14"); + }(); + }; + var fst = function (_v8) { + return function () { + switch (_v8.ctor) + {case "_Tuple2": return _v8._0;} + _E.Case($moduleName, + "on line 361, column 13 to 14"); + }(); + }; + var always = F2(function (a, + _v12) { + return function () { + return a; + }(); + }); + var id = function (x) { + return x; + }; + _op["<|"] = F2(function (f,x) { + return f(x); + }); + _op["|>"] = F2(function (x,f) { + return f(x); + }); + _op["."] = F3(function (f,g,x) { + return f(g(x)); + }); + var isInfinite = Native.Basics.isInfinite; + var isNaN = Native.Basics.isNaN; + var toFloat = Native.Basics.toFloat; + var ceiling = Native.Basics.ceiling; + var floor = Native.Basics.floor; + var truncate = Native.Basics.truncate; + var round = Native.Basics.round; + var otherwise = true; + var not = Native.Basics.not; + var xor = Native.Basics.xor; + _op["||"] = Native.Basics.or; + _op["&&"] = Native.Basics.and; + var max = Native.Basics.max; + var min = Native.Basics.min; + var GT = {ctor: "GT"}; + var EQ = {ctor: "EQ"}; + var LT = {ctor: "LT"}; + var compare = Native.Basics.compare; + _op[">="] = Native.Basics.ge; + _op["<="] = Native.Basics.le; + _op[">"] = Native.Basics.gt; + _op["<"] = Native.Basics.lt; + _op["/="] = Native.Basics.neq; + _op["=="] = Native.Basics.eq; + var e = Native.Basics.e; + var pi = Native.Basics.pi; + var clamp = Native.Basics.clamp; + var logBase = Native.Basics.logBase; + var abs = Native.Basics.abs; + var sqrt = Native.Basics.sqrt; + var atan2 = Native.Basics.atan2; + var atan = Native.Basics.atan; + var asin = Native.Basics.asin; + var acos = Native.Basics.acos; + var tan = Native.Basics.tan; + var sin = Native.Basics.sin; + var cos = Native.Basics.cos; + _op["^"] = Native.Basics.exp; + var mod = Native.Basics.mod; + var rem = Native.Basics.rem; + var div = Native.Basics.div; + _op["/"] = Native.Basics.floatDiv; + _op["*"] = Native.Basics.mul; + _op["-"] = Native.Basics.sub; + _op["+"] = Native.Basics.add; + var toPolar = function (_v14) { + return function () { + switch (_v14.ctor) + {case "_Tuple2": + return {ctor: "_Tuple2" + ,_0: Native.Basics.sqrt(Math.pow(_v14._0, + 2) + Math.pow(_v14._1,2)) + ,_1: A2(Native.Basics.atan2, + _v14._1, + _v14._0)};} + _E.Case($moduleName, + "on line 79, column 18 to 73"); + }(); + }; + var fromPolar = function (_v18) { + return function () { + switch (_v18.ctor) + {case "_Tuple2": + return {ctor: "_Tuple2" + ,_0: _v18._0 * Native.Basics.cos(_v18._1) + ,_1: _v18._0 * Native.Basics.sin(_v18._1)};} + _E.Case($moduleName, + "on line 73, column 20 to 68"); + }(); + }; + var turns = function (r) { + return 2 * Native.Basics.pi * r; + }; + var degrees = function (d) { + return d * Native.Basics.pi / 180; + }; + var radians = function (t) { + return t; + }; + _elm.Basics.values = {_op: _op + ,radians: radians + ,degrees: degrees + ,turns: turns + ,fromPolar: fromPolar + ,toPolar: toPolar + ,div: div + ,rem: rem + ,mod: mod + ,cos: cos + ,sin: sin + ,tan: tan + ,acos: acos + ,asin: asin + ,atan: atan + ,atan2: atan2 + ,sqrt: sqrt + ,abs: abs + ,logBase: logBase + ,clamp: clamp + ,pi: pi + ,e: e + ,compare: compare + ,min: min + ,max: max + ,xor: xor + ,not: not + ,otherwise: otherwise + ,round: round + ,truncate: truncate + ,floor: floor + ,ceiling: ceiling + ,toFloat: toFloat + ,isNaN: isNaN + ,isInfinite: isInfinite + ,id: id + ,always: always + ,fst: fst + ,snd: snd + ,flip: flip + ,curry: curry + ,uncurry: uncurry + ,LT: LT + ,EQ: EQ + ,GT: GT}; + return _elm.Basics.values; +};Elm.Bitwise = Elm.Bitwise || {}; +Elm.Bitwise.make = function (_elm) { + "use strict"; + _elm.Bitwise = _elm.Bitwise || {}; + if (_elm.Bitwise.values) + return _elm.Bitwise.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Bitwise"; + var Native = Native || {}; + Native.Bitwise = Elm.Native.Bitwise.make(_elm); + var _op = {}; + var shiftRightLogical = Native.Bitwise.shiftRightLogical; + var shiftRight = Native.Bitwise.shiftRightArithmatic; + var shiftLeft = Native.Bitwise.shiftLeft; + var complement = Native.Bitwise.complement; + var xor = Native.Bitwise.xor; + var or = Native.Bitwise.or; + var and = Native.Bitwise.and; + _elm.Bitwise.values = {_op: _op + ,and: and + ,or: or + ,xor: xor + ,complement: complement + ,shiftLeft: shiftLeft + ,shiftRight: shiftRight + ,shiftRightLogical: shiftRightLogical}; + return _elm.Bitwise.values; +};Elm.Char = Elm.Char || {}; +Elm.Char.make = function (_elm) { + "use strict"; + _elm.Char = _elm.Char || {}; + if (_elm.Char.values) + return _elm.Char.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Char"; + var Native = Native || {}; + Native.Char = Elm.Native.Char.make(_elm); + var _op = {}; + var fromCode = Native.Char.fromCode; + var toCode = Native.Char.toCode; + var toLocaleLower = Native.Char.toLocaleLower; + var toLocaleUpper = Native.Char.toLocaleUpper; + var toLower = Native.Char.toLower; + var toUpper = Native.Char.toUpper; + var isHexDigit = Native.Char.isHexDigit; + var isOctDigit = Native.Char.isOctDigit; + var isDigit = Native.Char.isDigit; + var isLower = Native.Char.isLower; + var isUpper = Native.Char.isUpper; + _elm.Char.values = {_op: _op + ,isUpper: isUpper + ,isLower: isLower + ,isDigit: isDigit + ,isOctDigit: isOctDigit + ,isHexDigit: isHexDigit + ,toUpper: toUpper + ,toLower: toLower + ,toLocaleUpper: toLocaleUpper + ,toLocaleLower: toLocaleLower + ,toCode: toCode + ,fromCode: fromCode}; + return _elm.Char.values; +};Elm.Color = Elm.Color || {}; +Elm.Color.make = function (_elm) { + "use strict"; + _elm.Color = _elm.Color || {}; + if (_elm.Color.values) + return _elm.Color.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Color"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.Color = Elm.Native.Color.make(_elm); + var _op = {}; + var Radial = F5(function (a, + b, + c, + d, + e) { + return {ctor: "Radial" + ,_0: a + ,_1: b + ,_2: c + ,_3: d + ,_4: e}; + }); + var radial = Radial; + var Linear = F3(function (a, + b, + c) { + return {ctor: "Linear" + ,_0: a + ,_1: b + ,_2: c}; + }); + var linear = Linear; + var hsv = Native.Color.hsv; + var hsva = Native.Color.hsva; + var complement = Native.Color.complement; + var greyscale = function (p) { + return A3(hsv,0,0,1 - p); + }; + var grayscale = function (p) { + return A3(hsv,0,0,1 - p); + }; + var Color = F4(function (a, + b, + c, + d) { + return {ctor: "Color" + ,_0: a + ,_1: b + ,_2: c + ,_3: d}; + }); + var rgba = Color; + var rgb = F3(function (r,g,b) { + return A4(Color,r,g,b,1); + }); + var lightRed = A4(Color, + 239, + 41, + 41, + 1); + var red = A4(Color,204,0,0,1); + var darkRed = A4(Color, + 164, + 0, + 0, + 1); + var lightOrange = A4(Color, + 252, + 175, + 62, + 1); + var orange = A4(Color, + 245, + 121, + 0, + 1); + var darkOrange = A4(Color, + 206, + 92, + 0, + 1); + var lightYellow = A4(Color, + 255, + 233, + 79, + 1); + var yellow = A4(Color, + 237, + 212, + 0, + 1); + var darkYellow = A4(Color, + 196, + 160, + 0, + 1); + var lightGreen = A4(Color, + 138, + 226, + 52, + 1); + var green = A4(Color, + 115, + 210, + 22, + 1); + var darkGreen = A4(Color, + 78, + 154, + 6, + 1); + var lightBlue = A4(Color, + 114, + 159, + 207, + 1); + var blue = A4(Color, + 52, + 101, + 164, + 1); + var darkBlue = A4(Color, + 32, + 74, + 135, + 1); + var lightPurple = A4(Color, + 173, + 127, + 168, + 1); + var purple = A4(Color, + 117, + 80, + 123, + 1); + var darkPurple = A4(Color, + 92, + 53, + 102, + 1); + var lightBrown = A4(Color, + 233, + 185, + 110, + 1); + var brown = A4(Color, + 193, + 125, + 17, + 1); + var darkBrown = A4(Color, + 143, + 89, + 2, + 1); + var black = A4(Color,0,0,0,1); + var white = A4(Color, + 255, + 255, + 255, + 1); + var lightGrey = A4(Color, + 238, + 238, + 236, + 1); + var grey = A4(Color, + 211, + 215, + 207, + 1); + var darkGrey = A4(Color, + 186, + 189, + 182, + 1); + var lightGray = A4(Color, + 238, + 238, + 236, + 1); + var gray = A4(Color, + 211, + 215, + 207, + 1); + var darkGray = A4(Color, + 186, + 189, + 182, + 1); + var lightCharcoal = A4(Color, + 136, + 138, + 133, + 1); + var charcoal = A4(Color, + 85, + 87, + 83, + 1); + var darkCharcoal = A4(Color, + 46, + 52, + 54, + 1); + _elm.Color.values = {_op: _op + ,rgba: rgba + ,rgb: rgb + ,lightRed: lightRed + ,red: red + ,darkRed: darkRed + ,lightOrange: lightOrange + ,orange: orange + ,darkOrange: darkOrange + ,lightYellow: lightYellow + ,yellow: yellow + ,darkYellow: darkYellow + ,lightGreen: lightGreen + ,green: green + ,darkGreen: darkGreen + ,lightBlue: lightBlue + ,blue: blue + ,darkBlue: darkBlue + ,lightPurple: lightPurple + ,purple: purple + ,darkPurple: darkPurple + ,lightBrown: lightBrown + ,brown: brown + ,darkBrown: darkBrown + ,black: black + ,white: white + ,lightGrey: lightGrey + ,grey: grey + ,darkGrey: darkGrey + ,lightGray: lightGray + ,gray: gray + ,darkGray: darkGray + ,lightCharcoal: lightCharcoal + ,charcoal: charcoal + ,darkCharcoal: darkCharcoal + ,grayscale: grayscale + ,greyscale: greyscale + ,complement: complement + ,hsva: hsva + ,hsv: hsv + ,linear: linear + ,radial: radial + ,Color: Color + ,Linear: Linear + ,Radial: Radial}; + return _elm.Color.values; +};Elm.Date = Elm.Date || {}; +Elm.Date.make = function (_elm) { + "use strict"; + _elm.Date = _elm.Date || {}; + if (_elm.Date.values) + return _elm.Date.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Date"; + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Date = Elm.Native.Date.make(_elm); + var Time = Elm.Time.make(_elm); + var _op = {}; + var second = Native.Date.second; + var minute = Native.Date.minute; + var hour = Native.Date.hour; + var dayOfWeek = Native.Date.dayOfWeek; + var day = Native.Date.day; + var month = Native.Date.month; + var year = Native.Date.year; + var fromTime = Native.Date.fromTime; + var toTime = Native.Date.toTime; + var read = Native.Date.read; + var Dec = {ctor: "Dec"}; + var Nov = {ctor: "Nov"}; + var Oct = {ctor: "Oct"}; + var Sep = {ctor: "Sep"}; + var Aug = {ctor: "Aug"}; + var Jul = {ctor: "Jul"}; + var Jun = {ctor: "Jun"}; + var May = {ctor: "May"}; + var Apr = {ctor: "Apr"}; + var Mar = {ctor: "Mar"}; + var Feb = {ctor: "Feb"}; + var Jan = {ctor: "Jan"}; + var Sun = {ctor: "Sun"}; + var Sat = {ctor: "Sat"}; + var Fri = {ctor: "Fri"}; + var Thu = {ctor: "Thu"}; + var Wed = {ctor: "Wed"}; + var Tue = {ctor: "Tue"}; + var Mon = {ctor: "Mon"}; + var Date = {ctor: "Date"}; + _elm.Date.values = {_op: _op + ,read: read + ,toTime: toTime + ,fromTime: fromTime + ,year: year + ,month: month + ,day: day + ,dayOfWeek: dayOfWeek + ,hour: hour + ,minute: minute + ,second: second + ,Date: Date + ,Mon: Mon + ,Tue: Tue + ,Wed: Wed + ,Thu: Thu + ,Fri: Fri + ,Sat: Sat + ,Sun: Sun + ,Jan: Jan + ,Feb: Feb + ,Mar: Mar + ,Apr: Apr + ,May: May + ,Jun: Jun + ,Jul: Jul + ,Aug: Aug + ,Sep: Sep + ,Oct: Oct + ,Nov: Nov + ,Dec: Dec}; + return _elm.Date.values; +};Elm.Debug = Elm.Debug || {}; +Elm.Debug.make = function (_elm) { + "use strict"; + _elm.Debug = _elm.Debug || {}; + if (_elm.Debug.values) + return _elm.Debug.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Debug"; + var Native = Native || {}; + Native.Debug = Elm.Native.Debug.make(_elm); + var _op = {}; + var log = Native.Debug.log; + _elm.Debug.values = {_op: _op + ,log: log}; + return _elm.Debug.values; +};Elm.Dict = Elm.Dict || {}; +Elm.Dict.make = function (_elm) { + "use strict"; + _elm.Dict = _elm.Dict || {}; + if (_elm.Dict.values) + return _elm.Dict.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Dict"; + var Basics = Elm.Basics.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Error = Elm.Native.Error.make(_elm); + var Native = Native || {}; + Native.Utils = Elm.Native.Utils.make(_elm); + var _op = {}; + var Same = {ctor: "Same"}; + var Remove = {ctor: "Remove"}; + var Insert = {ctor: "Insert"}; + var showFlag = function (f) { + return function () { + switch (f.ctor) + {case "Insert": return "Insert"; + case "Remove": return "Remove"; + case "Same": return "Same";} + _E.Case($moduleName, + "between lines 136 and 141"); + }(); + }; + var RBEmpty = function (a) { + return {ctor: "RBEmpty" + ,_0: a}; + }; + var RBNode = F5(function (a, + b, + c, + d, + e) { + return {ctor: "RBNode" + ,_0: a + ,_1: b + ,_2: c + ,_3: d + ,_4: e}; + }); + var max = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + return Native.Error.raise("(max Empty) is not defined"); + case "RBNode": + switch (t._4.ctor) + {case "RBEmpty": + return {ctor: "_Tuple2" + ,_0: t._1 + ,_1: t._2};} + return max(t._4);} + _E.Case($moduleName, + "between lines 82 and 87"); + }(); + }; + var LBBlack = {ctor: "LBBlack"}; + var LBlack = {ctor: "LBlack"}; + var showLColor = function (c) { + return function () { + switch (c.ctor) + {case "LBBlack": + return "LBBlack"; + case "LBlack": return "LBlack";} + _E.Case($moduleName, + "between lines 62 and 64"); + }(); + }; + var empty = RBEmpty(LBlack); + var min = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return Native.Error.raise("(min Empty) is not defined");} + break; + case "RBNode": + switch (t._3.ctor) + {case "RBEmpty": + switch (t._3._0.ctor) + {case "LBlack": + return {ctor: "_Tuple2" + ,_0: t._1 + ,_1: t._2};} + break;} + return min(t._3);} + _E.Case($moduleName, + "between lines 75 and 78"); + }(); + }; + var lookup = F2(function (k,t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return Maybe.Nothing;} + break; + case "RBNode": + return function () { + var _v25 = A2(Native.Utils.compare, + k, + t._1); + switch (_v25.ctor) + {case "EQ": + return Maybe.Just(t._2); + case "GT": return A2(lookup, + k, + t._4); + case "LT": return A2(lookup, + k, + t._3);} + _E.Case($moduleName, + "between lines 93 and 99"); + }();} + _E.Case($moduleName, + "between lines 90 and 99"); + }(); + }); + var member = F2(function (k,t) { + return Maybe.isJust(A2(lookup, + k, + t)); + }); + var findWithDefault = F3(function (base, + k, + t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return base;} + break; + case "RBNode": + return function () { + var _v33 = A2(Native.Utils.compare, + k, + t._1); + switch (_v33.ctor) + {case "EQ": return t._2; + case "GT": + return A3(findWithDefault, + base, + k, + t._4); + case "LT": + return A3(findWithDefault, + base, + k, + t._3);} + _E.Case($moduleName, + "between lines 105 and 110"); + }();} + _E.Case($moduleName, + "between lines 102 and 110"); + }(); + }); + var map = F2(function (f,t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return RBEmpty(LBlack);} + break; + case "RBNode": return A5(RBNode, + t._0, + t._1, + f(t._2), + A2(map,f,t._3), + A2(map,f,t._4));} + _E.Case($moduleName, + "between lines 302 and 307"); + }(); + }); + var foldl = F3(function (f, + acc, + t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return acc;} + break; + case "RBNode": return A3(foldl, + f, + A3(f, + t._1, + t._2, + A3(foldl,f,acc,t._3)), + t._4);} + _E.Case($moduleName, + "between lines 310 and 315"); + }(); + }); + var foldr = F3(function (f, + acc, + t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return acc;} + break; + case "RBNode": return A3(foldr, + f, + A3(f, + t._1, + t._2, + A3(foldr,f,acc,t._4)), + t._3);} + _E.Case($moduleName, + "between lines 318 and 323"); + }(); + }); + var keys = function (t) { + return A3(foldr, + F3(function (k,v,acc) { + return {ctor: "::" + ,_0: k + ,_1: acc}; + }), + _J.toList([]), + t); + }; + var values = function (t) { + return A3(foldr, + F3(function (k,v,acc) { + return {ctor: "::" + ,_0: v + ,_1: acc}; + }), + _J.toList([]), + t); + }; + var toList = function (t) { + return A3(foldr, + F3(function (k,v,acc) { + return {ctor: "::" + ,_0: {ctor: "_Tuple2" + ,_0: k + ,_1: v} + ,_1: acc}; + }), + _J.toList([]), + t); + }; + var NBlack = {ctor: "NBlack"}; + var BBlack = {ctor: "BBlack"}; + var isBBlack = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBBlack": return true;} + break; + case "RBNode": + switch (t._0.ctor) + {case "BBlack": return true;} + break;} + return false; + }(); + }; + var Black = {ctor: "Black"}; + var blackish = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": return true; + case "RBNode": + return _U.eq(t._0, + Black) || _U.eq(t._0,BBlack);} + _E.Case($moduleName, + "between lines 253 and 255"); + }(); + }; + var blacken = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + return RBEmpty(LBlack); + case "RBNode": return A5(RBNode, + Black, + t._1, + t._2, + t._3, + t._4);} + _E.Case($moduleName, + "between lines 289 and 291"); + }(); + }; + var Red = {ctor: "Red"}; + var showNColor = function (c) { + return function () { + switch (c.ctor) + {case "BBlack": return "BBlack"; + case "Black": return "Black"; + case "NBlack": return "NBlack"; + case "Red": return "Red";} + _E.Case($moduleName, + "between lines 51 and 55"); + }(); + }; + var reportRemBug = F4(function (msg, + c, + lgot, + rgot) { + return Native.Error.raise(List.concat(_J.toList(["Internal red-black tree invariant violated, expected " + ,msg + ,"and got" + ,showNColor(c) + ," " + ,lgot + ," " + ,rgot + ,"\nPlease report this bug to https://github.com/evancz/Elm/issues"]))); + }); + var ensureBlackRoot = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": return t;} + break; + case "RBNode": + switch (t._0.ctor) + {case "Black": return t; + case "Red": return A5(RBNode, + Black, + t._1, + t._2, + t._3, + t._4);} + break;} + _E.Case($moduleName, + "between lines 117 and 123"); + }(); + }; + var moreBlack = function (c) { + return function () { + switch (c.ctor) + {case "BBlack": + return Native.Error.raise("Can\'t make a double black node more black!"); + case "Black": return BBlack; + case "NBlack": return Red; + case "Red": return Black;} + _E.Case($moduleName, + "between lines 179 and 183"); + }(); + }; + var lessBlack = function (c) { + return function () { + switch (c.ctor) + {case "BBlack": return Black; + case "Black": return Red; + case "NBlack": + return Native.Error.raise("Can\'t make a negative black node less black!"); + case "Red": return NBlack;} + _E.Case($moduleName, + "between lines 186 and 190"); + }(); + }; + var lessBlackTree = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBBlack": + return RBEmpty(LBlack);} + break; + case "RBNode": return A5(RBNode, + lessBlack(t._0), + t._1, + t._2, + t._3, + t._4);} + _E.Case($moduleName, + "between lines 193 and 195"); + }(); + }; + var redden = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + return Native.Error.raise("can\'t make a Leaf red"); + case "RBNode": return A5(RBNode, + Red, + t._1, + t._2, + t._3, + t._4);} + _E.Case($moduleName, + "between lines 295 and 299"); + }(); + }; + var balance_node = function (t) { + return function () { + var assemble = function (col) { + return function (xk) { + return function (xv) { + return function (yk) { + return function (yv) { + return function (zk) { + return function (zv) { + return function (a) { + return function (b) { + return function (c) { + return function (d) { + return A5(RBNode, + lessBlack(col), + yk, + yv, + A5(RBNode,Black,xk,xv,a,b), + A5(RBNode,Black,zk,zv,c,d)); + }; + }; + }; + }; + }; + }; + }; + }; + }; + }; + }; + return blackish(t) ? function () { + switch (t.ctor) + {case "RBNode": + switch (t._3.ctor) + {case "RBNode": + switch (t._3._0.ctor) + {case "Red": + switch (t._3._3.ctor) + {case "RBNode": + switch (t._3._3._0.ctor) + {case "Red": + return assemble(t._0)(t._3._3._1)(t._3._3._2)(t._3._1)(t._3._2)(t._1)(t._2)(t._3._3._3)(t._3._3._4)(t._3._4)(t._4);} + break;} + switch (t._3._4.ctor) + {case "RBNode": + switch (t._3._4._0.ctor) + {case "Red": + return assemble(t._0)(t._3._1)(t._3._2)(t._3._4._1)(t._3._4._2)(t._1)(t._2)(t._3._3)(t._3._4._3)(t._3._4._4)(t._4);} + break;} + break;} + break;} + switch (t._4.ctor) + {case "RBNode": + switch (t._4._0.ctor) + {case "Red": + switch (t._4._3.ctor) + {case "RBNode": + switch (t._4._3._0.ctor) + {case "Red": + return assemble(t._0)(t._1)(t._2)(t._4._3._1)(t._4._3._2)(t._4._1)(t._4._2)(t._3)(t._4._3._3)(t._4._3._4)(t._4._4);} + break;} + switch (t._4._4.ctor) + {case "RBNode": + switch (t._4._4._0.ctor) + {case "Red": + return assemble(t._0)(t._1)(t._2)(t._4._1)(t._4._2)(t._4._4._1)(t._4._4._2)(t._3)(t._4._3)(t._4._4._3)(t._4._4._4);} + break;} + break;} + break;} + switch (t._0.ctor) + {case "BBlack": + switch (t._4.ctor) + {case "RBNode": + switch (t._4._0.ctor) + {case "NBlack": + switch (t._4._3.ctor) + {case "RBNode": + switch (t._4._3._0.ctor) + {case "Black": + return function () { + switch (t._4._4.ctor) + {case "RBNode": + switch (t._4._4._0.ctor) + {case "Black": + return A5(RBNode, + Black, + t._4._3._1, + t._4._3._2, + A5(RBNode, + Black, + t._1, + t._2, + t._3, + t._4._3._3), + A5(balance, + Black, + t._4._1, + t._4._2, + t._4._3._4, + redden(t._4._4)));} + break;} + return t; + }();} + break;} + break;} + break;} + switch (t._3.ctor) + {case "RBNode": + switch (t._3._0.ctor) + {case "NBlack": + switch (t._3._4.ctor) + {case "RBNode": + switch (t._3._4._0.ctor) + {case "Black": + return function () { + switch (t._3._3.ctor) + {case "RBNode": + switch (t._3._3._0.ctor) + {case "Black": + return A5(RBNode, + Black, + t._3._4._1, + t._3._4._2, + A5(balance, + Black, + t._3._1, + t._3._2, + redden(t._3._3), + t._3._4._3), + A5(RBNode, + Black, + t._1, + t._2, + t._3._4._4, + t._4));} + break;} + return t; + }();} + break;} + break;} + break;} + break;} + break;} + return t; + }() : t; + }(); + }; + var balance = F5(function (c, + k, + v, + l, + r) { + return balance_node(A5(RBNode, + c, + k, + v, + l, + r)); + }); + var bubble = F5(function (c, + k, + v, + l, + r) { + return isBBlack(l) || isBBlack(r) ? A5(balance, + moreBlack(c), + k, + v, + lessBlackTree(l), + lessBlackTree(r)) : A5(RBNode, + c, + k, + v, + l, + r); + }); + var remove_max = F5(function (c, + k, + v, + l, + r) { + return function () { + switch (r.ctor) + {case "RBEmpty": return A3(rem, + c, + l, + r); + case "RBNode": return A5(bubble, + c, + k, + v, + l, + A5(remove_max, + r._0, + r._1, + r._2, + r._3, + r._4));} + _E.Case($moduleName, + "between lines 241 and 244"); + }(); + }); + var rem = F3(function (c,l,r) { + return function () { + var _v175 = {ctor: "_Tuple2" + ,_0: l + ,_1: r}; + switch (_v175.ctor) + {case "_Tuple2": + switch (_v175._0.ctor) + {case "RBEmpty": + switch (_v175._1.ctor) + {case "RBEmpty": + return function () { + switch (c.ctor) + {case "Black": + return RBEmpty(LBBlack); + case "Red": + return RBEmpty(LBlack);} + _E.Case($moduleName, + "between lines 214 and 217"); + }(); + case "RBNode": + return function () { + var _v197 = {ctor: "_Tuple3" + ,_0: c + ,_1: _v175._0._0 + ,_2: _v175._1._0}; + switch (_v197.ctor) + {case "_Tuple3": + switch (_v197._0.ctor) + {case "Black": + switch (_v197._1.ctor) + {case "LBlack": + switch (_v197._2.ctor) + {case "Red": return A5(RBNode, + Black, + _v175._1._1, + _v175._1._2, + _v175._1._3, + _v175._1._4);} + break;} + break;} + break;} + return A4(reportRemBug, + "Black, LBlack, Red", + c, + showLColor(_v175._0._0), + showNColor(_v175._1._0)); + }();} + break; + case "RBNode": + switch (_v175._1.ctor) + {case "RBEmpty": + return function () { + var _v201 = {ctor: "_Tuple3" + ,_0: c + ,_1: _v175._0._0 + ,_2: _v175._1._0}; + switch (_v201.ctor) + {case "_Tuple3": + switch (_v201._0.ctor) + {case "Black": + switch (_v201._1.ctor) + {case "Red": + switch (_v201._2.ctor) + {case "LBlack": + return A5(RBNode, + Black, + _v175._0._1, + _v175._0._2, + _v175._0._3, + _v175._0._4);} + break;} + break;} + break;} + return A4(reportRemBug, + "Black, Red, LBlack", + c, + showNColor(_v175._0._0), + showLColor(_v175._1._0)); + }(); + case "RBNode": + return function () { + var l$ = A5(remove_max, + _v175._0._0, + _v175._0._1, + _v175._0._2, + _v175._0._3, + _v175._0._4); + var r = A5(RBNode, + _v175._1._0, + _v175._1._1, + _v175._1._2, + _v175._1._3, + _v175._1._4); + var l = A5(RBNode, + _v175._0._0, + _v175._0._1, + _v175._0._2, + _v175._0._3, + _v175._0._4); + var $ = max(l), + k = $._0, + v = $._1; + return A5(bubble,c,k,v,l$,r); + }();} + break;} + break;} + _E.Case($moduleName, + "between lines 213 and 231"); + }(); + }); + var update = F3(function (k, + u, + t) { + return function () { + var up = function (t) { + return function () { + switch (t.ctor) + {case "RBEmpty": + switch (t._0.ctor) + {case "LBlack": + return function () { + var _v212 = u(Maybe.Nothing); + switch (_v212.ctor) + {case "Just": + return {ctor: "_Tuple2" + ,_0: Insert + ,_1: A5(RBNode, + Red, + k, + _v212._0, + empty, + empty)}; + case "Nothing": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: empty};} + _E.Case($moduleName, + "between lines 145 and 148"); + }();} + break; + case "RBNode": + return function () { + var _v214 = A2(Native.Utils.compare, + k, + t._1); + switch (_v214.ctor) + {case "EQ": return function () { + var _v215 = u(Maybe.Just(t._2)); + switch (_v215.ctor) + {case "Just": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: A5(RBNode, + t._0, + t._1, + _v215._0, + t._3, + t._4)}; + case "Nothing": + return {ctor: "_Tuple2" + ,_0: Remove + ,_1: A3(rem,t._0,t._3,t._4)};} + _E.Case($moduleName, + "between lines 149 and 152"); + }(); + case "GT": return function () { + var $ = up(t._4), + fl = $._0, + r$ = $._1; + return function () { + switch (fl.ctor) + {case "Insert": + return {ctor: "_Tuple2" + ,_0: Insert + ,_1: A5(balance, + t._0, + t._1, + t._2, + t._3, + r$)}; + case "Remove": + return {ctor: "_Tuple2" + ,_0: Remove + ,_1: A5(bubble, + t._0, + t._1, + t._2, + t._3, + r$)}; + case "Same": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: A5(RBNode, + t._0, + t._1, + t._2, + t._3, + r$)};} + _E.Case($moduleName, + "between lines 158 and 162"); + }(); + }(); + case "LT": return function () { + var $ = up(t._3), + fl = $._0, + l$ = $._1; + return function () { + switch (fl.ctor) + {case "Insert": + return {ctor: "_Tuple2" + ,_0: Insert + ,_1: A5(balance, + t._0, + t._1, + t._2, + l$, + t._4)}; + case "Remove": + return {ctor: "_Tuple2" + ,_0: Remove + ,_1: A5(bubble, + t._0, + t._1, + t._2, + l$, + t._4)}; + case "Same": + return {ctor: "_Tuple2" + ,_0: Same + ,_1: A5(RBNode, + t._0, + t._1, + t._2, + l$, + t._4)};} + _E.Case($moduleName, + "between lines 153 and 157"); + }(); + }();} + _E.Case($moduleName, + "between lines 148 and 162"); + }();} + _E.Case($moduleName, + "between lines 144 and 162"); + }(); + }; + var $ = up(t), + fl = $._0, + t$ = $._1; + return function () { + switch (fl.ctor) + {case "Insert": + return ensureBlackRoot(t$); + case "Remove": + return blacken(t$); + case "Same": return t$;} + _E.Case($moduleName, + "between lines 163 and 168"); + }(); + }(); + }); + var insert = F3(function (k, + v, + t) { + return function () { + var u = function (_v220) { + return function () { + return Maybe.Just(v); + }(); + }; + return A3(update,k,u,t); + }(); + }); + var singleton = F2(function (k, + v) { + return A3(insert, + k, + v, + RBEmpty(LBlack)); + }); + var union = F2(function (t1, + t2) { + return A3(foldl, + insert, + t2, + t1); + }); + var intersect = F2(function (t1, + t2) { + return function () { + var combine = F3(function (k, + v, + t) { + return A2(member, + k, + t2) ? A3(insert,k,v,t) : t; + }); + return A3(foldl, + combine, + empty, + t1); + }(); + }); + var fromList = function (assocs) { + return A3(List.foldl, + F2(function (_v222,d) { + return function () { + switch (_v222.ctor) + {case "_Tuple2": + return A3(insert, + _v222._0, + _v222._1, + d);} + _E.Case($moduleName, + "on line 353, column 43 to 55"); + }(); + }), + empty, + assocs); + }; + var remove = F2(function (k,t) { + return function () { + var u = function (_v226) { + return function () { + return Maybe.Nothing; + }(); + }; + return A3(update,k,u,t); + }(); + }); + var diff = F2(function (t1,t2) { + return A3(foldl, + F3(function (k,v,t) { + return A2(remove,k,t); + }), + t1, + t2); + }); + _elm.Dict.values = {_op: _op + ,empty: empty + ,singleton: singleton + ,insert: insert + ,update: update + ,lookup: lookup + ,findWithDefault: findWithDefault + ,remove: remove + ,member: member + ,foldl: foldl + ,foldr: foldr + ,map: map + ,union: union + ,intersect: intersect + ,diff: diff + ,keys: keys + ,values: values + ,toList: toList + ,fromList: fromList}; + return _elm.Dict.values; +};Elm.Either = Elm.Either || {}; +Elm.Either.make = function (_elm) { + "use strict"; + _elm.Either = _elm.Either || {}; + if (_elm.Either.values) + return _elm.Either.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Either"; + var List = Elm.List.make(_elm); + var _op = {}; + var Right = function (a) { + return {ctor: "Right",_0: a}; + }; + var isRight = function (e) { + return function () { + switch (e.ctor) + {case "Right": return true;} + return false; + }(); + }; + var Left = function (a) { + return {ctor: "Left",_0: a}; + }; + var either = F3(function (f, + g, + e) { + return function () { + switch (e.ctor) + {case "Left": return f(e._0); + case "Right": return g(e._0);} + _E.Case($moduleName, + "on line 37, column 16 to 60"); + }(); + }); + var isLeft = function (e) { + return function () { + switch (e.ctor) + {case "Left": return true;} + return false; + }(); + }; + var consLeft = F2(function (e, + vs) { + return function () { + switch (e.ctor) + {case "Left": return {ctor: "::" + ,_0: e._0 + ,_1: vs}; + case "Right": return vs;} + _E.Case($moduleName, + "between lines 78 and 80"); + }(); + }); + var lefts = function (es) { + return A3(List.foldr, + consLeft, + _J.toList([]), + es); + }; + var consRight = F2(function (e, + vs) { + return function () { + switch (e.ctor) + {case "Left": return vs; + case "Right": return {ctor: "::" + ,_0: e._0 + ,_1: vs};} + _E.Case($moduleName, + "between lines 83 and 85"); + }(); + }); + var rights = function (es) { + return A3(List.foldr, + consRight, + _J.toList([]), + es); + }; + var consEither = F2(function (e, + _v13) { + return function () { + switch (_v13.ctor) + {case "_Tuple2": + return function () { + switch (e.ctor) + {case "Left": + return {ctor: "_Tuple2" + ,_0: {ctor: "::" + ,_0: e._0 + ,_1: _v13._0} + ,_1: _v13._1}; + case "Right": + return {ctor: "_Tuple2" + ,_0: _v13._0 + ,_1: {ctor: "::" + ,_0: e._0 + ,_1: _v13._1}};} + _E.Case($moduleName, + "between lines 88 and 90"); + }();} + _E.Case($moduleName, + "between lines 88 and 90"); + }(); + }); + var partition = function (es) { + return A3(List.foldr, + consEither, + {ctor: "_Tuple2" + ,_0: _J.toList([]) + ,_1: _J.toList([])}, + es); + }; + _elm.Either.values = {_op: _op + ,either: either + ,isLeft: isLeft + ,isRight: isRight + ,lefts: lefts + ,rights: rights + ,partition: partition + ,consLeft: consLeft + ,consRight: consRight + ,consEither: consEither + ,Left: Left + ,Right: Right}; + return _elm.Either.values; +};Elm.Http = Elm.Http || {}; +Elm.Http.make = function (_elm) { + "use strict"; + _elm.Http = _elm.Http || {}; + if (_elm.Http.values) + return _elm.Http.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Http"; + var Native = Native || {}; + Native.Http = Elm.Native.Http.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var send = Native.Http.send; + var Request = F4(function (a, + b, + c, + d) { + return {_: {} + ,body: c + ,headers: d + ,url: b + ,verb: a}; + }); + var request = Request; + var get = function (url) { + return A4(Request, + "GET", + url, + "", + _J.toList([])); + }; + var sendGet = function (reqs) { + return send(A2(Signal.lift, + get, + reqs)); + }; + var post = F2(function (url, + body) { + return A4(Request, + "POST", + url, + body, + _J.toList([])); + }); + var Failure = F2(function (a, + b) { + return {ctor: "Failure" + ,_0: a + ,_1: b}; + }); + var Waiting = {ctor: "Waiting"}; + var Success = function (a) { + return {ctor: "Success" + ,_0: a}; + }; + _elm.Http.values = {_op: _op + ,request: request + ,get: get + ,post: post + ,send: send + ,sendGet: sendGet + ,Success: Success + ,Waiting: Waiting + ,Failure: Failure + ,Request: Request}; + return _elm.Http.values; +};Elm.JavaScript = Elm.JavaScript || {}; +Elm.JavaScript.make = function (_elm) { + "use strict"; + _elm.JavaScript = _elm.JavaScript || {}; + if (_elm.JavaScript.values) + return _elm.JavaScript.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "JavaScript"; + var Native = Native || {}; + Native.JavaScript = Elm.Native.JavaScript.make(_elm); + var _op = {}; + var fromString = Native.JavaScript.fromString; + var fromBool = Native.JavaScript.fromBool; + var fromFloat = Native.JavaScript.fromFloat; + var fromInt = Native.JavaScript.fromInt; + var fromList = Native.JavaScript.fromList; + var toString = Native.JavaScript.toString; + var toBool = Native.JavaScript.toBool; + var toFloat = Native.JavaScript.toFloat; + var toInt = Native.JavaScript.toInt; + var toList = Native.JavaScript.toList; + var JSObject = {ctor: "JSObject"}; + var JSDomNode = {ctor: "JSDomNode"}; + var JSArray = function (a) { + return {ctor: "JSArray" + ,_0: a}; + }; + var JSString = {ctor: "JSString"}; + var JSBool = {ctor: "JSBool"}; + var JSNumber = {ctor: "JSNumber"}; + _elm.JavaScript.values = {_op: _op + ,toList: toList + ,toInt: toInt + ,toFloat: toFloat + ,toBool: toBool + ,toString: toString + ,fromList: fromList + ,fromInt: fromInt + ,fromFloat: fromFloat + ,fromBool: fromBool + ,fromString: fromString + ,JSNumber: JSNumber + ,JSBool: JSBool + ,JSString: JSString + ,JSArray: JSArray + ,JSDomNode: JSDomNode + ,JSObject: JSObject}; + return _elm.JavaScript.values; +};Elm.Json = Elm.Json || {}; +Elm.Json.make = function (_elm) { + "use strict"; + _elm.Json = _elm.Json || {}; + if (_elm.Json.values) + return _elm.Json.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Json"; + var Basics = Elm.Basics.make(_elm); + var Dict = Elm.Dict.make(_elm); + var JavaScript = Elm.JavaScript.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Json = Elm.Native.Json.make(_elm); + var _op = {}; + var toJSObject = Native.Json.toJSObject; + var fromJSObject = Native.Json.fromJSObject; + var fromJSString = Native.Json.fromJSString; + var fromString = function (s) { + return Native.Json.fromJSString(JavaScript.fromString(s)); + }; + var toJSString = Native.Json.toJSString; + var toString = F2(function (sep, + v) { + return JavaScript.toString(A2(Native.Json.toJSString, + sep, + v)); + }); + var Object = function (a) { + return {ctor: "Object" + ,_0: a}; + }; + var Array = function (a) { + return {ctor: "Array",_0: a}; + }; + var Null = {ctor: "Null"}; + var Boolean = function (a) { + return {ctor: "Boolean" + ,_0: a}; + }; + var Number = function (a) { + return {ctor: "Number" + ,_0: a}; + }; + var String = function (a) { + return {ctor: "String" + ,_0: a}; + }; + _elm.Json.values = {_op: _op + ,toString: toString + ,toJSString: toJSString + ,fromString: fromString + ,fromJSString: fromJSString + ,fromJSObject: fromJSObject + ,toJSObject: toJSObject + ,String: String + ,Number: Number + ,Boolean: Boolean + ,Null: Null + ,Array: Array + ,Object: Object}; + return _elm.Json.values; +};Elm.Keyboard = Elm.Keyboard || {}; +Elm.Keyboard.make = function (_elm) { + "use strict"; + _elm.Keyboard = _elm.Keyboard || {}; + if (_elm.Keyboard.values) + return _elm.Keyboard.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Keyboard"; + var Native = Native || {}; + Native.Keyboard = Elm.Native.Keyboard.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var lastPressed = Native.Keyboard.lastPressed; + var keysDown = Native.Keyboard.keysDown; + var isDown = Native.Keyboard.isDown; + var shift = isDown(16); + var ctrl = isDown(17); + var space = isDown(32); + var enter = isDown(13); + var directions = Native.Keyboard.directions; + var arrows = A4(directions, + 38, + 40, + 37, + 39); + var wasd = A4(directions, + 87, + 83, + 65, + 68); + _elm.Keyboard.values = {_op: _op + ,directions: directions + ,arrows: arrows + ,wasd: wasd + ,isDown: isDown + ,shift: shift + ,ctrl: ctrl + ,space: space + ,enter: enter + ,keysDown: keysDown + ,lastPressed: lastPressed}; + return _elm.Keyboard.values; +};Elm.List = Elm.List || {}; +Elm.List.make = function (_elm) { + "use strict"; + _elm.List = _elm.List || {}; + if (_elm.List.values) + return _elm.List.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "List"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.List = Elm.Native.List.make(_elm); + var _op = {}; + var sortWith = Native.List.sortWith; + var sortBy = Native.List.sortBy; + var sort = Native.List.sort; + var repeat = Native.List.repeat; + var drop = Native.List.drop; + var take = Native.List.take; + var join = Native.List.join; + var zipWith = Native.List.zipWith; + var zip = Native.List.zip; + var concat = Native.List.concat; + var any = Native.List.any; + var all = Native.List.all; + var reverse = Native.List.reverse; + var length = Native.List.length; + var filter = Native.List.filter; + var scanl1 = Native.List.scanl1; + var scanl = Native.List.scanl; + var foldr1 = Native.List.foldr1; + var foldl1 = Native.List.foldl1; + var maximum = foldl1(Basics.max); + var minimum = foldl1(Basics.min); + var foldr = Native.List.foldr; + var foldl = Native.List.foldl; + var and = A2(foldl, + F2(function (x,y) { + return x && y; + }), + true); + var or = A2(foldl, + F2(function (x,y) { + return x || y; + }), + false); + var sum = A2(foldl, + F2(function (x,y) { + return x + y; + }), + 0); + var product = A2(foldl, + F2(function (x,y) { + return x * y; + }), + 1); + var map = Native.List.map; + var concatMap = F2(function (f, + list) { + return concat(A2(map, + f, + list)); + }); + var isEmpty = function (xs) { + return function () { + switch (xs.ctor) + {case "[]": return true;} + return false; + }(); + }; + var last = Native.List.last; + var tail = Native.List.tail; + var head = Native.List.head; + _op["++"] = Native.List.append; + _op["::"] = Native.List.cons; + var partition = F2(function (pred, + lst) { + return function () { + switch (lst.ctor) + {case "::": return function () { + var $ = A2(partition, + pred, + lst._1), + bs = $._0, + cs = $._1; + return pred(lst._0) ? {ctor: "_Tuple2" + ,_0: {ctor: "::" + ,_0: lst._0 + ,_1: bs} + ,_1: cs} : {ctor: "_Tuple2" + ,_0: bs + ,_1: {ctor: "::" + ,_0: lst._0 + ,_1: cs}}; + }(); + case "[]": + return {ctor: "_Tuple2" + ,_0: _J.toList([]) + ,_1: _J.toList([])};} + _E.Case($moduleName, + "between lines 169 and 179"); + }(); + }); + var unzip = function (pairs) { + return function () { + switch (pairs.ctor) + {case "::": + switch (pairs._0.ctor) + {case "_Tuple2": + return function () { + var $ = unzip(pairs._1), + xs = $._0, + ys = $._1; + return {ctor: "_Tuple2" + ,_0: {ctor: "::" + ,_0: pairs._0._0 + ,_1: xs} + ,_1: {ctor: "::" + ,_0: pairs._0._1 + ,_1: ys}}; + }();} + break; + case "[]": + return {ctor: "_Tuple2" + ,_0: _J.toList([]) + ,_1: _J.toList([])};} + _E.Case($moduleName, + "between lines 194 and 202"); + }(); + }; + var intersperse = F2(function (sep, + xs) { + return function () { + switch (xs.ctor) + {case "::": switch (xs._1.ctor) + {case "::": return {ctor: "::" + ,_0: xs._0 + ,_1: {ctor: "::" + ,_0: sep + ,_1: A2(intersperse, + sep, + {ctor: "::" + ,_0: xs._1._0 + ,_1: xs._1._1})}}; + case "[]": + return _J.toList([xs._0]);} + break; + case "[]": + return _J.toList([]);} + _E.Case($moduleName, + "between lines 212 and 217"); + }(); + }); + _elm.List.values = {_op: _op + ,head: head + ,tail: tail + ,last: last + ,isEmpty: isEmpty + ,map: map + ,foldl: foldl + ,foldr: foldr + ,foldl1: foldl1 + ,foldr1: foldr1 + ,scanl: scanl + ,scanl1: scanl1 + ,filter: filter + ,length: length + ,reverse: reverse + ,all: all + ,any: any + ,and: and + ,or: or + ,concat: concat + ,concatMap: concatMap + ,sum: sum + ,product: product + ,maximum: maximum + ,minimum: minimum + ,partition: partition + ,zip: zip + ,zipWith: zipWith + ,unzip: unzip + ,join: join + ,intersperse: intersperse + ,take: take + ,drop: drop + ,repeat: repeat + ,sort: sort + ,sortBy: sortBy + ,sortWith: sortWith}; + return _elm.List.values; +};Elm.Maybe = Elm.Maybe || {}; +Elm.Maybe.make = function (_elm) { + "use strict"; + _elm.Maybe = _elm.Maybe || {}; + if (_elm.Maybe.values) + return _elm.Maybe.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Maybe"; + var Basics = Elm.Basics.make(_elm); + var List = Elm.List.make(_elm); + var _op = {}; + var Nothing = {ctor: "Nothing"}; + var Just = function (a) { + return {ctor: "Just",_0: a}; + }; + var maybe = F3(function (b, + f, + m) { + return function () { + switch (m.ctor) + {case "Just": return f(m._0); + case "Nothing": return b;} + _E.Case($moduleName, + "between lines 35 and 44"); + }(); + }); + var isJust = A2(maybe, + false, + function (_v2) { + return function () { + return true; + }(); + }); + var isNothing = function ($) { + return Basics.not(isJust($)); + }; + var cons = F2(function (mx,xs) { + return A3(maybe, + xs, + function (x) { + return {ctor: "::" + ,_0: x + ,_1: xs}; + }, + mx); + }); + var justs = A2(List.foldr, + cons, + _J.toList([])); + _elm.Maybe.values = {_op: _op + ,maybe: maybe + ,isJust: isJust + ,isNothing: isNothing + ,cons: cons + ,justs: justs + ,Just: Just + ,Nothing: Nothing}; + return _elm.Maybe.values; +};Elm.Mouse = Elm.Mouse || {}; +Elm.Mouse.make = function (_elm) { + "use strict"; + _elm.Mouse = _elm.Mouse || {}; + if (_elm.Mouse.values) + return _elm.Mouse.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Mouse"; + var Native = Native || {}; + Native.Mouse = Elm.Native.Mouse.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var clicks = Native.Mouse.clicks; + var isDown = Native.Mouse.isDown; + var y = Native.Mouse.y; + var x = Native.Mouse.x; + var position = Native.Mouse.position; + _elm.Mouse.values = {_op: _op + ,position: position + ,x: x + ,y: y + ,isDown: isDown + ,clicks: clicks}; + return _elm.Mouse.values; +};Elm.Random = Elm.Random || {}; +Elm.Random.make = function (_elm) { + "use strict"; + _elm.Random = _elm.Random || {}; + if (_elm.Random.values) + return _elm.Random.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Random"; + var Native = Native || {}; + Native.Random = Elm.Native.Random.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var floatList = Native.Random.floatList; + var $float = Native.Random.float_; + var range = Native.Random.range; + _elm.Random.values = {_op: _op + ,range: range + ,$float: $float + ,floatList: floatList}; + return _elm.Random.values; +};Elm.Regex = Elm.Regex || {}; +Elm.Regex.make = function (_elm) { + "use strict"; + _elm.Regex = _elm.Regex || {}; + if (_elm.Regex.values) + return _elm.Regex.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Regex"; + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Regex = Elm.Native.Regex.make(_elm); + var _op = {}; + var split = Native.Regex.split; + var replace = Native.Regex.replace; + var find = Native.Regex.find; + var AtMost = function (a) { + return {ctor: "AtMost" + ,_0: a}; + }; + var All = {ctor: "All"}; + var Match = F4(function (a, + b, + c, + d) { + return {_: {} + ,index: c + ,match: a + ,number: d + ,submatches: b}; + }); + var contains = Native.Regex.contains; + var caseInsensitive = Native.Regex.caseInsensitive; + var regex = Native.Regex.regex; + var escape = Native.Regex.escape; + var Regex = {ctor: "Regex"}; + _elm.Regex.values = {_op: _op + ,escape: escape + ,regex: regex + ,caseInsensitive: caseInsensitive + ,contains: contains + ,find: find + ,replace: replace + ,split: split + ,Regex: Regex + ,All: All + ,AtMost: AtMost + ,Match: Match}; + return _elm.Regex.values; +};Elm.Set = Elm.Set || {}; +Elm.Set.make = function (_elm) { + "use strict"; + _elm.Set = _elm.Set || {}; + if (_elm.Set.values) + return _elm.Set.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Set"; + var Dict = Elm.Dict.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var _op = {}; + var foldr = F3(function (f, + b, + s) { + return A3(Dict.foldr, + F3(function (k,_v0,b) { + return function () { + return A2(f,k,b); + }(); + }), + b, + s); + }); + var foldl = F3(function (f, + b, + s) { + return A3(Dict.foldl, + F3(function (k,_v2,b) { + return function () { + return A2(f,k,b); + }(); + }), + b, + s); + }); + var toList = Dict.keys; + var diff = Dict.diff; + var intersect = Dict.intersect; + var union = Dict.union; + var member = Dict.member; + var remove = Dict.remove; + var insert = function (k) { + return A2(Dict.insert, + k, + {ctor: "_Tuple0"}); + }; + var singleton = function (k) { + return A2(Dict.singleton, + k, + {ctor: "_Tuple0"}); + }; + var empty = Dict.empty; + var fromList = function (xs) { + return A3(List.foldl, + insert, + empty, + xs); + }; + var map = F2(function (f,s) { + return fromList(A2(List.map, + f, + toList(s))); + }); + _elm.Set.values = {_op: _op + ,empty: empty + ,singleton: singleton + ,insert: insert + ,remove: remove + ,member: member + ,foldl: foldl + ,foldr: foldr + ,map: map + ,union: union + ,intersect: intersect + ,diff: diff + ,toList: toList + ,fromList: fromList}; + return _elm.Set.values; +};Elm.Signal = Elm.Signal || {}; +Elm.Signal.make = function (_elm) { + "use strict"; + _elm.Signal = _elm.Signal || {}; + if (_elm.Signal.values) + return _elm.Signal.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Signal"; + var Basics = Elm.Basics.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Error = Elm.Native.Error.make(_elm); + var Native = Native || {}; + Native.Signal = Elm.Native.Signal.make(_elm); + var _op = {}; + _op["~"] = F2(function (sf,s) { + return A3(Native.Signal.lift2, + F2(function (f,x) { + return f(x); + }), + sf, + s); + }); + _op["<~"] = F2(function (f,s) { + return A2(Native.Signal.lift, + f, + s); + }); + var sampleOn = Native.Signal.sampleOn; + var dropRepeats = Native.Signal.dropRepeats; + var dropIf = Native.Signal.dropIf; + var keepIf = Native.Signal.keepIf; + var keepWhen = F3(function (bs, + def, + sig) { + return A2(_op["<~"], + Basics.snd, + A3(keepIf, + Basics.fst, + {ctor: "_Tuple2" + ,_0: false + ,_1: def}, + A2(_op["~"], + A2(_op["<~"], + F2(function (v0,v1) { + return {ctor: "_Tuple2" + ,_0: v0 + ,_1: v1}; + }), + A2(sampleOn,sig,bs)), + sig))); + }); + var dropWhen = function (bs) { + return keepWhen(A2(_op["<~"], + Basics.not, + bs)); + }; + var countIf = Native.Signal.countIf; + var count = Native.Signal.count; + var combine = A2(List.foldr, + Native.Signal.lift2(F2(function (x, + y) { + return {ctor: "::" + ,_0: x + ,_1: y}; + })), + Native.Signal.constant(_J.toList([]))); + var merges = Native.Signal.merges; + var merge = Native.Signal.merge; + var foldp = Native.Signal.foldp; + var lift8 = Native.Signal.lift8; + var lift7 = Native.Signal.lift7; + var lift6 = Native.Signal.lift6; + var lift5 = Native.Signal.lift5; + var lift4 = Native.Signal.lift4; + var lift3 = Native.Signal.lift3; + var lift2 = Native.Signal.lift2; + var lift = Native.Signal.lift; + var constant = Native.Signal.constant; + var Signal = {ctor: "Signal"}; + _elm.Signal.values = {_op: _op + ,constant: constant + ,lift: lift + ,lift2: lift2 + ,lift3: lift3 + ,lift4: lift4 + ,lift5: lift5 + ,lift6: lift6 + ,lift7: lift7 + ,lift8: lift8 + ,foldp: foldp + ,merge: merge + ,merges: merges + ,combine: combine + ,count: count + ,countIf: countIf + ,keepIf: keepIf + ,dropIf: dropIf + ,keepWhen: keepWhen + ,dropWhen: dropWhen + ,dropRepeats: dropRepeats + ,sampleOn: sampleOn + ,Signal: Signal}; + return _elm.Signal.values; +};Elm.String = Elm.String || {}; +Elm.String.make = function (_elm) { + "use strict"; + _elm.String = _elm.String || {}; + if (_elm.String.values) + return _elm.String.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "String"; + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Show = Elm.Native.Show.make(_elm); + var Native = Native || {}; + Native.String = Elm.Native.String.make(_elm); + var _op = {}; + var fromList = Native.String.fromList; + var toList = Native.String.toList; + var toFloat = Native.String.toFloat; + var toInt = Native.String.toInt; + var show = Native.Show.show; + var indices = Native.String.indexes; + var indexes = Native.String.indexes; + var endsWith = Native.String.endsWith; + var startsWith = Native.String.startsWith; + var contains = Native.String.contains; + var all = Native.String.all; + var any = Native.String.any; + var toLower = Native.String.toLower; + var toUpper = Native.String.toUpper; + var lines = Native.String.lines; + var words = Native.String.words; + var trimRight = Native.String.trimRight; + var trimLeft = Native.String.trimLeft; + var trim = Native.String.trim; + var padRight = Native.String.padRight; + var padLeft = Native.String.padLeft; + var pad = Native.String.pad; + var dropRight = Native.String.dropRight; + var dropLeft = Native.String.dropLeft; + var right = Native.String.right; + var left = Native.String.left; + var sub = Native.String.sub; + var repeat = Native.String.repeat; + var join = Native.String.join; + var split = Native.String.split; + var foldr = Native.String.foldr; + var foldl = Native.String.foldl; + var reverse = Native.String.reverse; + var filter = Native.String.filter; + var map = Native.String.map; + var length = Native.String.length; + var concat = Native.String.concat; + var append = Native.String.append; + var uncons = Native.String.uncons; + var cons = Native.String.cons; + var isEmpty = Native.String.isEmpty; + _elm.String.values = {_op: _op + ,isEmpty: isEmpty + ,cons: cons + ,uncons: uncons + ,append: append + ,concat: concat + ,length: length + ,map: map + ,filter: filter + ,reverse: reverse + ,foldl: foldl + ,foldr: foldr + ,split: split + ,join: join + ,repeat: repeat + ,sub: sub + ,left: left + ,right: right + ,dropLeft: dropLeft + ,dropRight: dropRight + ,pad: pad + ,padLeft: padLeft + ,padRight: padRight + ,trim: trim + ,trimLeft: trimLeft + ,trimRight: trimRight + ,words: words + ,lines: lines + ,toUpper: toUpper + ,toLower: toLower + ,any: any + ,all: all + ,contains: contains + ,startsWith: startsWith + ,endsWith: endsWith + ,indexes: indexes + ,indices: indices + ,show: show + ,toInt: toInt + ,toFloat: toFloat + ,toList: toList + ,fromList: fromList}; + return _elm.String.values; +};Elm.Text = Elm.Text || {}; +Elm.Text.make = function (_elm) { + "use strict"; + _elm.Text = _elm.Text || {}; + if (_elm.Text.values) + return _elm.Text.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Text"; + var Basics = Elm.Basics.make(_elm); + var Color = Elm.Color.make(_elm); + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var JavaScript = Elm.JavaScript.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Show = Elm.Native.Show.make(_elm); + var Native = Native || {}; + Native.Text = Elm.Native.Text.make(_elm); + var String = Elm.String.make(_elm); + var _op = {}; + var markdown = Native.Text.markdown; + var justified = Native.Text.justified; + var centered = Native.Text.centered; + var rightAligned = Native.Text.rightAligned; + var leftAligned = Native.Text.leftAligned; + var line = Native.Text.line; + var italic = Native.Text.italic; + var bold = Native.Text.bold; + var color = Native.Text.color; + var height = Native.Text.height; + var link = Native.Text.link; + var monospace = Native.Text.monospace; + var typeface = Native.Text.typeface; + var style = Native.Text.style; + var toText = Native.Text.toText; + var plainText = function (str) { + return leftAligned(toText(str)); + }; + var asText = function (value) { + return leftAligned(monospace(toText(Native.Show.show(value)))); + }; + var defaultStyle = {_: {} + ,bold: false + ,color: Color.black + ,height: Maybe.Nothing + ,italic: false + ,line: Maybe.Nothing + ,typeface: _J.toList([])}; + var Style = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,bold: d + ,color: c + ,height: b + ,italic: e + ,line: f + ,typeface: a}; + }); + var Through = {ctor: "Through"}; + var Over = {ctor: "Over"}; + var Under = {ctor: "Under"}; + var Text = {ctor: "Text"}; + _elm.Text.values = {_op: _op + ,defaultStyle: defaultStyle + ,toText: toText + ,style: style + ,typeface: typeface + ,monospace: monospace + ,link: link + ,height: height + ,color: color + ,bold: bold + ,italic: italic + ,line: line + ,leftAligned: leftAligned + ,rightAligned: rightAligned + ,centered: centered + ,justified: justified + ,plainText: plainText + ,markdown: markdown + ,asText: asText + ,Text: Text + ,Under: Under + ,Over: Over + ,Through: Through + ,Style: Style}; + return _elm.Text.values; +};Elm.Time = Elm.Time || {}; +Elm.Time.make = function (_elm) { + "use strict"; + _elm.Time = _elm.Time || {}; + if (_elm.Time.values) + return _elm.Time.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Time"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.Time = Elm.Native.Time.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var delay = Native.Time.delay; + var timestamp = Native.Time.timestamp; + var since = Native.Time.since; + var every = Native.Time.every; + var fpsWhen = Native.Time.fpsWhen; + var fps = Native.Time.fps; + var inMilliseconds = function (t) { + return t; + }; + var millisecond = 1; + var second = 1000 * millisecond; + var minute = 60 * second; + var hour = 60 * minute; + var inHours = function (t) { + return t / hour; + }; + var inMinutes = function (t) { + return t / minute; + }; + var inSeconds = function (t) { + return t / second; + }; + _elm.Time.values = {_op: _op + ,millisecond: millisecond + ,second: second + ,minute: minute + ,hour: hour + ,inMilliseconds: inMilliseconds + ,inSeconds: inSeconds + ,inMinutes: inMinutes + ,inHours: inHours + ,fps: fps + ,fpsWhen: fpsWhen + ,every: every + ,since: since + ,timestamp: timestamp + ,delay: delay}; + return _elm.Time.values; +};Elm.Touch = Elm.Touch || {}; +Elm.Touch.make = function (_elm) { + "use strict"; + _elm.Touch = _elm.Touch || {}; + if (_elm.Touch.values) + return _elm.Touch.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Touch"; + var Native = Native || {}; + Native.Touch = Elm.Native.Touch.make(_elm); + var Signal = Elm.Signal.make(_elm); + var Time = Elm.Time.make(_elm); + var _op = {}; + var taps = Native.Touch.taps; + var touches = Native.Touch.touches; + var Touch = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,id: c + ,t0: f + ,x: a + ,x0: d + ,y: b + ,y0: e}; + }); + _elm.Touch.values = {_op: _op + ,touches: touches + ,taps: taps + ,Touch: Touch}; + return _elm.Touch.values; +};Elm.Trampoline = Elm.Trampoline || {}; +Elm.Trampoline.make = function (_elm) { + "use strict"; + _elm.Trampoline = _elm.Trampoline || {}; + if (_elm.Trampoline.values) + return _elm.Trampoline.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Trampoline"; + var Native = Native || {}; + Native.Trampoline = Elm.Native.Trampoline.make(_elm); + var _op = {}; + var trampoline = Native.Trampoline.trampoline; + var Continue = function (a) { + return {ctor: "Continue" + ,_0: a}; + }; + var Done = function (a) { + return {ctor: "Done",_0: a}; + }; + _elm.Trampoline.values = {_op: _op + ,trampoline: trampoline + ,Done: Done + ,Continue: Continue}; + return _elm.Trampoline.values; +};Elm.Transform2D = Elm.Transform2D || {}; +Elm.Transform2D.make = function (_elm) { + "use strict"; + _elm.Transform2D = _elm.Transform2D || {}; + if (_elm.Transform2D.values) + return _elm.Transform2D.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Transform2D"; + var Native = Native || {}; + Native.Transform2D = Elm.Native.Transform2D.make(_elm); + var _op = {}; + var multiply = Native.Transform2D.multiply; + var rotation = Native.Transform2D.rotation; + var matrix = Native.Transform2D.matrix; + var translation = F2(function (x, + y) { + return A6(matrix, + 1, + 0, + 0, + 1, + x, + y); + }); + var scale = function (s) { + return A6(matrix, + s, + 0, + 0, + s, + 0, + 0); + }; + var scaleX = function (x) { + return A6(matrix, + x, + 0, + 0, + 1, + 0, + 0); + }; + var scaleY = function (y) { + return A6(matrix, + 1, + 0, + 0, + y, + 0, + 0); + }; + var identity = Native.Transform2D.identity; + var Transform2D = {ctor: "Transform2D"}; + _elm.Transform2D.values = {_op: _op + ,identity: identity + ,matrix: matrix + ,rotation: rotation + ,translation: translation + ,scale: scale + ,scaleX: scaleX + ,scaleY: scaleY + ,multiply: multiply + ,Transform2D: Transform2D}; + return _elm.Transform2D.values; +};Elm.WebSocket = Elm.WebSocket || {}; +Elm.WebSocket.make = function (_elm) { + "use strict"; + _elm.WebSocket = _elm.WebSocket || {}; + if (_elm.WebSocket.values) + return _elm.WebSocket.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "WebSocket"; + var Basics = Elm.Basics.make(_elm); + var Native = Native || {}; + Native.WebSocket = Elm.Native.WebSocket.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var connect = Native.WebSocket.connect; + _elm.WebSocket.values = {_op: _op + ,connect: connect}; + return _elm.WebSocket.values; +};Elm.Window = Elm.Window || {}; +Elm.Window.make = function (_elm) { + "use strict"; + _elm.Window = _elm.Window || {}; + if (_elm.Window.values) + return _elm.Window.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Window"; + var Native = Native || {}; + Native.Window = Elm.Native.Window.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var height = Native.Window.height; + var width = Native.Window.width; + var dimensions = Native.Window.dimensions; + _elm.Window.values = {_op: _op + ,dimensions: dimensions + ,width: width + ,height: height}; + return _elm.Window.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Collage = Elm.Graphics.Collage || {}; +Elm.Graphics.Collage.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Collage = _elm.Graphics.Collage || {}; + if (_elm.Graphics.Collage.values) + return _elm.Graphics.Collage.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Graphics.Collage"; + var Basics = Elm.Basics.make(_elm); + var Color = Elm.Color.make(_elm); + var Either = Elm.Either.make(_elm); + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var JavaScript = Elm.JavaScript.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Graphics = Native.Graphics || {}; + Native.Graphics.Collage = Elm.Native.Graphics.Collage.make(_elm); + var Transform2D = Elm.Transform2D.make(_elm); + var _op = {}; + var ngon = F2(function (n,r) { + return function () { + var m = Basics.toFloat(n); + var t = 2 * Basics.pi / m; + var f = function (i) { + return {ctor: "_Tuple2" + ,_0: r * Basics.cos(t * i) + ,_1: r * Basics.sin(t * i)}; + }; + return A2(List.map, + f, + _L.range(0,m - 1)); + }(); + }); + var oval = F2(function (w,h) { + return function () { + var hh = h / 2; + var hw = w / 2; + var n = 50; + var t = 2 * Basics.pi / n; + var f = function (i) { + return {ctor: "_Tuple2" + ,_0: hw * Basics.cos(t * i) + ,_1: hh * Basics.sin(t * i)}; + }; + return A2(List.map, + f, + _L.range(0,n - 1)); + }(); + }); + var circle = function (r) { + return A2(oval,2 * r,2 * r); + }; + var rect = F2(function (w,h) { + return function () { + var hh = h / 2; + var hw = w / 2; + return _J.toList([{ctor: "_Tuple2" + ,_0: 0 - hw + ,_1: 0 - hh} + ,{ctor: "_Tuple2" + ,_0: 0 - hw + ,_1: hh} + ,{ctor: "_Tuple2",_0: hw,_1: hh} + ,{ctor: "_Tuple2" + ,_0: hw + ,_1: 0 - hh}]); + }(); + }); + var square = function (n) { + return A2(rect,n,n); + }; + var polygon = function (points) { + return points; + }; + var segment = F2(function (p1, + p2) { + return _J.toList([p1,p2]); + }); + var path = function (ps) { + return ps; + }; + var collage = Native.Graphics.Collage.collage; + var alpha = F2(function (a,f) { + return _U.replace([["alpha" + ,a]], + f); + }); + var rotate = F2(function (t,f) { + return _U.replace([["theta" + ,f.theta + t]], + f); + }); + var scale = F2(function (s,f) { + return _U.replace([["scale" + ,f.scale * s]], + f); + }); + var moveY = F2(function (y,f) { + return _U.replace([["y" + ,f.y + y]], + f); + }); + var moveX = F2(function (x,f) { + return _U.replace([["x" + ,f.x + x]], + f); + }); + var move = F2(function (_v0,f) { + return function () { + switch (_v0.ctor) + {case "_Tuple2": + return _U.replace([["x" + ,f.x + _v0._0] + ,["y",f.y + _v0._1]], + f);} + _E.Case($moduleName, + "on line 170, column 20 to 48"); + }(); + }); + var form = function (f) { + return {_: {} + ,alpha: 1 + ,form: f + ,scale: 1 + ,theta: 0 + ,x: 0 + ,y: 0}; + }; + var FGroup = F2(function (a,b) { + return {ctor: "FGroup" + ,_0: a + ,_1: b}; + }); + var group = function (fs) { + return form(A2(FGroup, + Transform2D.identity, + fs)); + }; + var groupTransform = F2(function (matrix, + fs) { + return form(A2(FGroup, + matrix, + fs)); + }); + var FElement = function (a) { + return {ctor: "FElement" + ,_0: a}; + }; + var toForm = function (e) { + return form(FElement(e)); + }; + var FImage = F4(function (a, + b, + c, + d) { + return {ctor: "FImage" + ,_0: a + ,_1: b + ,_2: c + ,_3: d}; + }); + var sprite = F4(function (w, + h, + pos, + src) { + return form(A4(FImage, + w, + h, + pos, + src)); + }); + var FShape = F2(function (a,b) { + return {ctor: "FShape" + ,_0: a + ,_1: b}; + }); + var fill = F2(function (style, + shape) { + return form(A2(FShape, + Either.Right(style), + shape)); + }); + var outlined = F2(function (style, + shape) { + return form(A2(FShape, + Either.Left(style), + shape)); + }); + var FPath = F2(function (a,b) { + return {ctor: "FPath" + ,_0: a + ,_1: b}; + }); + var traced = F2(function (style, + path) { + return form(A2(FPath, + style, + path)); + }); + var LineStyle = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,cap: c + ,color: a + ,dashOffset: f + ,dashing: e + ,join: d + ,width: b}; + }); + var Clipped = {ctor: "Clipped"}; + var Sharp = function (a) { + return {ctor: "Sharp",_0: a}; + }; + var Smooth = {ctor: "Smooth"}; + var Padded = {ctor: "Padded"}; + var Round = {ctor: "Round"}; + var Flat = {ctor: "Flat"}; + var defaultLine = {_: {} + ,cap: Flat + ,color: Color.black + ,dashOffset: 0 + ,dashing: _J.toList([]) + ,join: Sharp(10) + ,width: 1}; + var solid = function (clr) { + return _U.replace([["color" + ,clr]], + defaultLine); + }; + var dashed = function (clr) { + return _U.replace([["color" + ,clr] + ,["dashing",_J.toList([8,4])]], + defaultLine); + }; + var dotted = function (clr) { + return _U.replace([["color" + ,clr] + ,["dashing",_J.toList([3,3])]], + defaultLine); + }; + var Grad = function (a) { + return {ctor: "Grad",_0: a}; + }; + var gradient = F2(function (grad, + shape) { + return A2(fill, + Grad(grad), + shape); + }); + var Texture = function (a) { + return {ctor: "Texture" + ,_0: a}; + }; + var textured = F2(function (src, + shape) { + return A2(fill, + Texture(src), + shape); + }); + var Solid = function (a) { + return {ctor: "Solid",_0: a}; + }; + var filled = F2(function (color, + shape) { + return A2(fill, + Solid(color), + shape); + }); + var Form = F6(function (a, + b, + c, + d, + e, + f) { + return {_: {} + ,alpha: e + ,form: f + ,scale: b + ,theta: a + ,x: c + ,y: d}; + }); + _elm.Graphics.Collage.values = {_op: _op + ,defaultLine: defaultLine + ,solid: solid + ,dashed: dashed + ,dotted: dotted + ,form: form + ,fill: fill + ,filled: filled + ,textured: textured + ,gradient: gradient + ,outlined: outlined + ,traced: traced + ,sprite: sprite + ,toForm: toForm + ,group: group + ,groupTransform: groupTransform + ,move: move + ,moveX: moveX + ,moveY: moveY + ,scale: scale + ,rotate: rotate + ,alpha: alpha + ,collage: collage + ,path: path + ,segment: segment + ,polygon: polygon + ,rect: rect + ,square: square + ,oval: oval + ,circle: circle + ,ngon: ngon + ,Solid: Solid + ,Texture: Texture + ,Grad: Grad + ,Flat: Flat + ,Round: Round + ,Padded: Padded + ,Smooth: Smooth + ,Sharp: Sharp + ,Clipped: Clipped + ,FPath: FPath + ,FShape: FShape + ,FImage: FImage + ,FElement: FElement + ,FGroup: FGroup + ,Form: Form + ,LineStyle: LineStyle}; + return _elm.Graphics.Collage.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Element = Elm.Graphics.Element || {}; +Elm.Graphics.Element.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Element = _elm.Graphics.Element || {}; + if (_elm.Graphics.Element.values) + return _elm.Graphics.Element.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Graphics.Element"; + var Basics = Elm.Basics.make(_elm); + var Color = Elm.Color.make(_elm); + var JavaScript = Elm.JavaScript.make(_elm); + var List = Elm.List.make(_elm); + var Maybe = Elm.Maybe.make(_elm); + var Native = Native || {}; + Native.Utils = Elm.Native.Utils.make(_elm); + var _op = {}; + var DOut = {ctor: "DOut"}; + var outward = DOut; + var DIn = {ctor: "DIn"}; + var inward = DIn; + var DRight = {ctor: "DRight"}; + var right = DRight; + var DLeft = {ctor: "DLeft"}; + var left = DLeft; + var DDown = {ctor: "DDown"}; + var down = DDown; + var DUp = {ctor: "DUp"}; + var up = DUp; + var Position = F4(function (a, + b, + c, + d) { + return {_: {} + ,horizontal: a + ,vertical: b + ,x: c + ,y: d}; + }); + var Relative = function (a) { + return {ctor: "Relative" + ,_0: a}; + }; + var relative = Relative; + var Absolute = function (a) { + return {ctor: "Absolute" + ,_0: a}; + }; + var absolute = Absolute; + var N = {ctor: "N"}; + var bottomLeftAt = F2(function (x, + y) { + return {_: {} + ,horizontal: N + ,vertical: N + ,x: x + ,y: y}; + }); + var Z = {ctor: "Z"}; + var middle = {_: {} + ,horizontal: Z + ,vertical: Z + ,x: Relative(0.5) + ,y: Relative(0.5)}; + var midLeft = _U.replace([["horizontal" + ,N] + ,["x",Absolute(0)]], + middle); + var middleAt = F2(function (x, + y) { + return {_: {} + ,horizontal: Z + ,vertical: Z + ,x: x + ,y: y}; + }); + var midLeftAt = F2(function (x, + y) { + return {_: {} + ,horizontal: N + ,vertical: Z + ,x: x + ,y: y}; + }); + var midBottomAt = F2(function (x, + y) { + return {_: {} + ,horizontal: Z + ,vertical: N + ,x: x + ,y: y}; + }); + var P = {ctor: "P"}; + var topLeft = {_: {} + ,horizontal: N + ,vertical: P + ,x: Absolute(0) + ,y: Absolute(0)}; + var bottomLeft = _U.replace([["vertical" + ,N]], + topLeft); + var topRight = _U.replace([["horizontal" + ,P]], + topLeft); + var bottomRight = _U.replace([["horizontal" + ,P]], + bottomLeft); + var midRight = _U.replace([["horizontal" + ,P]], + midLeft); + var midTop = _U.replace([["vertical" + ,P] + ,["y",Absolute(0)]], + middle); + var midBottom = _U.replace([["vertical" + ,N]], + midTop); + var topLeftAt = F2(function (x, + y) { + return {_: {} + ,horizontal: N + ,vertical: P + ,x: x + ,y: y}; + }); + var topRightAt = F2(function (x, + y) { + return {_: {} + ,horizontal: P + ,vertical: P + ,x: x + ,y: y}; + }); + var bottomRightAt = F2(function (x, + y) { + return {_: {} + ,horizontal: P + ,vertical: N + ,x: x + ,y: y}; + }); + var midRightAt = F2(function (x, + y) { + return {_: {} + ,horizontal: P + ,vertical: Z + ,x: x + ,y: y}; + }); + var midTopAt = F2(function (x, + y) { + return {_: {} + ,horizontal: Z + ,vertical: P + ,x: x + ,y: y}; + }); + var Tiled = {ctor: "Tiled"}; + var Cropped = function (a) { + return {ctor: "Cropped" + ,_0: a}; + }; + var Fitted = {ctor: "Fitted"}; + var Plain = {ctor: "Plain"}; + var Custom = {ctor: "Custom"}; + var RawHtml = {ctor: "RawHtml"}; + var Spacer = {ctor: "Spacer"}; + var Flow = F2(function (a,b) { + return {ctor: "Flow" + ,_0: a + ,_1: b}; + }); + var Container = F2(function (a, + b) { + return {ctor: "Container" + ,_0: a + ,_1: b}; + }); + var Image = F4(function (a, + b, + c, + d) { + return {ctor: "Image" + ,_0: a + ,_1: b + ,_2: c + ,_3: d}; + }); + var emptyStr = JavaScript.fromString(""); + var link = F2(function (href, + e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["href" + ,JavaScript.fromString(href)]], + p)}; + }(); + }); + var tag = F2(function (name,e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["tag" + ,JavaScript.fromString(name)]], + p)}; + }(); + }); + var color = F2(function (c,e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["color" + ,Maybe.Just(c)]], + p)}; + }(); + }); + var opacity = F2(function (o, + e) { + return function () { + var p = e.props; + return {_: {} + ,element: e.element + ,props: _U.replace([["opacity" + ,o]], + p)}; + }(); + }); + var height = F2(function (nh, + e) { + return function () { + var p = e.props; + var props = function () { + var _v0 = e.element; + switch (_v0.ctor) + {case "Image": + return _U.replace([["width" + ,Basics.round(Basics.toFloat(_v0._1) / Basics.toFloat(_v0._2) * Basics.toFloat(nh))]], + p);} + return p; + }(); + return {_: {} + ,element: e.element + ,props: _U.replace([["height" + ,nh]], + p)}; + }(); + }); + var width = F2(function (nw,e) { + return function () { + var p = e.props; + var props = function () { + var _v5 = e.element; + switch (_v5.ctor) + {case "Image": + return _U.replace([["height" + ,Basics.round(Basics.toFloat(_v5._2) / Basics.toFloat(_v5._1) * Basics.toFloat(nw))]], + p); + case "RawHtml": + return _U.replace([["height" + ,Basics.snd(A2(Native.Utils.htmlHeight, + nw, + e.element))]], + p);} + return p; + }(); + return {_: {} + ,element: e.element + ,props: _U.replace([["width" + ,nw]], + props)}; + }(); + }); + var size = F3(function (w,h,e) { + return A2(height, + h, + A2(width,w,e)); + }); + var sizeOf = function (e) { + return {ctor: "_Tuple2" + ,_0: e.props.width + ,_1: e.props.height}; + }; + var heightOf = function (e) { + return e.props.height; + }; + var widthOf = function (e) { + return e.props.width; + }; + var Element = F2(function (a, + b) { + return {_: {} + ,element: b + ,props: a}; + }); + var Properties = F9(function (a, + b, + c, + d, + e, + f, + g, + h, + i) { + return {_: {} + ,click: i + ,color: e + ,height: c + ,hover: h + ,href: f + ,id: a + ,opacity: d + ,tag: g + ,width: b}; + }); + var newElement = F3(function (w, + h, + e) { + return {_: {} + ,element: e + ,props: A9(Properties, + Native.Utils.guid({ctor: "_Tuple0"}), + w, + h, + 1, + Maybe.Nothing, + emptyStr, + emptyStr, + {ctor: "_Tuple0"}, + {ctor: "_Tuple0"})}; + }); + var image = F3(function (w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image, + Plain, + w, + h, + JavaScript.fromString(src))); + }); + var fittedImage = F3(function (w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image, + Fitted, + w, + h, + JavaScript.fromString(src))); + }); + var croppedImage = F4(function (pos, + w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image, + Cropped(pos), + w, + h, + JavaScript.fromString(src))); + }); + var tiledImage = F3(function (w, + h, + src) { + return A3(newElement, + w, + h, + A4(Image, + Tiled, + w, + h, + JavaScript.fromString(src))); + }); + var container = F4(function (w, + h, + pos, + e) { + return A3(newElement, + w, + h, + A2(Container,pos,e)); + }); + var spacer = F2(function (w,h) { + return A3(newElement, + w, + h, + Spacer); + }); + var empty = A2(spacer,0,0); + var flow = F2(function (dir, + es) { + return function () { + var newFlow = F2(function (w, + h) { + return A3(newElement, + w, + h, + A2(Flow,dir,es)); + }); + var hs = A2(List.map, + heightOf, + es); + var ws = A2(List.map, + widthOf, + es); + return _U.eq(es, + _J.toList([])) ? empty : function () { + switch (dir.ctor) + {case "DDown": + return A2(newFlow, + List.maximum(ws), + List.sum(hs)); + case "DIn": return A2(newFlow, + List.maximum(ws), + List.maximum(hs)); + case "DLeft": return A2(newFlow, + List.sum(ws), + List.maximum(hs)); + case "DOut": return A2(newFlow, + List.maximum(ws), + List.maximum(hs)); + case "DRight": + return A2(newFlow, + List.sum(ws), + List.maximum(hs)); + case "DUp": return A2(newFlow, + List.maximum(ws), + List.sum(hs));} + _E.Case($moduleName, + "between lines 209 and 219"); + }(); + }(); + }); + var above = F2(function (hi, + lo) { + return A3(newElement, + A2(Basics.max, + widthOf(hi), + widthOf(lo)), + heightOf(hi) + heightOf(lo), + A2(Flow, + DDown, + _J.toList([hi,lo]))); + }); + var below = F2(function (lo, + hi) { + return A3(newElement, + A2(Basics.max, + widthOf(hi), + widthOf(lo)), + heightOf(hi) + heightOf(lo), + A2(Flow, + DDown, + _J.toList([hi,lo]))); + }); + var beside = F2(function (lft, + rht) { + return A3(newElement, + widthOf(lft) + widthOf(rht), + A2(Basics.max, + heightOf(lft), + heightOf(rht)), + A2(Flow, + right, + _J.toList([lft,rht]))); + }); + var layers = function (es) { + return function () { + var hs = A2(List.map, + heightOf, + es); + var ws = A2(List.map, + widthOf, + es); + return A3(newElement, + List.maximum(ws), + List.maximum(hs), + A2(Flow,DOut,es)); + }(); + }; + _elm.Graphics.Element.values = {_op: _op + ,empty: empty + ,widthOf: widthOf + ,heightOf: heightOf + ,sizeOf: sizeOf + ,width: width + ,height: height + ,size: size + ,opacity: opacity + ,color: color + ,tag: tag + ,link: link + ,emptyStr: emptyStr + ,newElement: newElement + ,image: image + ,fittedImage: fittedImage + ,croppedImage: croppedImage + ,tiledImage: tiledImage + ,container: container + ,spacer: spacer + ,flow: flow + ,above: above + ,below: below + ,beside: beside + ,layers: layers + ,absolute: absolute + ,relative: relative + ,middle: middle + ,topLeft: topLeft + ,topRight: topRight + ,bottomLeft: bottomLeft + ,bottomRight: bottomRight + ,midLeft: midLeft + ,midRight: midRight + ,midTop: midTop + ,midBottom: midBottom + ,middleAt: middleAt + ,topLeftAt: topLeftAt + ,topRightAt: topRightAt + ,bottomLeftAt: bottomLeftAt + ,bottomRightAt: bottomRightAt + ,midLeftAt: midLeftAt + ,midRightAt: midRightAt + ,midTopAt: midTopAt + ,midBottomAt: midBottomAt + ,up: up + ,down: down + ,left: left + ,right: right + ,inward: inward + ,outward: outward + ,Image: Image + ,Container: Container + ,Flow: Flow + ,Spacer: Spacer + ,RawHtml: RawHtml + ,Custom: Custom + ,Plain: Plain + ,Fitted: Fitted + ,Cropped: Cropped + ,Tiled: Tiled + ,P: P + ,Z: Z + ,N: N + ,Absolute: Absolute + ,Relative: Relative + ,DUp: DUp + ,DDown: DDown + ,DLeft: DLeft + ,DRight: DRight + ,DIn: DIn + ,DOut: DOut + ,Properties: Properties + ,Element: Element + ,Position: Position}; + return _elm.Graphics.Element.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Input = Elm.Graphics.Input || {}; +Elm.Graphics.Input.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Input = _elm.Graphics.Input || {}; + if (_elm.Graphics.Input.values) + return _elm.Graphics.Input.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Graphics.Input"; + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var Native = Native || {}; + Native.Graphics = Native.Graphics || {}; + Native.Graphics.Input = Elm.Native.Graphics.Input.make(_elm); + var Signal = Elm.Signal.make(_elm); + var _op = {}; + var clickable = Native.Graphics.Input.clickable; + var hoverable = Native.Graphics.Input.hoverable; + var dropDown = Native.Graphics.Input.dropDown; + var checkbox = Native.Graphics.Input.checkbox; + var customButton = Native.Graphics.Input.customButton; + var button = Native.Graphics.Input.button; + var input = Native.Graphics.Input.input; + var Handle = {ctor: "Handle"}; + var Input = F2(function (a,b) { + return {_: {} + ,handle: b + ,signal: a}; + }); + _elm.Graphics.Input.values = {_op: _op + ,input: input + ,button: button + ,customButton: customButton + ,checkbox: checkbox + ,dropDown: dropDown + ,hoverable: hoverable + ,clickable: clickable + ,Handle: Handle + ,Input: Input}; + return _elm.Graphics.Input.values; +};Elm.Graphics = Elm.Graphics || {}; +Elm.Graphics.Input = Elm.Graphics.Input || {}; +Elm.Graphics.Input.Field = Elm.Graphics.Input.Field || {}; +Elm.Graphics.Input.Field.make = function (_elm) { + "use strict"; + _elm.Graphics = _elm.Graphics || {}; + _elm.Graphics.Input = _elm.Graphics.Input || {}; + _elm.Graphics.Input.Field = _elm.Graphics.Input.Field || {}; + if (_elm.Graphics.Input.Field.values) + return _elm.Graphics.Input.Field.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "Graphics.Input.Field"; + var Color = Elm.Color.make(_elm); + var Graphics = Graphics || {}; + Graphics.Element = Elm.Graphics.Element.make(_elm); + var Graphics = Graphics || {}; + Graphics.Input = Elm.Graphics.Input.make(_elm); + var Native = Native || {}; + Native.Graphics = Native.Graphics || {}; + Native.Graphics.Input = Elm.Native.Graphics.Input.make(_elm); + var Text = Elm.Text.make(_elm); + var _op = {}; + var email = Native.Graphics.Input.email; + var password = Native.Graphics.Input.password; + var field = Native.Graphics.Input.field; + var Backward = {ctor: "Backward"}; + var Forward = {ctor: "Forward"}; + var Selection = F3(function (a, + b, + c) { + return {_: {} + ,direction: c + ,end: b + ,start: a}; + }); + var Content = F2(function (a, + b) { + return {_: {} + ,selection: b + ,string: a}; + }); + var noContent = A2(Content, + "", + A3(Selection,0,0,Forward)); + var Style = F4(function (a, + b, + c, + d) { + return {_: {} + ,highlight: c + ,outline: b + ,padding: a + ,style: d}; + }); + var Highlight = F2(function (a, + b) { + return {_: {} + ,color: a + ,width: b}; + }); + var noHighlight = A2(Highlight, + Color.blue, + 0); + var Outline = F3(function (a, + b, + c) { + return {_: {} + ,color: a + ,radius: c + ,width: b}; + }); + var Dimensions = F4(function (a, + b, + c, + d) { + return {_: {} + ,bottom: d + ,left: a + ,right: b + ,top: c}; + }); + var uniformly = function (n) { + return A4(Dimensions, + n, + n, + n, + n); + }; + var noOutline = A3(Outline, + Color.grey, + uniformly(0), + 0); + var defaultStyle = {_: {} + ,highlight: A2(Highlight, + Color.blue, + 1) + ,outline: A3(Outline, + Color.grey, + uniformly(1), + 2) + ,padding: uniformly(4) + ,style: Text.defaultStyle}; + _elm.Graphics.Input.Field.values = {_op: _op + ,uniformly: uniformly + ,noOutline: noOutline + ,noHighlight: noHighlight + ,defaultStyle: defaultStyle + ,noContent: noContent + ,field: field + ,password: password + ,email: email + ,Forward: Forward + ,Backward: Backward + ,Dimensions: Dimensions + ,Outline: Outline + ,Highlight: Highlight + ,Style: Style + ,Content: Content + ,Selection: Selection}; + return _elm.Graphics.Input.Field.values; +};Elm.JavaScript = Elm.JavaScript || {}; +Elm.JavaScript.Experimental = Elm.JavaScript.Experimental || {}; +Elm.JavaScript.Experimental.make = function (_elm) { + "use strict"; + _elm.JavaScript = _elm.JavaScript || {}; + _elm.JavaScript.Experimental = _elm.JavaScript.Experimental || {}; + if (_elm.JavaScript.Experimental.values) + return _elm.JavaScript.Experimental.values; + var _N = Elm.Native, + _U = _N.Utils.make(_elm), + _L = _N.List.make(_elm), + _E = _N.Error.make(_elm), + _J = _N.JavaScript.make(_elm), + $moduleName = "JavaScript.Experimental"; + var JavaScript = Elm.JavaScript.make(_elm); + var Native = Native || {}; + Native.JavaScript = Elm.Native.JavaScript.make(_elm); + var _op = {}; + var fromRecord = Native.JavaScript.fromRecord; + var toRecord = Native.JavaScript.toRecord; + _elm.JavaScript.Experimental.values = {_op: _op + ,toRecord: toRecord + ,fromRecord: fromRecord}; + return _elm.JavaScript.Experimental.values; +};(function() { + +// Returns boolean indicating if the swap was successful. +// Requires that the two signal graphs have exactly the same +// structure. +ElmRuntime.swap = function(from, to) { + function similar(nodeOld,nodeNew) { + var idOkay = nodeOld.id === nodeNew.id; + var lengthOkay = nodeOld.kids.length === nodeNew.kids.length; + return idOkay && lengthOkay; + } + function swap(nodeOld,nodeNew) { + nodeNew.value = nodeOld.value; + return true; + } + var canSwap = depthFirstTraversals(similar, from.inputs, to.inputs); + if (canSwap) { depthFirstTraversals(swap, from.inputs, to.inputs); } + from.node.parentNode.replaceChild(to.node, from.node); + return canSwap; +} + +// Returns false if the node operation f ever fails. +function depthFirstTraversals(f, queueOld, queueNew) { + if (queueOld.length !== queueNew.length) return false; + queueOld = queueOld.slice(0); + queueNew = queueNew.slice(0); + + var seen = []; + while (queueOld.length > 0 && queueNew.length > 0) { + var nodeOld = queueOld.pop(); + var nodeNew = queueNew.pop(); + if (seen.indexOf(nodeOld.id) < 0) { + if (!f(nodeOld, nodeNew)) return false; + queueOld = queueOld.concat(nodeOld.kids); + queueNew = queueNew.concat(nodeNew.kids); + seen.push(nodeOld.id); + } + } + return true; +} + +}()); + +(function() { +'use strict'; + +Elm.fullscreen = function(module, ports) { + var style = document.createElement('style'); + style.type = 'text/css'; + style.innerHTML = "html,head,body { padding:0; margin:0; }" + + "body { font-family: calibri, helvetica, arial, sans-serif; }"; + document.head.appendChild(style); + var container = document.createElement('div'); + document.body.appendChild(container); + return init(ElmRuntime.Display.FULLSCREEN, container, module, ports || {}); +}; + +Elm.embed = function(module, container, ports) { + var tag = container.tagName; + if (tag !== 'DIV') { + throw new Error('Elm.node must be given a DIV, not a ' + tag + '.'); + } else if (container.hasChildNodes()) { + throw new Error('Elm.node must be given an empty DIV. No children allowed!'); + } + return init(ElmRuntime.Display.COMPONENT, container, module, ports || {}); +}; + +Elm.worker = function(module, ports) { + return init(ElmRuntime.Display.NONE, {}, module, ports || {}); +}; + +function init(display, container, module, ports, moduleToReplace) { + // defining state needed for an instance of the Elm RTS + var inputs = []; + + var updateInProgress = false; + function notify(id, v) { + if (updateInProgress) { + throw new Error( + 'The notify function has been called synchronously!\n' + + 'This can lead to frames being dropped.\n' + + 'Definitely report this to \n'); + } + updateInProgress = true; + var timestep = Date.now(); + for (var i = inputs.length; i--; ) { + inputs[i].recv(timestep, id, v); + } + updateInProgress = false; + } + + var listeners = []; + function addListener(relevantInputs, domNode, eventName, func) { + domNode.addEventListener(eventName, func); + var listener = { + relevantInputs: relevantInputs, + domNode: domNode, + eventName: eventName, + func: func + }; + listeners.push(listener); + } + + var portUses = {} + for (var key in ports) { + portUses[key] = 0; + } + // create the actual RTS. Any impure modules will attach themselves to this + // object. This permits many Elm programs to be embedded per document. + var elm = { + notify:notify, + node:container, + display:display, + id:ElmRuntime.guid(), + addListener:addListener, + inputs:inputs, + ports: { incoming:ports, outgoing:{}, uses:portUses } + }; + + function swap(newModule) { + removeListeners(listeners); + var div = document.createElement('div'); + var newElm = init(display, div, newModule, ports, elm); + inputs = []; + // elm.swap = newElm.swap; + return newElm; + } + + var Module = {}; + var reportAnyErrors = function() {}; + try { + Module = module.make(elm); + checkPorts(elm); + } catch(e) { + var directions = "
    Open the developer console for more details." + Module.main = Elm.Text.make(elm).leftAligned('' + e.message + directions + ''); + reportAnyErrors = function() { throw e; } + } + inputs = ElmRuntime.filterDeadInputs(inputs); + filterListeners(inputs, listeners); + addReceivers(elm.ports.outgoing); + if (display !== ElmRuntime.Display.NONE) { + var graphicsNode = initGraphics(elm, Module); + } + if (typeof moduleToReplace !== 'undefined') { + ElmRuntime.swap(moduleToReplace, elm); + + // rerender scene if graphics are enabled. + if (typeof graphicsNode !== 'undefined') { + graphicsNode.recv(0, true, 0); + } + } + + reportAnyErrors(); + return { swap:swap, ports:elm.ports.outgoing }; +}; + +function checkPorts(elm) { + var portUses = elm.ports.uses; + for (var key in portUses) { + var uses = portUses[key] + if (uses === 0) { + throw new Error( + "Initialization Error: provided port '" + key + + "' to a module that does not take it as in input.\n" + + "Remove '" + key + "' from the module initialization code."); + } else if (uses > 1) { + throw new Error( + "Initialization Error: port '" + key + + "' has been declared multiple times in the Elm code.\n" + + "Remove declarations until there is exactly one."); + } + } +} + +function filterListeners(inputs, listeners) { + loop: + for (var i = listeners.length; i--; ) { + var listener = listeners[i]; + for (var j = inputs.length; j--; ) { + if (listener.relevantInputs.indexOf(inputs[j].id) >= 0) { + continue loop; + } + } + listener.domNode.removeEventListener(listener.eventName, listener.func); + } +} + +function removeListeners(listeners) { + for (var i = listeners.length; i--; ) { + var listener = listeners[i]; + listener.domNode.removeEventListener(listener.eventName, listener.func); + } +} + +// add receivers for built-in ports if they are defined +function addReceivers(ports) { + if ('log' in ports) { + ports.log.subscribe(function(v) { console.log(v) }); + } + if ('stdout' in ports) { + var process = process || {}; + var handler = process.stdout + ? function(v) { process.stdout.write(v); } + : function(v) { console.log(v); }; + ports.stdout.subscribe(handler); + } + if ('stderr' in ports) { + var process = process || {}; + var handler = process.stderr + ? function(v) { process.stderr.write(v); } + : function(v) { console.log('Error:' + v); }; + ports.stderr.subscribe(handler); + } + if ('title' in ports) { + if (typeof ports.title === 'string') { + document.title = ports.title; + } else { + ports.title.subscribe(function(v) { document.title = v; }); + } + } + if ('redirect' in ports) { + ports.redirect.subscribe(function(v) { + if (v.length > 0) window.location = v; + }); + } + if ('favicon' in ports) { + if (typeof ports.favicon === 'string') { + changeFavicon(ports.favicon); + } else { + ports.favicon.subscribe(changeFavicon); + } + } + function changeFavicon(src) { + var link = document.createElement('link'); + var oldLink = document.getElementById('elm-favicon'); + link.id = 'elm-favicon'; + link.rel = 'shortcut icon'; + link.href = src; + if (oldLink) { + document.head.removeChild(oldLink); + } + document.head.appendChild(link); + } +} + +function initGraphics(elm, Module) { + if (!('main' in Module)) + throw new Error("'main' is missing! What do I display?!"); + + var signalGraph = Module.main; + + // make sure the signal graph is actually a signal & extract the visual model + var Signal = Elm.Signal.make(elm); + if (!('recv' in signalGraph)) { + signalGraph = Signal.constant(signalGraph); + } + var currentScene = signalGraph.value; + + // Add the currentScene to the DOM + var Render = ElmRuntime.use(ElmRuntime.Render.Element); + elm.node.appendChild(Render.render(currentScene)); + + // set up updates so that the DOM is adjusted as necessary. + var savedScene = currentScene; + function domUpdate(newScene) { + ElmRuntime.draw(function(_) { + Render.update(elm.node.firstChild, savedScene, newScene); + if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); + savedScene = newScene; + }); + } + var renderer = A2(Signal.lift, domUpdate, signalGraph); + + // must check for resize after 'renderer' is created so + // that changes show up. + if (elm.Native.Window) elm.Native.Window.values.resizeIfNeeded(); + + return renderer; +} + +}()); + +(function() { +'use strict'; + +ElmRuntime.Display = { FULLSCREEN: 0, COMPONENT: 1, NONE: 2 }; + +ElmRuntime.counter = 0; +ElmRuntime.guid = function() { return ElmRuntime.counter++; } + +ElmRuntime.use = function(M) { + if (typeof M === 'function') M = M(); + return M; +}; + +function isAlive(input) { + if (!('defaultNumberOfKids' in input)) return true; + var len = input.kids.length; + if (len === 0) return false; + if (len > input.defaultNumberOfKids) return true; + var alive = false; + for (var i = len; i--; ) { + alive = alive || isAlive(input.kids[i]); + } + return alive; +} + +ElmRuntime.filterDeadInputs = function(inputs) { + var temp = []; + for (var i = inputs.length; i--; ) { + if (isAlive(inputs[i])) temp.push(inputs[i]); + } + return temp; +}; + +// define the draw function +var vendors = ['ms', 'moz', 'webkit', 'o']; +var win = typeof window !== 'undefined' ? window : {}; +for (var i = 0; i < vendors.length && !win.requestAnimationFrame; ++i) { + win.requestAnimationFrame = win[vendors[i]+'RequestAnimationFrame']; + win.cancelAnimationFrame = win[vendors[i]+'CancelAnimationFrame'] || + win[vendors[i]+'CancelRequestAnimationFrame']; +} + +if (win.requestAnimationFrame && win.cancelAnimationFrame) { + var previous = 0; + ElmRuntime.draw = function(callback) { + win.cancelAnimationFrame(previous); + previous = win.requestAnimationFrame(callback); + }; +} else { + ElmRuntime.draw = function(callback) { callback(); }; +} + +}()); + +ElmRuntime.Render.Collage = function() { + +var Render = ElmRuntime.use(ElmRuntime.Render.Element); +var Transform = Elm.Transform2D.make({}); +var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); +var newElement = Utils.newElement, + extract = Utils.extract, fromList = Utils.fromList, + fromString = Utils.fromString, addTransform = Utils.addTransform; + +function trace(ctx, path) { + var points = fromList(path); + var i = points.length - 1; + if (i <= 0) return; + ctx.moveTo(points[i]._0, points[i]._1); + while (i--) { ctx.lineTo(points[i]._0, points[i]._1); } + if (path.closed) { + i = points.length - 1; + ctx.lineTo(points[i]._0, points[i]._1); + } +} + +function line(ctx,style,path) { + style.dashing.ctor === 'Nil' ? trace(ctx, path) : customLineHelp(ctx, style, path); + ctx.scale(1,-1); + ctx.stroke(); +} + +function customLineHelp(ctx, style, path) { + var points = fromList(path); + if (path.closed) points.push(points[0]); + var pattern = fromList(style.dashing); + var i = points.length - 1; + if (i <= 0) return; + var x0 = points[i]._0, y0 = points[i]._1; + var x1=0, y1=0, dx=0, dy=0, remaining=0, nx=0, ny=0; + var pindex = 0, plen = pattern.length; + var draw = true, segmentLength = pattern[0]; + ctx.moveTo(x0,y0); + while (i--) { + x1 = points[i]._0; y1 = points[i]._1; + dx = x1 - x0; dy = y1 - y0; + remaining = Math.sqrt(dx * dx + dy * dy); + while (segmentLength <= remaining) { + x0 += dx * segmentLength / remaining; + y0 += dy * segmentLength / remaining; + ctx[draw ? 'lineTo' : 'moveTo'](x0, y0); + // update starting position + dx = x1 - x0; dy = y1 - y0; + remaining = Math.sqrt(dx * dx + dy * dy); + // update pattern + draw = !draw; + pindex = (pindex + 1) % plen; + segmentLength = pattern[pindex]; + } + if (remaining > 0) { + ctx[draw ? 'lineTo' : 'moveTo'](x1, y1); + segmentLength -= remaining; + } + x0 = x1; y0 = y1; + } +} + +function drawLine(ctx, style, path) { + ctx.lineWidth = style.width; + var cap = style.cap.ctor; + ctx.lineCap = cap === 'Flat' ? 'butt' : + cap === 'Round' ? 'round' : 'square'; + var join = style.join.ctor; + ctx.lineJoin = join === 'Smooth' ? 'round' : + join === 'Sharp' ? 'miter' : 'bevel'; + ctx.miterLimit = style.join._0 || 10; + ctx.strokeStyle = extract(style.color); + return line(ctx, style, path); +} + +function texture(redo, ctx, src) { + var img = new Image(); + img.src = fromString(src); + img.onload = redo; + return ctx.createPattern(img, 'repeat'); +} + +function gradient(ctx, grad) { + var g; + var stops = []; + if (grad.ctor === 'Linear') { + var p0 = grad._0, p1 = grad._1; + g = ctx.createLinearGradient(p0._0, -p0._1, p1._0, -p1._1); + stops = fromList(grad._2); + } else { + var p0 = grad._0, p2 = grad._2; + g = ctx.createRadialGradient(p0._0, -p0._1, grad._1, p2._0, -p2._1, grad._3); + stops = fromList(grad._4); + } + var len = stops.length; + for (var i = 0; i < len; ++i) { + var stop = stops[i]; + g.addColorStop(stop._0, extract(stop._1)); + } + return g; +} + +function drawShape(redo, ctx, style, path) { + trace(ctx, path); + var sty = style.ctor; + ctx.fillStyle = + sty === 'Solid' ? extract(style._0) : + sty === 'Texture' ? texture(redo, ctx, style._0) : gradient(ctx, style._0); + ctx.scale(1,-1); + ctx.fill(); +} + +function drawImage(redo, ctx, form) { + var img = new Image(); + img.onload = redo; + img.src = fromString(form._3); + var w = form._0, + h = form._1, + pos = form._2, + srcX = pos._0, + srcY = pos._1, + srcW = w, + srcH = h, + destX = -w/2, + destY = -h/2, + destW = w, + destH = h; + + ctx.scale(1,-1); + ctx.drawImage(img, srcX, srcY, srcW, srcH, destX, destY, destW, destH); +} + +function renderForm(redo, ctx, form) { + ctx.save(); + var x = form.x, y = form.y, theta = form.theta, scale = form.scale; + if (x !== 0 || y !== 0) ctx.translate(x, y); + if (theta !== 0) ctx.rotate(theta); + if (scale !== 1) ctx.scale(scale,scale); + if (form.alpha !== 1) ctx.globalAlpha = ctx.globalAlpha * form.alpha; + ctx.beginPath(); + var f = form.form; + switch(f.ctor) { + case 'FPath' : drawLine(ctx, f._0, f._1); break; + case 'FImage': drawImage(redo, ctx, f); break; + case 'FShape': + if (f._0.ctor === 'Left') { + f._1.closed = true; + drawLine(ctx, f._0._0, f._1); + } else { + drawShape(redo, ctx, f._0._0, f._1); + } + break; + } + ctx.restore(); +} + +function formToMatrix(form) { + var scale = form.scale; + var matrix = A6( Transform.matrix, scale, 0, 0, scale, form.x, form.y ); + + var theta = form.theta + if (theta !== 0) + matrix = A2( Transform.multiply, matrix, Transform.rotation(theta) ); + + return matrix; +} + +function str(n) { + if (n < 0.00001 && n > -0.00001) return 0; + return n; +} + +function makeTransform(w, h, form, matrices) { + var props = form.form._0.props; + var m = A6( Transform.matrix, 1, 0, 0, -1, + (w - props.width ) / 2, + (h - props.height) / 2 ); + var len = matrices.length; + for (var i = 0; i < len; ++i) { m = A2( Transform.multiply, m, matrices[i] ); } + m = A2( Transform.multiply, m, formToMatrix(form) ); + + return 'matrix(' + str( m[0]) + ', ' + str( m[3]) + ', ' + + str(-m[1]) + ', ' + str(-m[4]) + ', ' + + str( m[2]) + ', ' + str( m[5]) + ')'; +} + +function stepperHelp(list) { + var arr = fromList(list); + var i = 0; + function peekNext() { + return i < arr.length ? arr[i].form.ctor : ''; + } + // assumes that there is a next element + function next() { + var out = arr[i]; + ++i; + return out; + } + return { peekNext:peekNext, next:next }; +} + +function formStepper(forms) { + var ps = [stepperHelp(forms)]; + var matrices = []; + var alphas = []; + function peekNext() { + var len = ps.length; + var formType = ''; + for (var i = 0; i < len; ++i ) { + if (formType = ps[i].peekNext()) return formType; + } + return ''; + } + // assumes that there is a next element + function next(ctx) { + while (!ps[0].peekNext()) { + ps.shift(); + matrices.pop(); + alphas.shift(); + if (ctx) { ctx.restore(); } + } + var out = ps[0].next(); + var f = out.form; + if (f.ctor === 'FGroup') { + ps.unshift(stepperHelp(f._1)); + var m = A2(Transform.multiply, f._0, formToMatrix(out)); + ctx.save(); + ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); + matrices.push(m); + + var alpha = (alphas[0] || 1) * out.alpha; + alphas.unshift(alpha); + ctx.globalAlpha = alpha; + } + return out; + } + function transforms() { return matrices; } + function alpha() { return alphas[0] || 1; } + return { peekNext:peekNext, next:next, transforms:transforms, alpha:alpha }; +} + +function makeCanvas(w,h) { + var canvas = newElement('canvas'); + canvas.style.width = w + 'px'; + canvas.style.height = h + 'px'; + canvas.style.display = "block"; + canvas.style.position = "absolute"; + canvas.width = w; + canvas.height = h; + return canvas; +} + +function render(model) { + var div = newElement('div'); + div.style.overflow = 'hidden'; + div.style.position = 'relative'; + update(div, model, model); + return div; +} + +function nodeStepper(w,h,div) { + var kids = div.childNodes; + var i = 0; + function transform(transforms, ctx) { + ctx.translate(w/2, h/2); + ctx.scale(1,-1); + var len = transforms.length; + for (var i = 0; i < len; ++i) { + var m = transforms[i]; + ctx.save(); + ctx.transform(m[0], m[3], m[1], m[4], m[2], m[5]); + } + return ctx; + } + function nextContext(transforms) { + while (i < kids.length) { + var node = kids[i]; + if (node.getContext) { + node.width = w; + node.height = h; + node.style.width = w + 'px'; + node.style.height = h + 'px'; + ++i; + return transform(transforms, node.getContext('2d')); + } + div.removeChild(node); + } + var canvas = makeCanvas(w,h); + div.appendChild(canvas); + // we have added a new node, so we must step our position + ++i; + return transform(transforms, canvas.getContext('2d')); + } + function addElement(matrices, alpha, form) { + var kid = kids[i]; + var elem = form.form._0; + + var node = (!kid || kid.getContext) + ? Render.render(elem) + : (Render.update(kid, kid.oldElement, elem), kids[i]); + + node.style.position = 'absolute'; + node.style.opacity = alpha * form.alpha; + addTransform(node.style, makeTransform(w, h, form, matrices)); + node.oldElement = elem; + ++i; + if (!kid) { + div.appendChild(node); + } else if (kid.getContext) { + div.insertBefore(node, kid); + } + } + function clearRest() { + while (i < kids.length) { + div.removeChild(kids[i]); + } + } + return { nextContext:nextContext, addElement:addElement, clearRest:clearRest }; +} + + +function update(div, _, model) { + var w = model.w; + var h = model.h; + + var forms = formStepper(model.forms); + var nodes = nodeStepper(w,h,div); + var ctx = null; + var formType = ''; + + while (formType = forms.peekNext()) { + // make sure we have context if we need it + if (ctx === null && formType !== 'FElement') { + ctx = nodes.nextContext(forms.transforms()); + ctx.globalAlpha = forms.alpha(); + } + + var form = forms.next(ctx); + // if it is FGroup, all updates are made within formStepper when next is called. + if (formType === 'FElement') { + // update or insert an element, get a new context + nodes.addElement(forms.transforms(), forms.alpha(), form); + ctx = null; + } else if (formType !== 'FGroup') { + renderForm(function() { update(div, model, model); }, ctx, form); + } + } + nodes.clearRest(); + return false; +} + +return { render:render, update:update }; + +}; + +ElmRuntime.Render.Element = function() { +'use strict'; + +var Utils = ElmRuntime.use(ElmRuntime.Render.Utils); +var newElement = Utils.newElement, extract = Utils.extract, + addTransform = Utils.addTransform, removeTransform = Utils.removeTransform, + fromList = Utils.fromList, eq = Utils.eq; + +function setProps(elem, e) { + var props = elem.props; + var element = elem.element; + var width = props.width - (element.adjustWidth || 0); + var height = props.height - (element.adjustHeight || 0); + e.style.width = (width |0) + 'px'; + e.style.height = (height|0) + 'px'; + if (props.opacity !== 1) { + e.style.opacity = props.opacity; + } + if (props.color.ctor === 'Just') { + e.style.backgroundColor = extract(props.color._0); + } + if (props.tag !== '') { e.id = props.tag; } + if (props.href !== '') { + var a = newElement('a'); + a.href = props.href; + a.style.width = '100%'; + a.style.height = '100%'; + a.style.top = 0; + a.style.left = 0; + a.style.display = 'block'; + a.style.position = 'absolute'; + e.style.position = 'relative'; + e.appendChild(a); + } + if (props.hover.ctor !== '_Tuple0') { + addHover(e, props.hover); + } + if (props.click.ctor !== '_Tuple0') { + addClick(e, props.click); + } + return e; +} + +function addClick(e, handler) { + e.style.pointerEvents = 'auto'; + e.elm_click_handler = handler; + function trigger() { + e.elm_click_handler(Utils.Tuple0); + } + e.elm_click_trigger = trigger; + e.addEventListener('click', trigger); +} + +function removeClick(e, handler) { + if (e.elm_click_trigger) { + e.removeEventListener('click', e.elm_click_trigger); + } +} + +function addHover(e, handler) { + e.style.pointerEvents = 'auto'; + e.elm_hover_handler = handler; + e.elm_hover_count = 0; + + function over() { + if (e.elm_hover_count++ > 0) return; + e.elm_hover_handler(true); + } + function out(evt) { + if (e.contains(evt.toElement || evt.relatedTarget)) return; + e.elm_hover_count = 0; + e.elm_hover_handler(false); + } + e.elm_hover_over = over; + e.elm_hover_out = out; + e.addEventListener('mouseover', over); + e.addEventListener('mouseout', out); +} + +function removeHover(e) { + if (e.elm_hover_over) { + e.removeEventListener('mouseover', e.elm_hover_over); + } + if (e.elm_hover_out) { + e.removeEventListener('mouseout', e.elm_hover_out); + } +} + +function image(props, img) { + switch (img._0.ctor) { + case 'Plain': return plainImage(img._3); + case 'Fitted': return fittedImage(props.width, props.height, img._3); + case 'Cropped': return croppedImage(img,props.width,props.height,img._3); + case 'Tiled': return tiledImage(img._3); + } +} + +function plainImage(src) { + var img = newElement('img'); + img.src = src; + img.name = src; + img.style.display = "block"; + return img; +} + +function tiledImage(src) { + var div = newElement('div'); + div.style.backgroundImage = 'url(' + src + ')'; + return div; +} + +function fittedImage(w, h, src) { + var div = newElement('div'); + div.style.background = 'url(' + src + ') no-repeat center'; + div.style.webkitBackgroundSize = 'cover'; + div.style.MozBackgroundSize = 'cover'; + div.style.OBackgroundSize = 'cover'; + div.style.backgroundSize = 'cover'; + return div; +} + +function croppedImage(elem, w, h, src) { + var pos = elem._0._0; + var e = newElement('div'); + e.style.overflow = "hidden"; + + var img = newElement('img'); + img.onload = function() { + var sw = w / elem._1, sh = h / elem._2; + img.style.width = ((this.width * sw)|0) + 'px'; + img.style.height = ((this.height * sh)|0) + 'px'; + img.style.marginLeft = ((- pos._0 * sw)|0) + 'px'; + img.style.marginTop = ((- pos._1 * sh)|0) + 'px'; + }; + img.src = src; + img.name = src; + e.appendChild(img); + return e; +} + +function goIn(e) { e.style.position = 'absolute'; return e; } +function goDown(e) { return e } +function goRight(e) { e.style.styleFloat = e.style.cssFloat = "left"; return e; } +function flowWith(f, array) { + var container = newElement('div'); + if (f == goIn) container.style.pointerEvents = 'none'; + + for (var i = array.length; i--; ) { + container.appendChild(f(render(array[i]))); + } + return container; +} + +function flow(dir,elist) { + var array = fromList(elist); + switch(dir.ctor) { + case "DDown": array.reverse(); + case "DUp": return flowWith(goDown,array); + case "DRight": array.reverse(); + case "DLeft": return flowWith(goRight,array); + case "DOut": array.reverse(); + case "DIn": return flowWith(goIn,array); + } +} + +function toPos(pos) { + switch(pos.ctor) { + case "Absolute": return pos._0 + "px"; + case "Relative": return (pos._0 * 100) + "%"; + } +} + +// must clear right, left, top, bottom, and transform +// before calling this function +function setPos(pos,elem,e) { + var element = elem.element; + var props = elem.props; + var w = props.width + (element.adjustWidth ? element.adjustWidth : 0); + var h = props.height + (element.adjustHeight ? element.adjustHeight : 0); + + e.style.position = 'absolute'; + e.style.margin = 'auto'; + var transform = ''; + switch(pos.horizontal.ctor) { + case 'P': e.style.right = toPos(pos.x); e.style.removeProperty('left'); break; + case 'Z': transform = 'translateX(' + ((-w/2)|0) + 'px) '; + case 'N': e.style.left = toPos(pos.x); e.style.removeProperty('right'); break; + } + switch(pos.vertical.ctor) { + case 'N': e.style.bottom = toPos(pos.y); e.style.removeProperty('top'); break; + case 'Z': transform += 'translateY(' + ((-h/2)|0) + 'px)'; + case 'P': e.style.top = toPos(pos.y); e.style.removeProperty('bottom'); break; + } + if (transform !== '') addTransform(e.style, transform); + return e; +} + +function container(pos,elem) { + var e = render(elem); + setPos(pos, elem, e); + var div = newElement('div'); + div.style.position = 'relative'; + div.style.overflow = 'hidden'; + div.appendChild(e); + return div; +} + +function rawHtml(elem) { + var html = elem.html; + var args = elem.args; + var guid = elem.guid; + var align = elem.align; + + var div = newElement('div'); + div.innerHTML = html; + div.style.visibility = "hidden"; + if (align) div.style.textAlign = align; + document.body.appendChild(div); + + for (var i = args.length; i--; ) { + var arg = args[i]; + var span = document.getElementById('md-' + guid + '-' + i); + if (arg.isText) { + span.innerHTML = arg; + } else { + span.style.display = 'block'; + span.style.width = arg.props.width + 'px'; + span.style.height = arg.props.height + 'px'; + span.appendChild(render(arg)); + } + } + document.body.removeChild(div); + div.style.visibility = 'visible'; + return div; +} + +function render(elem) { return setProps(elem, makeElement(elem)); } +function makeElement(e) { + var elem = e.element; + switch(elem.ctor) { + case 'Image': return image(e.props, elem); + case 'Flow': return flow(elem._0, elem._1); + case 'Container': return container(elem._0, elem._1); + case 'Spacer': return newElement('div'); + case 'RawHtml': return rawHtml(elem); + case 'Custom': return elem.render(elem.model); + } +} + +function update(node, curr, next) { + if (node.tagName === 'A') { node = node.firstChild; } + if (curr.props.id === next.props.id) return updateProps(node, curr, next); + if (curr.element.ctor !== next.element.ctor) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var nextE = next.element, currE = curr.element; + switch(nextE.ctor) { + case "Spacer": break; + case "RawHtml": + // only markdown blocks have guids, so this must be a text block + if (nextE.guid === null) { + if(currE.html.valueOf() !== nextE.html.valueOf()) { + node.innerHTML = nextE.html; + } + break; + } + if (nextE.guid !== currE.guid) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var nargs = nextE.args; + var cargs = currE.args; + for (var i = nargs.length; i--; ) { + var narg = nargs[i]; + var carg = cargs[i] + if (narg == carg) continue; + var span = document.getElementById('md-' + currE.guid + '-' + i); + if (narg.isElement) { + if (carg.isElement) { + update(span, carg, narg); + } else { + span.style.display = 'block'; + var e = render(narg); + span.innerHTML = ''; + span.appendChild(e); + } + } else { + span.style.display = 'inline'; + span.innerHTML = narg; + } + } + break; + case "Image": + if (nextE._0.ctor === 'Plain') { + if (nextE._3 !== currE._3) node.src = nextE._3; + } else if (!eq(nextE,currE) || + next.props.width !== curr.props.width || + next.props.height !== curr.props.height) { + node.parentNode.replaceChild(render(next),node); + return true; + } + break; + case "Flow": + var arr = fromList(nextE._1); + for (var i = arr.length; i--; ) { arr[i] = arr[i].element.ctor; } + if (nextE._0.ctor !== currE._0.ctor) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var nexts = fromList(nextE._1); + var kids = node.childNodes; + if (nexts.length !== kids.length) { + node.parentNode.replaceChild(render(next),node); + return true; + } + var currs = fromList(currE._1); + var goDir = function(x) { return x; }; + switch(nextE._0.ctor) { + case "DDown": case "DUp": goDir = goDown; break; + case "DRight": case "DLeft": goDir = goRight; break; + case "DOut": case "DIn": goDir = goIn; break; + } + for (var i = kids.length; i-- ;) { + update(kids[i],currs[i],nexts[i]); + goDir(kids[i]); + } + break; + case "Container": + update(node.firstChild, currE._1, nextE._1); + setPos(nextE._0, nextE._1, node.firstChild); + break; + case "Custom": + if (currE.type === nextE.type) { + var done = nextE.update(node, currE.model, nextE.model); + if (done) return; + } else { + return node.parentNode.replaceChild(render(next), node); + } + } + updateProps(node, curr, next); +} + +function updateProps(node, curr, next) { + var props = next.props; + var currP = curr.props; + var e = node; + var element = next.element; + var width = props.width - (element.adjustWidth || 0); + var height = props.height - (element.adjustHeight || 0); + if (width !== currP.width) { + e.style.width = (width|0) + 'px'; + } + if (height !== currP.height) { + e.style.height = (height|0) + 'px'; + } + if (props.opacity !== currP.opacity) { + e.style.opacity = props.opacity; + } + var nextColor = (props.color.ctor === 'Just' ? + extract(props.color._0) : ''); + if (e.style.backgroundColor !== nextColor) { + e.style.backgroundColor = (nextColor === '' ? 'transparent' : nextColor); + } + if (props.tag !== currP.tag) { e.id = props.tag; } + if (props.href !== currP.href) { + if (currP.href === '') { + var a = newElement('a'); + a.href = props.href; + a.style.width = '100%'; + a.style.height = '100%'; + a.style.top = 0; + a.style.left = 0; + a.style.display = 'block'; + a.style.position = 'absolute'; + e.style.position = 'relative'; + e.appendChild(a); + } else { + node.lastNode.href = props.href; + } + } + + // update hover handlers + if (props.hover.ctor === '_Tuple0') { + removeHover(e); + } else if (e.elm_hover_handler) { + e.elm_hover_handler = props.hover; + } else { + addHover(e, props.hover); + } + + // update click handlers + if (props.click.ctor === '_Tuple0') { + removeClick(e); + } else if (e.elm_click_handler) { + e.elm_click_handler = props.click; + } else { + addClick(e, props.click); } } diff --git a/data/interfaces.data b/data/interfaces.data Binary files a/data/interfaces.data and b/data/interfaces.data differ diff --git a/tests/Tests/Property.hs b/tests/Tests/Property.hs --- a/tests/Tests/Property.hs +++ b/tests/Tests/Property.hs @@ -10,7 +10,7 @@ import Text.PrettyPrint as P import SourceSyntax.Literal as Lit -import SourceSyntax.Pattern as Pat +import qualified SourceSyntax.Pattern as P import SourceSyntax.PrettyPrint (Pretty, pretty) import Parse.Helpers (IParser, iParse) import Parse.Literal (literal) @@ -31,24 +31,25 @@ where -- This test was autogenerated from the Pattern test and should be -- left in all its ugly glory. - longPat = Pat.PData "I" [ Pat.PLiteral (Lit.Chr '+') - , Pat.PRecord [ - "q7yclkcm7k_ikstrczv_" - , "wQRv6gKsvvkjw4b5F" - ,"c9'eFfhk9FTvsMnwF_D" - ,"yqxhEkHvRFwZ" - ,"o" - ,"nbUlCn3y3NnkVoxhW" - ,"iJ0MNy3KZ_lrs" - ,"ug" - ,"sHHsX" - ,"mRKs9d" - ,"o2KiCX5'ZRzHJfRi8" ] - , Pat.PVar "su'BrrbPUK6I33Eq" ] + longPat = P.Data "I" [ P.Literal (Lit.Chr '+') + , P.Record + [ "q7yclkcm7k_ikstrczv_" + , "wQRv6gKsvvkjw4b5F" + ,"c9'eFfhk9FTvsMnwF_D" + ,"yqxhEkHvRFwZ" + ,"o" + ,"nbUlCn3y3NnkVoxhW" + ,"iJ0MNy3KZ_lrs" + ,"ug" + ,"sHHsX" + ,"mRKs9d" + ,"o2KiCX5'ZRzHJfRi8" ] + , P.Var "su'BrrbPUK6I33Eq" + ] prop_parse_print :: (Pretty a, Arbitrary a, Eq a) => IParser a -> a -> Bool prop_parse_print p x = either (const False) (== x) . parse_print p $ x parse_print :: (Pretty a) => IParser a -> a -> Either String a -parse_print p = either (Left . show) (Right) . iParse (p <* eof) . P.renderStyle P.style {mode=P.LeftMode} . pretty +parse_print p = either (Left . show) Right . iParse (p <* eof) . P.renderStyle P.style {mode=P.LeftMode} . pretty diff --git a/tests/Tests/Property/Arbitrary.hs b/tests/Tests/Property/Arbitrary.hs --- a/tests/Tests/Property/Arbitrary.hs +++ b/tests/Tests/Property/Arbitrary.hs @@ -8,98 +8,112 @@ import qualified Data.Set as Set import qualified Parse.Helpers (reserveds) -import SourceSyntax.Literal -import SourceSyntax.Pattern -import SourceSyntax.Type hiding (listOf) +import qualified SourceSyntax.Literal as L +import qualified SourceSyntax.Pattern as P +import qualified SourceSyntax.Type as T -instance Arbitrary Literal where - arbitrary = oneof [ IntNum <$> arbitrary - , FloatNum <$> (arbitrary `suchThat` noE) - , Chr <$> arbitrary - -- This is too permissive - , Str <$> arbitrary - -- Booleans aren't actually source syntax - -- , Boolean <$> arbitrary - ] - shrink l = case l of - IntNum n -> IntNum <$> shrink n - FloatNum f -> FloatNum <$> (filter noE . shrink $ f) - Chr c -> Chr <$> shrink c - Str s -> Str <$> shrink s - Boolean b -> Boolean <$> shrink b +instance Arbitrary L.Literal where + arbitrary = + oneof + [ L.IntNum <$> arbitrary + , L.FloatNum <$> (arbitrary `suchThat` noE) + , L.Chr <$> arbitrary + -- This is too permissive + , L.Str <$> arbitrary + -- Booleans aren't actually source syntax + -- , Boolean <$> arbitrary + ] + shrink lit = + case lit of + L.IntNum n -> L.IntNum <$> shrink n + L.FloatNum f -> L.FloatNum <$> (filter noE . shrink $ f) + L.Chr c -> L.Chr <$> shrink c + L.Str s -> L.Str <$> shrink s + L.Boolean b -> L.Boolean <$> shrink b + noE :: Double -> Bool noE = notElem 'e' . show +genVector :: Int -> (Int -> Gen a) -> Gen [a] +genVector n generator = do + len <- choose (0,n) + let m = n `div` (len + 1) + vectorOf len $ generator m -instance Arbitrary Pattern where +instance Arbitrary P.Pattern where arbitrary = sized pat - where pat :: Int -> Gen Pattern - pat n = oneof [ pure PAnything - , PVar <$> lowVar - , PRecord <$> (listOf1 lowVar) - , PLiteral <$> arbitrary - , PAlias <$> lowVar <*> pat (n-1) - , PData <$> capVar <*> sizedPats - ] - where sizedPats = do - len <- choose (0,n) - let m = n `div` (len + 1) - vectorOf len $ pat m + where + pat :: Int -> Gen P.Pattern + pat n = + oneof + [ pure P.Anything + , P.Var <$> lowVar + , P.Record <$> (listOf1 lowVar) + , P.Literal <$> arbitrary + , P.Alias <$> lowVar <*> pat (n-1) + , P.Data <$> capVar <*> genVector n pat + ] - shrink pat = case pat of - PAnything -> [] - PVar v -> PVar <$> shrinkWHead v - PRecord fs -> PRecord <$> (filter (all $ not . null) . filter (not . null) $ shrink fs) - PLiteral l -> PLiteral <$> shrink l - PAlias s p -> p : (PAlias <$> shrinkWHead s <*> shrink p) - PData s ps -> ps ++ (PData <$> shrinkWHead s <*> shrink ps) + shrink pat = + case pat of + P.Anything -> [] + P.Var v -> P.Var <$> shrinkWHead v + P.Literal l -> P.Literal <$> shrink l + P.Alias s p -> p : (P.Alias <$> shrinkWHead s <*> shrink p) + P.Data s ps -> ps ++ (P.Data <$> shrinkWHead s <*> shrink ps) + P.Record fs -> + P.Record <$> filter (all notNull) (filter notNull (shrink fs)) + where + notNull = not . null shrinkWHead :: Arbitrary a => [a] -> [[a]] shrinkWHead [] = error "Should be nonempty" shrinkWHead (x:xs) = (x:) <$> shrink xs -instance Arbitrary Type where +instance Arbitrary T.Type where arbitrary = sized tipe - where tipe :: Int -> Gen Type - tipe n = oneof [ Lambda <$> depthTipe <*> depthTipe - , Var <$> lowVar - , Data <$> capVar <*> depthTipes - , Record <$> fields <*> pure Nothing - , Record <$> fields1 <*> (Just <$> lowVar) - ] - where depthTipe = choose (0,n) >>= tipe - depthTipes = do - len <- choose (0,n) - let m = n `div` (len + 1) - vectorOf len $ tipe m + where + tipe :: Int -> Gen T.Type + tipe n = + let depthTipe = tipe =<< choose (0,n) + field = (,) <$> lowVar <*> depthTipe + fields = genVector n (\m -> (,) <$> lowVar <*> tipe m) + fields1 = (:) <$> field <*> fields + in + oneof + [ T.Lambda <$> depthTipe <*> depthTipe + , T.Var <$> lowVar + , T.Data <$> capVar <*> genVector n tipe + , T.Record <$> fields <*> pure Nothing + , T.Record <$> fields1 <*> (Just <$> lowVar) + ] - field = (,) <$> lowVar <*> depthTipe - fields = do - len <- choose (0,n) - let m = n `div` (len + 1) - vectorOf len $ (,) <$> lowVar <*> tipe m - fields1 = (:) <$> field <*> fields + shrink tipe = + case tipe of + T.Lambda s t -> s : t : (T.Lambda <$> shrink s <*> shrink t) + T.Var _ -> [] + T.Data n ts -> ts ++ (T.Data <$> shrinkWHead n <*> shrink ts) + T.Record fs t -> map snd fs ++ record + where + record = + case t of + Nothing -> T.Record <$> shrinkList shrinkField fs <*> pure Nothing + Just _ -> + do fields <- filter (not . null) $ shrinkList shrinkField fs + return $ T.Record fields t - shrink tipe = case tipe of - Lambda s t -> s : t : (Lambda <$> shrink s <*> shrink t) - Var _ -> [] - Data n ts -> ts ++ (Data <$> shrinkWHead n <*> shrink ts) - Record fs t -> map snd fs ++ case t of - Nothing -> Record <$> shrinkList shrinkField fs <*> pure Nothing - Just _ -> - do - fields <- filter (not . null) $ shrinkList shrinkField fs - return $ Record fields t - where shrinkField (n,t) = (,) <$> shrinkWHead n <*> shrink t + shrinkField (n,t) = (,) <$> shrinkWHead n <*> shrink t lowVar :: Gen String lowVar = notReserved $ (:) <$> lower <*> listOf varLetter - where lower = elements ['a'..'z'] + where + lower = elements ['a'..'z'] capVar :: Gen String capVar = notReserved $ (:) <$> upper <*> listOf varLetter - where upper = elements ['A'..'Z'] + where + upper = elements ['A'..'Z'] varLetter :: Gen Char varLetter = elements $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ ['\'', '_'] @@ -109,5 +123,6 @@ exceptFor :: (Ord a) => Gen a -> [a] -> Gen a exceptFor g xs = g `suchThat` notAnX - where notAnX = flip Set.notMember xset - xset = Set.fromList xs + where + notAnX = flip Set.notMember xset + xset = Set.fromList xs