Merge pull request #41 from certik/call

Test calling GFortran from Haskell

1 files changed, 17 insertions, 2 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index d36ff27..3d4aede 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -1,6 +1,21 @@
 module Lib
-    ( someFunc
+    ( someFunc,
+      someFunc2
     ) where
 
+import Development.Shake.FilePath ((</>))
+import System.Process (callCommand)
+
+
 someFunc :: IO ()
-someFunc = putStrLn "someFunc"
+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 ()