AppModel -> Model

rjsamson · Mar 12, 2016 · a6d0dd4 · a6d0dd4
1 parent 96a9e80
commit a6d0dd4
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 27 deletions.
diff --git a/web/elm/src/Actions.elm b/web/elm/src/Actions.elm
@@ -4,4 +4,4 @@ import Models exposing (..)
 
 type Action
   = NoOp
-  | UpdateTicker AppModel
+  | UpdateTicker Model
diff --git a/web/elm/src/Models.elm b/web/elm/src/Models.elm
@@ -1,6 +1,6 @@
 module Models (..) where
 
-type alias AppModel =
+type alias Model =
   { symbol : String
   , venue : String
   , bid : Int
@@ -15,7 +15,7 @@ type alias AppModel =
   , quoteTime : String
   }
 
-initialModel : AppModel
+initialModel : Model
 initialModel =
   { symbol = "NYC"
   , venue = "OBEX"

diff --git a/web/elm/src/Ticker.elm b/web/elm/src/Ticker.elm
@@ -8,7 +8,7 @@ import Html exposing (Html)
 import Actions exposing (..)
 import Models exposing (..)
 
-update : Action -> AppModel -> ( AppModel, Effects Action )
+update : Action -> Model -> ( Model, Effects Action )
 update action model =
   case action of
     UpdateTicker newTicker ->
@@ -17,11 +17,11 @@ update action model =
     _ ->
       (model, Effects.none)
 
-init : ( AppModel, Effects action )
+init : ( Model, Effects action )
 init =
   ( initialModel, Effects.none )
 
-app : StartApp.App AppModel
+app : StartApp.App Model
 app =
   StartApp.start
     { init = init
@@ -38,4 +38,4 @@ main : Signal.Signal Html
 main =
   app.html
 
-port tickertape : Signal AppModel
+port tickertape : Signal Model
diff --git a/web/elm/src/View.elm b/web/elm/src/View.elm
@@ -6,36 +6,21 @@ import Actions exposing (..)
 import Models exposing (..)
 import String
 
-type alias ViewModel =
-  { symbol : String
-  , venue : String
-  , bid : Int
-  , ask : Int
-  , last : Int
-  , bidSize : Int
-  , askSize : Int
-  , bidDepth : Int
-  , askDepth : Int
-  , lastSize : Int
-  , lastTrade : String
-  , quoteTime : String
-  }
-
-view : Signal.Address Action -> ViewModel -> Html.Html
+view : Signal.Address Action -> Model -> Html.Html
 view address model =
   div
     []
     [ page address model ]
 
-page : Signal.Address Action -> ViewModel -> Html.Html
+page : Signal.Address Action -> Model -> Html.Html
 page address model =
   div
     []
     [ navbar address model
     , tickerTable address model
     ]
 
-navbar : Signal.Address Action -> ViewModel -> Html.Html
+navbar : Signal.Address Action -> Model -> Html.Html
 navbar address model =
   nav
     [ class "navbar navbar-default" ]
@@ -45,12 +30,12 @@ navbar address model =
       ]
     ]
 
-brandLink : Signal.Address Action -> ViewModel -> Html.Html
+brandLink : Signal.Address Action -> Model -> Html.Html
 brandLink address model =
   a
     [ href "#", class "navbar-brand" ][ text "Stackfooter" ]
 
-tickerTable : Signal.Address Action -> ViewModel -> Html.Html
+tickerTable : Signal.Address Action -> Model -> Html.Html
 tickerTable address model =
   table
     [ class "table table-bordered" ]