From e41010eb366b56de125ccf3a38e41b34a34a7b67 Mon Sep 17 00:00:00 2001 From: Vanessa McHale Date: Wed, 9 Feb 2022 13:25:15 -0600 Subject: [PATCH] @include current dir --- src/Jacinda/Include.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Jacinda/Include.hs b/src/Jacinda/Include.hs index cf4d5718..b9612a4d 100644 --- 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]