@include current dir

vmchale · Feb 9, 2022 · e41010e · e41010e
1 parent 7dc300f
commit e41010e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Jacinda/Include.hs b/src/Jacinda/Include.hs
@@ -7,7 +7,7 @@ import           Control.Monad      (filterM)
 import           Data.List.Split    (splitWhen)
 import           Data.Maybe         (listToMaybe)
 import           Paths_jacinda      (getDataDir)
-import           System.Directory   (doesFileExist)
+import           System.Directory   (doesFileExist, getCurrentDirectory)
 import           System.Environment (lookupEnv)
 import           System.FilePath    ((</>))
 
@@ -19,7 +19,8 @@ defaultIncludes :: IO ([FilePath] -> [FilePath])
 defaultIncludes = do
     path <- jacPath
     d <- getDataDir
-    pure $ (d:) . (++path)
+    dot <- getCurrentDirectory
+    pure $ (dot:) . (d:) . (++path)
 
 -- | Parsed @JAC_PATH@
 jacPath :: IO [FilePath]