diff options
author | Joey Hess <joey@kitenet.net> | 2011-12-14 15:30:14 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-12-14 15:43:13 -0400 |
commit | 02f1bd2bf47d3ff49a222e9428ec27708ef55f64 (patch) | |
tree | 456548530c65850a829a1a85609070bc111de1b9 /Git/Index.hs | |
parent | 2b24e16a633575703a43e1fb991f34b290a1d7e4 (diff) |
split more stuff out of Git.hs
Diffstat (limited to 'Git/Index.hs')
-rw-r--r-- | Git/Index.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Git/Index.hs b/Git/Index.hs new file mode 100644 index 000000000..aaf54e032 --- /dev/null +++ b/Git/Index.hs @@ -0,0 +1,24 @@ +{- git index file stuff + - + - Copyright 2011 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Git.Index where + +import System.Posix.Env (setEnv, unsetEnv, getEnv) + +{- Forces git to use the specified index file. + - + - Returns an action that will reset back to the default + - index file. -} +override :: FilePath -> IO (IO ()) +override index = do + res <- getEnv var + setEnv var index True + return $ reset res + where + var = "GIT_INDEX_FILE" + reset (Just v) = setEnv var v True + reset _ = unsetEnv var |