From 4450fe36297377dc951be179b0552266108581a6 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 6 May 2021 11:11:14 -0400
Subject: [PATCH] fromkey: create directory for pointer files too

fromkey creates leading directories for symbolic links.  Do the same
for pointer files.
---
 Command/FromKey.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Command/FromKey.hs b/Command/FromKey.hs
index eadb89fd16..16ff1693f4 100644
--- 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
-- 
2.39.5