parseTarget :: Parser (Target String)
parseTarget = Target <$> optional db <*> argument str (metavar "TARGET")
  where 
    db = option pkgDB $ mconcat
            [ long "package-db"
            , short 'd'
            , metavar "PATH"
            , help "Package DB for next TARGET"
            ]
parseTarget :: Parser (Target String)
parseTarget = Target <$> optional db <*> argument str (metavar "TARGET")
  where 
    db = option pkgDB $ mconcat
            [ long "package-db"
            , short 'd'
            , metavar "PATH"
            , help "Package DB for next TARGET"
            ]
parseTarget = Target <$> optional db <*> argument str (metavar "TARGET")
  where 
    db = option pkgDB $ mconcat
            [ long "package-db"
            , short 'd'
            , metavar "PATH"
            , help "Package DB for next TARGET"
            ]