12 lines
242 B
Haskell
12 lines
242 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import MiniShellChoice.Message (message)
|
||
|
|
import System.Exit (die)
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main =
|
||
|
|
if message == "compare the generic shell and the shellFor shell" then
|
||
|
|
putStrLn "test passed"
|
||
|
|
else
|
||
|
|
die "unexpected message"
|