mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix test suite build

Browse source
This commit is contained in:
Joey Hess 2012-04-30 13:59:05 -04:00
parent 0c9c14b52f
commit bf70bbdbfc
3 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex.hs
View file

@ -18,6 +18,7 @@ module Annex (
changeState,
setFlag,
setField,
setOutput,
getFlag,
getField,
addCleanup,
@ -148,6 +149,11 @@ addCleanup :: String -> Annex () -> Annex ()
addCleanup uid a = changeState $ \s ->
s { cleanup = M.insertWith' const uid a $ cleanup s }
{- Sets the type of output to emit. -}
setOutput :: OutputType -> Annex ()
setOutput o = changeState $ \s ->
s { output = (output s) { outputType = o } }
{- Checks if a flag was set. -}
getFlag :: String -> Annex Bool
getFlag flag = fromMaybe False . M.lookup flag <$> getState flags