{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
module Data.SAM.Version1_6.Alignment.OptionalFields.AOPT (
SAM_V1_6_Alignment_OptionalFields_AOPT(..)
) where
import Data.ByteString (ByteString)
import Data.Data
import Generics.Deriving.Base
data SAM_V1_6_Alignment_OptionalFields_AOPT = SAM_V1_6_Alignment_OptionalFields_AOPT
{ SAM_V1_6_Alignment_OptionalFields_AOPT -> ByteString
sam_v1_6_alignment_optionalfields_aopt_tag :: ByteString
, SAM_V1_6_Alignment_OptionalFields_AOPT -> ByteString
sam_v1_6_alignment_optionalfields_aopt_value :: ByteString
} deriving ((forall x.
SAM_V1_6_Alignment_OptionalFields_AOPT
-> Rep SAM_V1_6_Alignment_OptionalFields_AOPT x)
-> (forall x.
Rep SAM_V1_6_Alignment_OptionalFields_AOPT x
-> SAM_V1_6_Alignment_OptionalFields_AOPT)
-> Generic SAM_V1_6_Alignment_OptionalFields_AOPT
forall x.
Rep SAM_V1_6_Alignment_OptionalFields_AOPT x
-> SAM_V1_6_Alignment_OptionalFields_AOPT
forall x.
SAM_V1_6_Alignment_OptionalFields_AOPT
-> Rep SAM_V1_6_Alignment_OptionalFields_AOPT x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
SAM_V1_6_Alignment_OptionalFields_AOPT
-> Rep SAM_V1_6_Alignment_OptionalFields_AOPT x
from :: forall x.
SAM_V1_6_Alignment_OptionalFields_AOPT
-> Rep SAM_V1_6_Alignment_OptionalFields_AOPT x
$cto :: forall x.
Rep SAM_V1_6_Alignment_OptionalFields_AOPT x
-> SAM_V1_6_Alignment_OptionalFields_AOPT
to :: forall x.
Rep SAM_V1_6_Alignment_OptionalFields_AOPT x
-> SAM_V1_6_Alignment_OptionalFields_AOPT
Generic,Typeable)
instance Eq SAM_V1_6_Alignment_OptionalFields_AOPT where
SAM_V1_6_Alignment_OptionalFields_AOPT ByteString
sam_v1_6_alignment_optionalfields_aopt_tag1
ByteString
sam_v1_6_alignment_optionalfields_aopt_value1 == :: SAM_V1_6_Alignment_OptionalFields_AOPT
-> SAM_V1_6_Alignment_OptionalFields_AOPT -> Bool
==
SAM_V1_6_Alignment_OptionalFields_AOPT ByteString
sam_v1_6_alignment_optionalfields_aopt_tag2
ByteString
sam_v1_6_alignment_optionalfields_aopt_value2 =
ByteString
sam_v1_6_alignment_optionalfields_aopt_tag1 ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
== ByteString
sam_v1_6_alignment_optionalfields_aopt_tag2 Bool -> Bool -> Bool
&&
ByteString
sam_v1_6_alignment_optionalfields_aopt_value1 ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
== ByteString
sam_v1_6_alignment_optionalfields_aopt_value2
instance Show SAM_V1_6_Alignment_OptionalFields_AOPT where
show :: SAM_V1_6_Alignment_OptionalFields_AOPT -> String
show (SAM_V1_6_Alignment_OptionalFields_AOPT ByteString
tag
ByteString
value
) =
String
"SAM_V1_6_Alignment_OptionalFields_AOPT { " String -> ShowS
forall a. [a] -> [a] -> [a]
++
String
"sam_v1_6_alignment_optionalfields_aopt_tag = " String -> ShowS
forall a. [a] -> [a] -> [a]
++
(ByteString -> String
forall a. Show a => a -> String
show ByteString
tag) String -> ShowS
forall a. [a] -> [a] -> [a]
++
String
" , sam_v1_6_alignment_optionalfields_aopt_value = " String -> ShowS
forall a. [a] -> [a] -> [a]
++
(ByteString -> String
forall a. Show a => a -> String
show ByteString
value) String -> ShowS
forall a. [a] -> [a] -> [a]
++
String
" }"