mirror of https://github.com/voidlizard/hbs2
27 lines
538 B
Haskell
27 lines
538 B
Haskell
module Fixme.Config where
|
|
|
|
import Fixme.Prelude
|
|
import Fixme.Types
|
|
|
|
import HBS2.System.Dir
|
|
import System.Environment
|
|
|
|
binName :: FixmePerks m => m FilePath
|
|
binName = liftIO getProgName
|
|
|
|
localConfigDir :: FixmePerks m => m FilePath
|
|
localConfigDir = do
|
|
p <- pwd
|
|
b <- binName
|
|
pure (p </> ("." <> b))
|
|
|
|
localConfig:: FixmePerks m => m FilePath
|
|
localConfig = localConfigDir <&> (</> "config")
|
|
|
|
localDBName :: FilePath
|
|
localDBName = "state.db"
|
|
|
|
localDBPath :: FixmePerks m => m FilePath
|
|
localDBPath = localConfigDir <&> (</> localDBName)
|
|
|