import           AlBhed              (Volume)

import           AlBhed              (Volume, Primer)

data Command =
    Primer PrimerCommand
    deriving (Show)
data PrimerCommand =
    Add Volume Location
    deriving (Show)
mainOpts :: Parser Command
mainOpts = mainCommand
mainCommand :: Parser Command
mainCommand = hsubparser
    ( command "primer" (info (Primer <$> commandPrimerAdd) (progDesc "Work with AlBhed Primers")))
commandPrimerAdd :: Parser PrimerCommand
commandPrimerAdd = hsubparser
    ( command "add" (info parsePrimerAdd (progDesc "Add a primer to the index")))

parsePrimerAdd :: Parser PrimerCommand
parsePrimerAdd = Add <$> volume <*> location

        opts = info (Options.volume <**> helper)

        opts = info (Options.mainOpts <**> helper)