shell-monad-0.6.7: examples/hello.hs

{-# LANGUAGE OverloadedStrings, ExtendedDefaultRules #-}
import Control.Monad.Shell
import Data.Monoid
import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as T
default (T.Text)

main :: IO ()
main = T.writeFile "hello.sh" $ script $ do
	cmd "echo" "hello, world"
	username <- newVarFrom (Output (cmd "whoami")) ()
	cmd "echo" "from" (WithVar username (<> "'s shell"))

	v <- globalVar "SOMEVAR"
	ifCmd (test $ TStrEqual v "")
		(cmd "echo" "Bad")
		(cmd "echo" "Good")