diff options
Diffstat (limited to 'src/Command.hs')
| -rw-r--r-- | src/Command.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Command.hs b/src/Command.hs index aaaaca1..0d333e8 100644 --- a/src/Command.hs +++ b/src/Command.hs @@ -14,6 +14,7 @@ module Command ( getRepo, getDefaultRepo, tryGetDefaultRepo, getEvalInput, getTerminalOutput, + getStorageDir, ) where import Control.Monad.Catch @@ -27,6 +28,7 @@ import Data.Text.IO qualified as T import System.Console.GetOpt import System.Exit +import System.FilePath import System.IO import Config @@ -103,6 +105,7 @@ data CommandInput = CommandInput , ciContainingRepo :: Maybe Repo , ciOtherRepos :: [ ( RepoName, Repo ) ] , ciTerminalOutput :: TerminalOutput + , ciStorageDir :: Maybe FilePath } getCommonOptions :: CommandExec CommonOptions @@ -143,3 +146,8 @@ getEvalInput = CommandExec $ do getTerminalOutput :: CommandExec TerminalOutput getTerminalOutput = CommandExec (asks ciTerminalOutput) + +getStorageDir :: CommandExec FilePath +getStorageDir = CommandExec (asks ciStorageDir) >>= \case + Just dir -> return dir + Nothing -> ((</> ".minici") . takeDirectory) <$> getConfigPath |