Skip to content

Instantly share code, notes, and snippets.

@oakfang

oakfang/d.hs

Last active December 4, 2015 01:11
Show Gist options
  • Save oakfang/63124b6c51eec22c19ab to your computer and use it in GitHub Desktop.
Save oakfang/63124b6c51eec22c19ab to your computer and use it in GitHub Desktop.
Download ZIP
A Numenera attack roller written in Haskeel for infix functions
Raw
d.hs
import ArgParse
import Dice.IO
import Dice.Pure
handleOptions :: Option -> IO ()
handleOptions (Level level) = rollAgainst level >>= (\result -> putStrLn $ rollMessage result)
main = do
argparse handleOptions
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment