mirror of https://github.com/voidlizard/hbs2
31 lines
519 B
Haskell
31 lines
519 B
Haskell
module HBS2.Git3.Config.Local where
|
|
|
|
import HBS2.Prelude.Plated
|
|
import HBS2.OrDie
|
|
import HBS2.System.Dir
|
|
|
|
import HBS2.Git.Local.CLI
|
|
|
|
import System.Directory
|
|
|
|
import Data.Config.Suckless.Script
|
|
|
|
import Data.Text.IO qualified as IO
|
|
|
|
readLocalConf :: MonadIO m => m [Syntax C]
|
|
readLocalConf = do
|
|
|
|
let name = ".hbs2-git3/config"
|
|
|
|
g <- findGitDir
|
|
>>= orThrowUser ".git not found"
|
|
<&> (</> name) . takeDirectory
|
|
|
|
touch g
|
|
|
|
liftIO (IO.readFile g)
|
|
<&> parseTop
|
|
>>= either (error.show) pure
|
|
|
|
|