blob: 2fd236457c085f1e46b0dd2f36baa2850648b307 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
import Development.Shake.FilePath ( (</>) )
import System.Directory ( withCurrentDirectory )
import System.Process ( callCommand )
main :: IO ()
main = do
testExampleProject
testExampleProject :: IO ()
testExampleProject =
withCurrentDirectory "example_project" $ callCommand "stack run -- build"
testHelloWorld :: IO ()
testHelloWorld =
withCurrentDirectory "hello_world" $ callCommand "stack run -- run"
|
