mirror of
https://github.com/urbit/shrub.git
synced 2024-12-23 02:41:35 +03:00
29 lines
565 B
Haskell
29 lines
565 B
Haskell
module Main where
|
|
|
|
import ClassyPrelude
|
|
import Control.Lens
|
|
import Noun.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
|