unused --from . checks local repo, for consistency

Command/Unused.hs

@@ -37,13 +37,12 @@ seek = [withNothing start]
 start :: CommandStartNothing
 start = notBareRepo $ do
 	from <- Annex.getState Annex.fromremote
-	case from of
+	let (name, action) = case from of
-		Nothing -> pass "." checkUnused
+		Nothing -> (".", checkUnused)
-		Just n -> pass n $ checkRemoteUnused n
+		Just "." -> (".", checkUnused)
-	where
+		Just n -> (n, checkRemoteUnused n)
-		pass n a = do
+	showStart "unused" name
-			showStart "unused" n
+	next action
-			next a
 
 checkUnused :: CommandPerform
 checkUnused = do