Skip to content

Instantly share code, notes, and snippets.

@3noch

3noch/latestLeft.hs

Last active July 6, 2017 18:25
Show Gist options
  • Save 3noch/0c7dc1a4d9412430f405b66533c7ea45 to your computer and use it in GitHub Desktop.
Save 3noch/0c7dc1a4d9412430f405b66533c7ea45 to your computer and use it in GitHub Desktop.
Download ZIP
Reflex Function: latestLeft
Raw
latestLeft.hs
latestLeft :: (Reflex t, MonadHold t m) => a -> Event t (Either a b) -> m (Dynamic t a)
latestLeft initial x = holdDyn initial $ fmapMaybe (either Just (const Nothing)) x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment