empty useless effect manager

effect-manager-init.elm

effect module My where { command = MyCmd } exposing
    ( init
    )


import Task exposing (Task)
import Platform.Cmd exposing (Cmd)

-- Manager

type MyState x
    = State ()

type alias MyTask msg
    = Task Never (MyState msg)

type MyCmd msg
    = NoOp

init : MyTask msg
init =
    Task.succeed (State ())


cmdMap : (a -> b) -> MyCmd a -> MyCmd b
cmdMap tagger cmd =
    case cmd of
        NoOp -> NoOp


onEffects
    :  Platform.Router msg (MyCmd msg)
    -> List (MyCmd msg)
    -> MyState msg
    -> MyTask msg
onEffects router commands state =
    Task.succeed state


onSelfMsg
    :  Platform.Router msg (MyCmd msg)
    -> MyCmd msg
    -> MyState msg
    -> MyTask msg
onSelfMsg router command state =
   Task.succeed state