fromkey: create directory for pointer files too

fromkey creates leading directories for symbolic links.  Do the same
for pointer files.

diff --git a/Command/FromKey.hs b/Command/FromKey.hs
index eadb89fd1652edd07b4b8fab45abad92efaf6635..16ff1693f4bb3db424418da621ed8d498869409d 100644 (file)
--- a/Command/FromKey.hs
+++ b/Command/FromKey.hs
@@ -106,6 +106,7 @@ perform matcher key file = lookupKeyNotHidden file >>= \case
                                        , matchKey = Just key
                                        }
                                else keyMatchInfoWithoutContent key file
+                       createWorkTreeDirectory (parentDir file)
                        ifM (addUnlocked matcher mi contentpresent)
                                ( do
                                        stagePointerFile file Nothing =<< hashPointerFile key
@@ -115,7 +116,6 @@ perform matcher key file = lookupKeyNotHidden file >>= \case
                                                else writepointer
                                , do
                                        link <- calcRepo $ gitAnnexLink file key
-                                       createWorkTreeDirectory (parentDir file)
                                        addAnnexLink link file
                                )
                        next $ return True