1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-20 05:11:46 +03:00
urbit/pkg/hs-vere/app/uterm/Main.hs

28 lines
544 B
Haskell

module Main where
import ClassyPrelude
import Control.Lens
import Data.Noun.Pill hiding (main)
--------------------------------------------------------------------------------
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
tryCuePill Brass
print "cue ivory" >> void getLine
tryCuePill Ivory
print "cue solid" >> void getLine
tryCuePill Solid