elm-rails 0.2.0 → 0.2.1

data/test/rails5.0/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/src/VirtualDom/Helpers.elm

@@ -1,137 +0,0 @@
-module VirtualDom.Helpers exposing
-  ( Node
-  , text, node, div, span, a, h1
-  , Property, property, attribute
-  , class, id, href
-  , style
-  , on, onWithOptions, Options, defaultOptions
-  , onClick
-  , map
-  , lazy, lazy2, lazy3
-  , keyedNode
-  )
-
-
-import Json.Decode as Decode
-import Json.Encode as Encode
-import Native.VirtualDom
-
-
-type Node msg = Node
-
-
-node : String -> List (Property msg) -> List (Node msg) -> Node msg
-node =
-  Native.VirtualDom.node
-
-
-text : String -> Node msg
-text =
-  Native.VirtualDom.text
-
-
-div : List (Property msg) -> List (Node msg) -> Node msg
-div =
-  node "div"
-
-
-span : List (Property msg) -> List (Node msg) -> Node msg
-span =
-  node "span"
-
-
-a : List (Property msg) -> List (Node msg) -> Node msg
-a =
-  node "a"
-
-
-h1 : List (Property msg) -> List (Node msg) -> Node msg
-h1 =
-  node "h1"
-
-
-map : (a -> msg) -> Node a -> Node msg
-map =
-  Native.VirtualDom.map
-
-
-type Property msg = Property
-
-
-property : String -> Decode.Value -> Property msg
-property =
-  Native.VirtualDom.property
-
-
-attribute : String -> String -> Property msg
-attribute =
-  Native.VirtualDom.attribute
-
-
-class : String -> Property msg
-class name =
-  property "className" (Encode.string name)
-
-
-href : String -> Property msg
-href name =
-  property "href" (Encode.string name)
-
-
-id : String -> Property msg
-id =
-  attribute "id"
-
-
-style : List (String, String) -> Property msg
-style =
-  Native.VirtualDom.style
-
-
-on : String -> Decode.Decoder msg -> Property msg
-on eventName decoder =
-  onWithOptions eventName defaultOptions decoder
-
-
-onClick : msg -> Property msg
-onClick msg =
-  on "click" (Decode.succeed msg)
-
-
-onWithOptions : String -> Options -> Decode.Decoder msg -> Property msg
-onWithOptions =
-  Native.VirtualDom.on
-
-
-type alias Options =
-  { stopPropagation : Bool
-  , preventDefault : Bool
-  }
-
-
-defaultOptions : Options
-defaultOptions =
-  { stopPropagation = False
-  , preventDefault = False
-  }
-
-
-lazy : (a -> Node msg) -> a -> Node msg
-lazy =
-  Native.VirtualDom.lazy
-
-
-lazy2 : (a -> b -> Node msg) -> a -> b -> Node msg
-lazy2 =
-  Native.VirtualDom.lazy2
-
-
-lazy3 : (a -> b -> c -> Node msg) -> a -> b -> c -> Node msg
-lazy3 =
-  Native.VirtualDom.lazy3
-
-
-keyedNode : String -> List (Property msg) -> List ( String, Node msg ) -> Node msg
-keyedNode =
-  Native.VirtualDom.keyedNode
-

data/test/rails5.0/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/src/VirtualDom/History.elm

