aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Lib.hs21
-rw-r--r--test/Spec.hs20
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 ()