import: Preserve top-level directory structure.

1 files changed, 1 insertions, 1 deletions

diff --git a/Seek.hs b/Seek.hs
index b0a634564..85b266d49 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -60,7 +60,7 @@ withPathContents :: ((FilePath, FilePath) -> CommandStart) -> CommandSeek
 withPathContents a params = map a . concat <$> liftIO (mapM get params)
   where
 	get p = ifM (isDirectory <$> getFileStatus p)
-		( map (\f -> (f, makeRelative p f)) <$> dirContentsRecursive p
+		( map (\f -> (f, makeRelative (parentDir p) f)) <$> dirContentsRecursive p
 		, return [(p, takeFileName p)]
 		)