@@ -1,290 +0,0 @@
-module VirtualDom.History exposing
-  ( History
-  , empty
-  , size
-  , initialModel
-  , add
-  , get
-  , view
-  , decoder
-  , encode
-  )
-
-
-import Array exposing (Array)
-import Json.Decode as Decode
-import Json.Encode as Encode
-import Native.Debug
-import VirtualDom.Helpers as VDom exposing (Node)
-import VirtualDom.Metadata as Metadata
-
-
-
--- CONSTANTS
-
-
-maxSnapshotSize : Int
-maxSnapshotSize =
-  64
-
-
-
--- HISTORY
-
-
-type alias History model msg =
-  { snapshots : Array (Snapshot model msg)
-  , recent : RecentHistory model msg
-  , numMessages : Int
-  }
-
-
-type alias RecentHistory model msg =
-  { model : model
-  , messages : List msg
-  , numMessages : Int
-  }
-
-
-type alias Snapshot model msg =
-  { model : model
-  , messages : Array msg
-  }
-
-
-empty : model -> History model msg
-empty model =
-  History Array.empty (RecentHistory model [] 0) 0
-
-
-size : History model msg -> Int
-size history =
-  history.numMessages
-
-
-initialModel : History model msg -> model
-initialModel  { snapshots, recent } =
-  case Array.get 0 snapshots of
-    Just { model } ->
-      model
-
-    Nothing ->
-      recent.model
-
-
-
--- JSON
-
-
-decoder : model -> (msg -> model -> model) -> Decode.Decoder (model, History model msg)
-decoder initialModel update =
-  let
-    addMessage rawMsg (model, history) =
-      let
-        msg =
-          jsToElm rawMsg
-      in
-        (update msg model, add msg model history)
-
-    updateModel rawMsgs =
-      List.foldl addMessage (initialModel, empty initialModel) rawMsgs
-  in
-    Decode.map updateModel (Decode.list Decode.value)
-
-
-jsToElm : Encode.Value -> a
-jsToElm =
-  Native.Debug.unsafeCoerce
-
-
-encode : History model msg -> Encode.Value
-encode { snapshots, recent } =
-  let
-    recentJson =
-      List.map elmToJs (List.reverse recent.messages)
-  in
-    Encode.list <| Array.foldr encodeHelp recentJson snapshots
-
-
-encodeHelp : Snapshot model msg -> List Encode.Value -> List Encode.Value
-encodeHelp snapshot allMessages =
-  Array.foldl (\elm msgs -> elmToJs elm :: msgs) allMessages snapshot.messages
-
-
-elmToJs : a -> Encode.Value
-elmToJs =
-  Native.Debug.unsafeCoerce
-
-
-
--- ADD MESSAGES
-
-
-add : msg -> model -> History model msg -> History model msg
-add msg model { snapshots, recent, numMessages } =
-  case addRecent msg model recent of
-    (Just snapshot, newRecent) ->
-      History (Array.push snapshot snapshots) newRecent (numMessages + 1)
-
-    (Nothing, newRecent) ->
-      History snapshots newRecent (numMessages + 1)
-
-
-addRecent
-  : msg
-  -> model
-  -> RecentHistory model msg
-  -> ( Maybe (Snapshot model msg), RecentHistory model msg )
-addRecent msg newModel { model, messages, numMessages } =
-  if numMessages == maxSnapshotSize then
-    ( Just (Snapshot model (Array.fromList messages))
-    , RecentHistory newModel [msg] 1
-    )
-
-  else
-    ( Nothing
-    , RecentHistory model (msg :: messages) (numMessages + 1)
-    )
-
-
-
--- GET SUMMARY
-
-
-get : (msg -> model -> (model, a)) -> Int -> History model msg -> ( model, msg )
-get update index { snapshots, recent, numMessages } =
-  let
-    snapshotMax =
-      numMessages - recent.numMessages
-  in
-    if index >= snapshotMax then
-      undone <|
-        List.foldr (getHelp update) (Stepping (index - snapshotMax) recent.model) recent.messages
-
-    else
-      case Array.get (index // maxSnapshotSize) snapshots of
-        Nothing ->
-          Debug.crash "UI should only let you ask for real indexes!"
-
-        Just { model, messages } ->
-          undone <|
-            Array.foldr (getHelp update) (Stepping (rem index maxSnapshotSize) model) messages
-
-
-type GetResult model msg
-  = Stepping Int model
-  | Done msg model
-
-
-getHelp : (msg -> model -> (model, a)) -> msg -> GetResult model msg -> GetResult model msg
-getHelp update msg getResult =
-  case getResult of
-    Done _ _ ->
-      getResult
-
-    Stepping n model ->
-      if n == 0 then
-        Done msg (Tuple.first (update msg model))
-
-      else
-        Stepping (n - 1) (Tuple.first (update msg model))
-
-
-undone : GetResult model msg -> ( model, msg )
-undone getResult =
-  case getResult of
-    Done msg model ->
-      ( model, msg )
-
-    Stepping _ _ ->
-      Debug.crash "Bug in History.get"
-
-
-
--- VIEW
-
-
-view : Maybe Int -> History model msg -> Node Int
-view maybeIndex { snapshots, recent, numMessages } =
-  let
-    (index, className) =
-      case maybeIndex of
-        Nothing ->
-          ( -1, "debugger-sidebar-messages" )
-        Just i ->
-          ( i, "debugger-sidebar-messages-paused" )
-
-    oldStuff =
-      VDom.lazy2 viewSnapshots index snapshots
-
-    newStuff =
-      Tuple.second <| List.foldl (consMsg index) (numMessages - 1, []) recent.messages
-  in
-    VDom.div [ VDom.class className ] (oldStuff :: newStuff)
-
-
-
--- VIEW SNAPSHOTS
-
-
-viewSnapshots : Int -> Array (Snapshot model msg) -> Node Int
-viewSnapshots currentIndex snapshots =
-  let
-    highIndex =
-      maxSnapshotSize * Array.length snapshots
-  in
-    VDom.div [] <| Tuple.second <|
-      Array.foldr (consSnapshot currentIndex) (highIndex, []) snapshots
-
-
-consSnapshot : Int -> Snapshot model msg -> ( Int, List (Node Int) ) -> ( Int, List (Node Int) )
-consSnapshot currentIndex snapshot (index, rest) =
-  let
-    nextIndex =
-      index - maxSnapshotSize
-
-    currentIndexHelp =
-      if nextIndex <= currentIndex && currentIndex < index then currentIndex else -1
-  in
-    ( index - maxSnapshotSize
-    , VDom.lazy3 viewSnapshot currentIndexHelp index snapshot :: rest
-    )
-
-
-viewSnapshot : Int -> Int -> Snapshot model msg -> Node Int
-viewSnapshot currentIndex index { messages } =
-  VDom.div [] <| Tuple.second <|
-    Array.foldl (consMsg currentIndex) (index - 1, []) messages
-
-
-
--- VIEW MESSAGE
-
-
-consMsg : Int -> msg -> ( Int, List (Node Int) ) -> ( Int, List (Node Int) )
-consMsg currentIndex msg (index, rest) =
-  ( index - 1
-  , VDom.lazy3 viewMessage currentIndex index msg :: rest
-  )
-
-
-viewMessage : Int -> Int -> msg -> Node Int
-viewMessage currentIndex index msg =
-  let
-    className =
-      if currentIndex == index then
-        "messages-entry messages-entry-selected"
-
-      else
-        "messages-entry"
-
-    messageName =
-      Native.Debug.messageToString msg
-  in
-    VDom.div
-      [ VDom.class className
-      , VDom.on "click" (Decode.succeed index)
-      ]
-      [ VDom.span [VDom.class "messages-entry-content", VDom.attribute "title" messageName ] [ VDom.text messageName ]
-      , VDom.span [VDom.class "messages-entry-index"] [ VDom.text (toString index) ]
-      ]

data/test/rails5.0/elm-stuff/packages/elm-lang/virtual-dom/2.0.3/src/VirtualDom/Metadata.elm

@@ -1,326 +0,0 @@
-module VirtualDom.Metadata exposing
-  ( Metadata
-  , check
-  , decode, decoder, encode
-  , Error, ProblemType, Problem(..)
-  )
-
-
-import Array exposing (Array)
-import Dict exposing (Dict)
-import Json.Decode as Decode
-import Json.Encode as Encode
-import VirtualDom.Report as Report exposing (Report)
-
-
-
--- METADATA
-
-
-type alias Metadata =
-  { versions : Versions
-  , types : Types
-  }
-
-
-
--- VERSIONS
-
-
-type alias Versions =
-  { elm : String
-  }
-
-
-
--- TYPES
-
-
-type alias Types =
-  { message : String
-  , aliases : Dict String Alias
-  , unions : Dict String Union
-  }
-
-
-type alias Alias =
-  { args : List String
-  , tipe : String
-  }
-
-
-type alias Union =
-  { args : List String
-  , tags : Dict String (List String)
-  }
-
-
-
--- PORTABILITY
-
-
-isPortable : Metadata -> Maybe Error
-isPortable {types} =
-  let
-    badAliases =
-      Dict.foldl collectBadAliases [] types.aliases
-  in
-    case Dict.foldl collectBadUnions badAliases types.unions of
-      [] ->
-        Nothing
-
-      problems ->
-        Just (Error types.message problems)
-
-
-type alias Error =
-  { message : String
-  , problems : List ProblemType
-  }
-
-
-type alias ProblemType =
-  { name : String
-  , problems : List Problem
-  }
-
-
-type Problem
-  = Function
-  | Decoder
-  | Task
-  | Process
-  | Socket
-  | Request
-  | Program
-  | VirtualDom
-
-
-collectBadAliases : String -> Alias -> List ProblemType -> List ProblemType
-collectBadAliases name {tipe} list =
-  case findProblems tipe of
-    [] ->
-      list
-
-    problems ->
-      ProblemType name problems :: list
-
-
-collectBadUnions : String -> Union -> List ProblemType -> List ProblemType
-collectBadUnions name {tags} list =
-  case List.concatMap findProblems (List.concat (Dict.values tags)) of
-    [] ->
-      list
-
-    problems ->
-      ProblemType name problems :: list
-
-
-findProblems : String -> List Problem
-findProblems tipe =
-  List.filterMap (hasProblem tipe) problemTable
-
-
-hasProblem : String -> (Problem, String) -> Maybe Problem
-hasProblem tipe (problem, token) =
-  if String.contains token tipe then Just problem else Nothing
-
-
-problemTable : List (Problem, String)
-problemTable =
-  [ ( Function, "->" )
-  , ( Decoder, "Json.Decode.Decoder" )
-  , ( Task, "Task.Task" )
-  , ( Process, "Process.Id" )
-  , ( Socket, "WebSocket.LowLevel.WebSocket" )
-  , ( Request, "Http.Request" )
-  , ( Program, "Platform.Program" )
-  , ( VirtualDom, "VirtualDom.Node" )
-  , ( VirtualDom, "VirtualDom.Attribute" )
-  ]
-
-
-
--- CHECK
-
-
-check : Metadata -> Metadata -> Report
-check old new =
-  if old.versions.elm /= new.versions.elm then
-    Report.VersionChanged old.versions.elm new.versions.elm
-
-  else
-    checkTypes old.types new.types
-
-
-checkTypes : Types -> Types -> Report
-checkTypes old new =
-  if old.message /= new.message then
-    Report.MessageChanged old.message new.message
-
-  else
-    []
-      |> Dict.merge ignore checkAlias ignore old.aliases new.aliases
-      |> Dict.merge ignore checkUnion ignore old.unions new.unions
-      |> Report.SomethingChanged
-
-
-ignore : String -> value -> a -> a
-ignore key value report =
-  report
-
-
-
--- CHECK ALIASES
-
-
-checkAlias : String -> Alias -> Alias -> List Report.Change -> List Report.Change
-checkAlias name old new changes =
-  if old.tipe == new.tipe && old.args == new.args then
-    changes
-
-  else
-    Report.AliasChange name :: changes
-
-
-
--- CHECK UNIONS
-
-
-checkUnion : String -> Union -> Union -> List Report.Change -> List Report.Change
-checkUnion name old new changes =
-  let
-    tagChanges =
-      Dict.merge removeTag checkTag addTag old.tags new.tags <|
-        Report.emptyTagChanges (old.args == new.args)
-  in
-    if Report.hasTagChanges tagChanges then
-      changes
-
-    else
-      Report.UnionChange name tagChanges :: changes
-
-
-removeTag : String -> a -> Report.TagChanges -> Report.TagChanges
-removeTag tag _ changes =
-  { changes | removed = tag :: changes.removed }
-
-
-addTag : String -> a -> Report.TagChanges -> Report.TagChanges
-addTag tag _ changes =
-  { changes | added = tag :: changes.added }
-
-
-checkTag : String -> a -> a -> Report.TagChanges -> Report.TagChanges
-checkTag tag old new changes =
-  if old == new then
-    changes
-
-  else
-    { changes | changed = tag :: changes.changed }
-
-
-
--- JSON DECODE
-
-
-decode : Encode.Value -> Result Error Metadata
-decode value =
-  case Decode.decodeValue decoder value of
-    Err _ ->
-      Debug.crash "Compiler is generating bad metadata. Report this at <https://github.com/elm-lang/virtual-dom/issues>."
-
-    Ok metadata ->
-      case isPortable metadata of
-        Nothing ->
-          Ok metadata
-
-        Just error ->
-          Err error
-
-
-decoder : Decode.Decoder Metadata
-decoder =
-  Decode.map2 Metadata
-    (Decode.field "versions" decodeVersions)
-    (Decode.field "types" decodeTypes)
-
-
-decodeVersions : Decode.Decoder Versions
-decodeVersions =
-  Decode.map Versions
-    (Decode.field "elm" Decode.string)
-
-
-decodeTypes : Decode.Decoder Types
-decodeTypes =
-  Decode.map3 Types
-    (Decode.field "message" Decode.string)
-    (Decode.field "aliases" (Decode.dict decodeAlias))
-    (Decode.field "unions" (Decode.dict decodeUnion))
-
-
-decodeUnion : Decode.Decoder Union
-decodeUnion =
-  Decode.map2 Union
-    (Decode.field "args" (Decode.list Decode.string))
-    (Decode.field "tags" (Decode.dict (Decode.list Decode.string)))
-
-
-decodeAlias : Decode.Decoder Alias
-decodeAlias =
-  Decode.map2 Alias
-    (Decode.field "args" (Decode.list Decode.string))
-    (Decode.field "type" (Decode.string))
-
-
-
--- JSON ENCODE
-
-
-encode : Metadata -> Encode.Value
-encode { versions, types } =
-  Encode.object
-    [ ("versions", encodeVersions versions)
-    , ("types", encodeTypes types)
-    ]
-
-
-encodeVersions : Versions -> Encode.Value
-encodeVersions { elm } =
-  Encode.object [("elm", Encode.string elm)]
-
-
-encodeTypes : Types -> Encode.Value
-encodeTypes { message, unions, aliases } =
-  Encode.object
-    [ ("message", Encode.string message)
-    , ("aliases", encodeDict encodeAlias aliases)
-    , ("unions", encodeDict encodeUnion unions)
-    ]
-
-
-encodeAlias : Alias -> Encode.Value
-encodeAlias { args, tipe } =
-  Encode.object
-    [ ("args", Encode.list (List.map Encode.string args))
-    , ("type", Encode.string tipe)
-    ]
-
-
-encodeUnion : Union -> Encode.Value
-encodeUnion { args, tags } =
-  Encode.object
-    [ ("args", Encode.list (List.map Encode.string args))
-    , ("tags", encodeDict (Encode.list << List.map Encode.string) tags)
-    ]
-
-
-encodeDict : (a -> Encode.Value) -> Dict String a -> Encode.Value
-encodeDict f dict =
-  dict
-    |> Dict.map (\key value -> f value)
-    |> Dict.toList
-    |> Encode.object
-
-