|
@@ -6,17 +6,39 @@ import Html.Events exposing (..)
|
|
import Html.Attributes exposing (id, class, classList)
|
|
import Html.Attributes exposing (id, class, classList)
|
|
|
|
|
|
|
|
|
|
|
|
+type alias Model =
|
|
|
|
+ {
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+initModel : Model
|
|
|
|
+initModel =
|
|
|
|
+ {
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+type Msg
|
|
|
|
+ = NoOp
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+view : Model -> Html Msg
|
|
view model =
|
|
view model =
|
|
div
|
|
div
|
|
[]
|
|
[]
|
|
[ text "$foldername" ]
|
|
[ text "$foldername" ]
|
|
|
|
|
|
|
|
+update : Msg -> Model -> (Model, Cmd Msg)
|
|
update msg model =
|
|
update msg model =
|
|
( model, Cmd.none )
|
|
( model, Cmd.none )
|
|
|
|
|
|
|
|
+--subscriptions : Model -> Sub Msg
|
|
|
|
+--subscriptions model =
|
|
|
|
+-- Sub.batch
|
|
|
|
+-- [
|
|
|
|
+-- ]
|
|
|
|
+
|
|
main =
|
|
main =
|
|
Html.program
|
|
Html.program
|
|
- { init = ("", Cmd.none)
|
|
|
|
|
|
+ { init = (initModel, Cmd.none)
|
|
, view = view
|
|
, view = view
|
|
, update = update
|
|
, update = update
|
|
, subscriptions = \_ -> Sub.none
|
|
, subscriptions = \_ -> Sub.none
|