shrub/pkg/hs-vere/app/uterm/Main.hs

29 lines
578 B
Haskell

module Main where
import ClassyPrelude
import Control.Lens
import Pill hiding (main)
import Noun.Lens
--------------------------------------------------------------------------------
main :: IO ()
main = do
-- print "load brass" -- void getLine
-- tryLoadPill Brass
-- print "load ivory" -- void getLine
-- tryLoadPill Ivory
-- print "load solid" -- void getLine
-- tryLoadPill Solid
print "cue brass" -- void getLine
tryCueJamPill Brass
print "cue ivory" -- void getLine
tryCueJamPill Ivory
print "cue solid" -- void getLine
tryCueJamPill Solid