Use </>

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index 0717bf8..cab1ccc 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -2,7 +2,7 @@ module Lib
     ( someFunc
     ) where
 
--- import Development.Shake (cmd)
+import Development.Shake.FilePath ((</>))
 import System.Process (callCommand)
 
 
@@ -10,5 +10,5 @@ someFunc :: IO ()
 someFunc = do
     putStrLn "someFunc"
     a <- callCommand "gfortran test/test1.f90 -o test1"
-    a <- callCommand "./test1"
+    a <- callCommand $ "." </> "test1"
     return ()