src/client/elm/Utils/Effects.elm


1
2
3
4
5
6
7
8
9
10

module Utils.Effects
  ( andThen
  ) where

import Effects exposing (Effects)

andThen : (a, Effects b) -> (a -> (a, Effects b)) -> (a, Effects b)
andThen a b = case a of
  (ma, ea) -> case b ma of
    (mb, eb) -> (mb, Effects.batch [ea, eb])