This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module AudioControl exposing (..) | |
| import Html exposing (Attribute, Html, audio, div, text, button) | |
| import Html.Attributes exposing (class, controls, type', src, id, property) | |
| import Html.App as App | |
| import Html.Events exposing (on, onClick) | |
| import Json.Decode as Json | |
| import Json.Encode as Enc | |
| import Debug |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module LetShadowing exposing (..) | |
| type alias TestModel = { dependency : String, id : Char } | |
| borkMe : TestModel -> TestModel | |
| borkMe model = | |
| let | |
| dep : String | |
| dep = | |
| Debug.log (toString model.id) model.dependency |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module ParseStopwatch exposing (..) | |
| import Parser exposing (..) | |
| import Parser.Char exposing (..) | |
| import Parser.Number exposing (digit) | |
| import Char | |
| import Time exposing (..) | |
| twoDigitInt : Parser Int |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module Codec exposing (..) | |
| import Json.Encode as Encode | |
| type alias Listy = | |
| { a : List Int, b : Maybe String } | |
| encodeListy : Listy -> Encode.Value |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module Temp exposing (..) | |
| import Html exposing (..) | |
| import Html.App as App | |
| import Html.Events exposing (..) | |
| import List | |
| import Json.Decode as Json | |
| join : List String -> String | |
| join list = (List.foldr (++) "" list) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module FetchParallel exposing (..) | |
| import Html exposing (Html, div, text, ul, li) | |
| import Html.App exposing (program) | |
| import Task | |
| import Http | |
| import Json.Decode as Json | |
| import Json.Decode exposing ((:=)) | |
| import Dict exposing (Dict, fromList, toList) | |
| import ZZZFetchJSON exposing (..) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module FetchParallel2 exposing (..) | |
| import Html exposing (Html, div, text, ul, li) | |
| import Html.App exposing (program) | |
| import Task | |
| import Http | |
| import Json.Decode as Json | |
| import Json.Decode exposing ((:=)) | |
| import Dict exposing (Dict, fromList, toList) | |
| import ZZZFetchJSON exposing (..) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module Stuff exposing (..) | |
| import UrlParser exposing (..) | |
| import String | |
| import Erl | |
| import Dict exposing (Dict) | |
| type alias Params = | |
| Dict String String |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| range : number -> number -> List number | |
| range s e = | |
| if s < e then | |
| rangeWith (-) (<) e s [] | |
| else | |
| rangeWith (+) (>) e s [] | |
| rangeWith : (number -> number -> number) -> (number -> number -> Bool) -> number -> number -> List number -> List number | |
| rangeWith modifyCount compare s e acc = | |
| if compare s e then |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module SafeInt exposing (SafeInt, fromInt, get, map, map2, andThen, (+!), (-!), (*!), (//!), (%!), (^!)) | |
| type SafeInt | |
| = Safe Int | |
| | Invalid | |
| fromInt : Int -> SafeInt | |
| fromInt i = |