Skip to content

Instantly share code, notes, and snippets.

@aardvarrk

aardvarrk/Noise.hs

Created December 8, 2012 23:27
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save aardvarrk/4242510 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save aardvarrk/4242510 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Noise.hs
Noise x >>= f = unsafePerformIO $ do
rand <- (randomIO :: IO Bool)
case rand of
True -> error "fuck"
False -> return $ f x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment