Skip to content

Instantly share code, notes, and snippets.

@techtangents

techtangents/effects

Created July 17, 2013 04:16
Show Gist options
  • Save techtangents/6017661 to your computer and use it in GitHub Desktop.
Save techtangents/6017661 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
effects
data Effect = Effect {
unsafePerform :: ()
}
data Effect1 a = Effect1 {
unsafePerform1 :: a -> ()
}
effectToEffect1 :: Effect -> Effect1 a
--effectToEffect1 fx = Effect1 (\_ -> unsafePerform fx)
effectToEffect1 = Effect1 . const . unsafePerform
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment