diff options
Diffstat (limited to 'Remote/Hook.hs')
-rw-r--r-- | Remote/Hook.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Remote/Hook.hs b/Remote/Hook.hs index ce7781cfb..31b5ab7c5 100644 --- a/Remote/Hook.hs +++ b/Remote/Hook.hs @@ -7,8 +7,6 @@ module Remote.Hook (remote) where -import qualified Data.Map as M - import Common.Annex import Types.Remote import Types.Key @@ -20,6 +18,9 @@ import Annex.UUID import Remote.Helper.Special import Utility.Env +import Data.Default +import qualified Data.Map as M + type Action = String type HookName = String @@ -90,7 +91,7 @@ hookEnv action k f = Just <$> mergeenv (fileenv f ++ keyenv) ] fileenv Nothing = [] fileenv (Just file) = [envvar "FILE" file] - hashbits = map takeDirectory $ splitPath $ hashDirMixed k + hashbits = map takeDirectory $ splitPath $ hashDirMixed def k lookupHook :: HookName -> Action -> Annex (Maybe String) lookupHook hookname action = do |