src/ElmModule/Init.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

module ElmModule.Init exposing (init)

-- Local Module ----------------------------------------------------------------
import Struct.Flags
import Struct.Event
import Struct.Model

import Comm.LoadStory

--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
init flags =
   (
      (Struct.Model.new flags),
      (Comm.LoadStory.request
         (
            "/story/"
            ++ (Struct.Flags.force_get_parameter flags "story")
            ++ ".json"
         )
      )
   )