2011-12-14 19:30:14 +00:00
|
|
|
{- 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
|
2012-08-25 00:50:39 +00:00
|
|
|
- index file.
|
|
|
|
|
-
|
|
|
|
|
- Warning: Not thread safe.
|
|
|
|
|
-}
|
2011-12-14 19:30:14 +00:00
|
|
|
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
|
