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

prune

Browse source
This commit is contained in:
Joey Hess 2010-10-17 12:09:52 -04:00
parent 76ba2d0030
commit 98676928c8
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex.hs
View file

@ -8,7 +8,6 @@ module Annex (
backends, backends,
backendsChange, backendsChange,
supportedBackends, supportedBackends,
supportedBackendsChange,
flagIsSet, flagIsSet,
flagChange, flagChange,
Flag(..) Flag(..)
@ -64,11 +63,6 @@ supportedBackends :: Annex [Backend]
supportedBackends = do supportedBackends = do
state <- get state <- get
return (Backend.supportedBackends state) return (Backend.supportedBackends state)
supportedBackendsChange :: [Backend] -> Annex ()
supportedBackendsChange b = do
state <- get
put state { Backend.supportedBackends = b }
return ()
flagIsSet :: Flag -> Annex Bool flagIsSet :: Flag -> Annex Bool
flagIsSet flag = do flagIsSet flag = do
state <- get state <- get