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
|
|
|
|
|
|
2013-05-11 22:23:41 +00:00
|
|
|
import Utility.Env
|
2011-12-14 19:30:14 +00:00
|
|
|
|
|
|
|
|
{- 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
|
2012-12-13 04:24:19 +00:00
|
|
|
where
|
|
|
|
|
var = "GIT_INDEX_FILE"
|
|
|
|
|
reset (Just v) = setEnv var v True
|
|
|
|
|
reset _ = unsetEnv var
|
