import: Preserve top-level directory structure.

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)]
 		)
 

debian/changelog

@@ -4,6 +4,7 @@ git-annex (4.20130921) UNRELEASED; urgency=low
     if you created one you must manually upgrade it.
     See http://git-annex.branchable.com/upgrades/gcrypt/
   * git-annex-shell: Added support for operating inside gcrypt repositories.
+  * import: Preserve top-level directory structure.
   * Use cryptohash rather than SHA for hashing when no external hash program
     is available. This is a significant speedup for SHA256 on OSX, for
     example.

doc/git-annex.mdwn

@@ -206,10 +206,9 @@ subdirectories).
 
   Moves files from somewhere outside the git working copy, and adds them to
   the annex. Individual files to import can be specified. 
-  If a directory is specified, all files in it are imported, and any
-  subdirectory structure inside it is preserved.
+  If a directory is specified, the entire directory is imported.
 
-        	git annex import /media/camera/DCIM/
+        	git annex import /media/camera/DCIM/*
 
   By default, importing two files with the same contents from two different
   locations will result in both files being added to the repository.