blob: c9ec08cd061aae5b81475050785dc58dcdae0d62 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
import Development.Shake.FilePath ( (</>) )
import System.Process ( callCommand )
main :: IO ()
main = do
someFunc
someFunc2
someFunc :: IO ()
someFunc = do
putStrLn "someFunc"
a <- callCommand "gfortran test/test1.f90 -o test1"
a <- callCommand $ "." </> "test1"
return ()
someFunc2 :: IO ()
someFunc2 = do
putStrLn "example"
a <- callCommand "cd example_project && stack run -- build"
return ()
|
