diff options
-rw-r--r-- | src/Lib.hs | 9 | ||||
-rw-r--r-- | test/Spec.hs | 6 |
2 files changed, 12 insertions, 3 deletions
@@ -1,5 +1,6 @@ module Lib - ( someFunc + ( someFunc, + someFunc2 ) where import Development.Shake.FilePath ((</>)) @@ -12,3 +13,9 @@ someFunc = do 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 () diff --git a/test/Spec.hs b/test/Spec.hs index a1a07c6..1c9fc48 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,4 +1,6 @@ -import Lib (someFunc) +import Lib (someFunc, someFunc2) main :: IO () -main = someFunc +main = do + someFunc + someFunc2 |