cobot-io-0.1.2.5: src/Bio/FASTA/Type.hs

module Bio.FASTA.Type
  ( Fasta
  , FastaItem (..)
  ) where

import           Bio.Sequence (BareSequence)
import           Data.Text    (Text)

-- | Type alias for FASTA file.
--  satisfies the following format : >(\s|\t)*[^\n\r]+(\s|\t)*(\n|\r)*((\w|\s)(\n|\r)*)*
--
type Fasta a = [FastaItem a]

-- | One record in FASTA file.
--
data FastaItem a
   = FastaItem { name :: Text           -- ^ name of the sequence
               , sequ :: BareSequence a -- ^ bare sequence
               }
  deriving (Eq, Show, Functor)