mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 20:51:43 +03:00
15 lines
323 B
Idris
15 lines
323 B
Idris
|
import System
|
||
|
|
import System.Info
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
Just expectedOs <- getEnv "EXPECTED_OS"
|
||
|
|
| Nothing => do
|
||
|
|
putStrLn "EXPECTED_OS unset"
|
||
|
|
exitFailure
|
||
|
|
case os == expectedOs of
|
||
|
|
True => putStrLn "correct"
|
||
|
|
False => do
|
||
|
|
putStrLn ("os=" ++ os ++ " expected=" ++ expectedOs)
|
||
|
|
exitFailure
|