module Types where
import qualified Data.Text as T
import qualified Data.Map.Strict as Map
import Data.Fasta.Text.Types
data GeneticUnit = AminoAcid | Nucleotide deriving (Read, Show)
data FrameType = InFrame | OutFrame deriving (Read, Show)
type ID = Int
type Codon = T.Text
type CodonMut = Int
type Field = Int
type Start = Int
type Stop = Int
type Position = Int
type Frame = Int
type CloneEntry = (Germline, [FastaSequence])
type FillInValue = (Field, Start, Char)
type CodonTable = [(T.Text, Char)]
type Mutation = (Char, Char)
type CountMap = Map.Map (Position, Mutation) Int
type CodonMutations = [[(Position, Mutation)]]