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

refactor

Browse source
This commit is contained in:
Joey Hess 2011-12-26 03:03:49 -04:00
parent cacdf58e9c
commit bd86f83b84
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Git/PostFetch.hs
View file

@ -23,11 +23,10 @@ data FetchedRef = FetchedRef
- being updated. It's important that the hook always outputs every line - being updated. It's important that the hook always outputs every line
- that is fed into it (possibly modified), otherwise incoming refs will - that is fed into it (possibly modified), otherwise incoming refs will
- not be stored. So to avoid breaking if the format changes, unparsable - not be stored. So to avoid breaking if the format changes, unparsable
- lines are stored as-is. -} - lines are passed through unchanged. -}
type HookLine = Either String FetchedRef type HookLine = Either String FetchedRef
{- Runs the hook, allowing lines to be mutated, but never be discarded. {- Runs the hook, allowing lines to be mutated, but never be discarded. -}
- Unparsable lines are passed through unchanged. -}
runHook :: (FetchedRef -> IO FetchedRef) -> IO () runHook :: (FetchedRef -> IO FetchedRef) -> IO ()
runHook mutate = runHook' go id runHook mutate = runHook' go id
where where
@ -35,7 +34,7 @@ runHook mutate = runHook' go id
go (Right r) = Right <$> catchDefaultIO (mutate r) r go (Right r) = Right <$> catchDefaultIO (mutate r) r
{- Runs the hook, allowing lines to be mutated, discarded, or produce {- Runs the hook, allowing lines to be mutated, discarded, or produce
- multiple output lines. Unparsable lines are passed through unchanged. -} - multiple output lines. -}
runHookUnsafe :: (FetchedRef -> IO [FetchedRef]) -> IO () runHookUnsafe :: (FetchedRef -> IO [FetchedRef]) -> IO ()
runHookUnsafe mutate = runHook' go concat runHookUnsafe mutate = runHook' go concat
where where