blob: 7aabc09c35e83efd90735cc3753d7efe20d19d18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
import Development.Shake.FilePath ( (</>) )
import Fpm ( Arguments(..)
, Command(..)
, start
)
import System.Directory ( withCurrentDirectory )
main :: IO ()
main = do
testExampleProject
testHelloWorld
testHelloComplex
testExampleProject :: IO ()
testExampleProject =
withCurrentDirectory "example_project" $ start $ Arguments Build False
testHelloWorld :: IO ()
testHelloWorld =
withCurrentDirectory "hello_world" $ start $ Arguments Run False
testHelloComplex :: IO ()
testHelloComplex =
withCurrentDirectory "hello_complex" $ start $ Arguments Test False
|
