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

update

Browse source
This commit is contained in:
Joey Hess 2010-10-13 23:03:01 -04:00
parent 912d10e78b
commit 64b5167b0f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Types.hs
View file

@ -1,7 +1,8 @@
{- git-annex core data types -} {- git-annex core data types -}
module Types ( module Types (
Annex(..), Annex,
AnnexState,
makeAnnexState, makeAnnexState,
runAnnexState, runAnnexState,
gitAnnex, gitAnnex,
@ -9,7 +10,6 @@ module Types (
backendsAnnex, backendsAnnex,
backendsAnnexChange, backendsAnnexChange,
AnnexState(..),
Key(..), Key(..),
Backend(..) Backend(..)
) where ) where
@ -34,7 +34,7 @@ makeAnnexState g = AnnexState { repo = g, backends = [] }
-- performs an action in the Annex monad -- performs an action in the Annex monad
runAnnexState state action = runStateT (action) state runAnnexState state action = runStateT (action) state
-- state accessors -- Annex monad state accessors
gitAnnex :: Annex GitRepo gitAnnex :: Annex GitRepo
gitAnnex = do gitAnnex = do
state <- get state <- get