main :: IO ()
main = do
  setCurrentDirectory "Tests"
  callCommand "sh allTests.sh"
main :: IO ()
main = do
  setCurrentDirectory "Tests"
  callCommand "sh allTests.sh"
main = do
  setCurrentDirectory "Tests"
  callCommand "sh allTests.sh"