fix option parser

Alternative doesn't combine the subparsers the way I wanted.
Unfortunately this new parser has suboptimal usage because everything is
all jumbled together.

Command/Import.hs

@@ -38,7 +38,8 @@ cmd = notBareRepo $
 	withGlobalOptions [jobsOption, jsonOptions, fileMatchingOptions] $
 		command "import" SectionCommon 
 			"move and add files from outside git working copy"
-			paramPaths (seek <$$> optParser)
+			(paramPaths ++ "|BRANCH[:SUBDIR]")
+			(seek <$$> optParser)
 
 data ImportOptions 
 	= LocalImportOptions
@@ -52,19 +53,19 @@ data ImportOptions
 		}
 
 optParser :: CmdParamsDesc -> Parser ImportOptions
-optParser desc = remoteopts <|> localopts
+optParser desc = do
-  where
+	ps <- cmdParams desc
-	localopts = LocalImportOptions
+	mfromremote <- optional $ parseRemoteOption <$> parseFromOption
-		<$> cmdParams desc
+	dupmode <- fromMaybe Default <$> optional duplicateModeParser
-		<*> (fromMaybe Default <$> optional duplicateModeParser)
+	return $ case mfromremote of
-	remoteopts = do
+		Nothing -> LocalImportOptions ps dupmode
-		remote <- parseRemoteOption <$> parseFromOption
+		Just r -> case ps of
-		(branch, subdir) <- separate (== ':') <$> argument str
+			[bs] -> 
-			( metavar "BRANCH[:SUBDIR]"
+				let (branch, subdir) = separate (== ':') bs
-			)
+				in RemoteImportOptions r
-		pure $ RemoteImportOptions remote
 					(Ref branch)
 					(if null subdir then Nothing else Just subdir)
+			_ -> giveup "expected BRANCH[:SUBDIR]"
 
 data DuplicateMode = Default | Duplicate | DeDuplicate | CleanDuplicates | SkipDuplicates | ReinjectDuplicates
 	deriving (Eq)