{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
module Data.BAM.Version1_6.Read.Parser.BAM.BAMAlignments (
parse_BAM_V1_6_BAM_BAMAlignments
) where
import Data.BAM.Version1_6.BAM.BAMAlignments
import Data.BAM.Version1_6.Read.Parser.BAM.Alignment.Base
import Data.Attoparsec.ByteString.Lazy as DABL
import Data.Sequence as DSeq
parse_BAM_V1_6_BAM_BAMAlignments :: Parser BAM_V1_6_BAM_BAMAlignments
parse_BAM_V1_6_BAM_BAMAlignments :: Parser BAM_V1_6_BAM_BAMAlignments
parse_BAM_V1_6_BAM_BAMAlignments = do
[BAM_V1_6_BAM_Alignment]
alignments <-
Parser ByteString BAM_V1_6_BAM_Alignment
-> Parser ByteString [BAM_V1_6_BAM_Alignment]
forall (m :: * -> *) a. MonadPlus m => m a -> m [a]
DABL.many' Parser ByteString BAM_V1_6_BAM_Alignment
parse_BAM_V1_6_BAM_Alignment
BAM_V1_6_BAM_BAMAlignments -> Parser BAM_V1_6_BAM_BAMAlignments
forall a. a -> Parser ByteString a
forall (m :: * -> *) a. Monad m => a -> m a
return BAM_V1_6_BAM_BAMAlignments
{ bam_v1_6_bam_bamalignments_alignments :: Seq BAM_V1_6_BAM_Alignment
bam_v1_6_bam_bamalignments_alignments = [BAM_V1_6_BAM_Alignment] -> Seq BAM_V1_6_BAM_Alignment
forall a. [a] -> Seq a
DSeq.fromList [BAM_V1_6_BAM_Alignment]
alignments
}