module DP.Backtraced.Codon where
import Data.ByteString (ByteString)
import Data.Vector (Vector)
import GHC.Generics (Generic)
import Biobase.Types.Codon
data BtCodon c aa
= Match
{ BtCodon c aa -> Codon c
_codon ∷ !(Codon c)
, BtCodon c aa -> aa
_aa ∷ !aa
}
| Frameshift
{ BtCodon c aa -> Vector c
_frameshift ∷ !(Vector c)
, _aa ∷ !aa
}
| Insert
{ _codon ∷ !(Codon c)
, _aa ∷ !aa
}
| Shifted
{ _frameshift ∷ !(Vector c)
, _aa ∷ !aa
}
| Region
{ BtCodon c aa -> Vector c
_region ∷ !(Vector c)
, BtCodon c aa -> ByteString
_annotation ∷ !ByteString
}
| Delete
{
}