App.purs

update :: Action -> AppState -> AppState
update action state = case action of
  Update st -> st
  Alert alrt -> state
  DoFoo foo' -> case decodeMaybe foo' of
    Just f -> state { foo = runFoo f }
    Nothing -> state
  -- DoFoo foo' -> case foo' of
  --   Just f -> state { foo = f }
  --   Nothing -> state
  Upload upld -> state
  ToggleLoginModal bl -> state { loginModalIsOpen = bl }
  NoOp -> state


actions :: Maybe (Signal Action)
actions =
  mergeMany
    [ map ToggleLoginModal toggleLoginModal
    , map Alert incomingAlert
    , map DoFoo outgoingFoo
    -- , map DoFoo incompingFoo
    , map Upload upload
    ]


outgoingFoo :: Signal Json
outgoingFoo = constant $ encodeJson $ foo


incomingFoo :: Signal (Maybe Foo)
incomingFoo = map (decodeMaybe >>> map runFoo) outgoingFoo