- | A getter for the name of the model. Be it CM or HMM.

modelName :: Getter Model Text
modelName = to f
  where f m = case m of
                Left hmm -> HMM._name hmm
                Right cm -> CM._name cm

modelName :: Getter Model Text
modelName = to f
  where f m = case m of
                Left hmm -> HMM._name hmm
                Right cm -> CM._name cm
modelName = to f
  where f m = case m of
                Left hmm -> HMM._name hmm
                Right cm -> CM._name cm