diff options
-rw-r--r-- | src/Lib.hs | 21 | ||||
-rw-r--r-- | test/Spec.hs | 20 |
2 files changed, 17 insertions, 24 deletions
diff --git a/src/Lib.hs b/src/Lib.hs deleted file mode 100644 index 3d4aede..0000000 --- a/src/Lib.hs +++ /dev/null @@ -1,21 +0,0 @@ -module Lib - ( someFunc, - someFunc2 - ) where - -import Development.Shake.FilePath ((</>)) -import System.Process (callCommand) - - -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 () diff --git a/test/Spec.hs b/test/Spec.hs index 1c9fc48..c9ec08c 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -1,6 +1,20 @@ -import Lib (someFunc, someFunc2) +import Development.Shake.FilePath ( (</>) ) +import System.Process ( callCommand ) main :: IO () main = do - someFunc - someFunc2 + 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 () |