blob: 0f59631ab15b8b2f17c94749bee2f22177a29371 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
module Update.Disconnect exposing (apply_to)
-- Elm -------------------------------------------------------------------------
-- Shared ----------------------------------------------------------------------
import Shared.Action.Ports
-- Local Module ----------------------------------------------------------------
import Struct.Model
import Struct.Event
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
apply_to model =
(
model,
(Shared.Action.Ports.reset_session ())
)
|
