import           AlBhed              (Volume, Primer)

import           AlBhed              (Primer, Volume)

    | New Volume Char Char Location

    ( command "primer" (info (Primer <$> commandPrimerAdd) (progDesc "Work with AlBhed Primers")))

    ( command "primer" (info (Primer <$> commandPrimer) (progDesc "Work with AlBhed Primers")))

commandPrimerAdd :: Parser PrimerCommand
commandPrimerAdd = hsubparser
    ( command "add" (info parsePrimerAdd (progDesc "Add a primer to the index")))

commandPrimer :: Parser PrimerCommand
commandPrimer = hsubparser
    ( command "add" (info parsePrimerAdd (progDesc "Add a primer location to the index"))
    <> command "new" (info parsePrimerNew (progDesc "Add a new AlBhed Primer to the index"))
    )

parsePrimerNew :: Parser PrimerCommand
parsePrimerNew = New <$> volume <*> char "FROM" <*> char "TO" <*> location
    where
        char = argument auto . metavar