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