parseCommand :: Parser Command
parseCommand = subparser $
    command "ca"   (parseCa `withInfo` "compute angles for the given hkl")
parseCommand :: Parser Command
parseCommand = subparser $
    command "ca"   (parseCa `withInfo` "compute angles for the given hkl")
parseCommand = subparser $
    command "ca"   (parseCa `withInfo` "compute angles for the given hkl")