templatise-0.1.1.0: lib/initialise/Git.hs

module Git (config) where

import Data.Text (Text, pack, unpack)
import System.Process (readProcess)

config :: Text -> IO Text
config key = pack . head . lines <$> readProcess "git" ["config", unpack key] ""