odelAccession :: Getter Model (Accession ())
modelAccession = to f
  where f m = case m of
                Left hmm -> retagAccession $ HMM._accession hmm
                Right cm -> retagAccession $ CM._accession  cm

modelAccession :: Getter Model (Accession ())
modelAccession = to f
  where f m = case m of
                Left hmm -> retagAccession $ HMM._accession hmm
                Right cm -> retagAccession $ CM._accession  cm
modelAccession = to f
  where f m = case m of
                Left hmm -> retagAccession $ HMM._accession hmm
                Right cm -> retagAccession $ CM._accession  cm