module Biobase.Secondary.Structure where
import Data.Map.Strict (Map)
import Data.Text (Text)
import qualified Data.Text as T
import Biobase.Secondary.Diagrams
data SecondaryStructure = SS
{ SecondaryStructure -> Text
_ssSeq :: !Text
, SecondaryStructure -> D1Secondary
_ssVienna :: !D1Secondary
, SecondaryStructure -> D2Secondary
_ssExt :: !D2Secondary
, SecondaryStructure -> Maybe ()
_ssViennaE :: Maybe ()
, SecondaryStructure -> Map Text Text
_ssAux :: Map Text Text
}
deriving (SecondaryStructure -> SecondaryStructure -> Bool
(SecondaryStructure -> SecondaryStructure -> Bool)
-> (SecondaryStructure -> SecondaryStructure -> Bool)
-> Eq SecondaryStructure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SecondaryStructure -> SecondaryStructure -> Bool
$c/= :: SecondaryStructure -> SecondaryStructure -> Bool
== :: SecondaryStructure -> SecondaryStructure -> Bool
$c== :: SecondaryStructure -> SecondaryStructure -> Bool
Eq,Int -> SecondaryStructure -> ShowS
[SecondaryStructure] -> ShowS
SecondaryStructure -> String
(Int -> SecondaryStructure -> ShowS)
-> (SecondaryStructure -> String)
-> ([SecondaryStructure] -> ShowS)
-> Show SecondaryStructure
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SecondaryStructure] -> ShowS
$cshowList :: [SecondaryStructure] -> ShowS
show :: SecondaryStructure -> String
$cshow :: SecondaryStructure -> String
showsPrec :: Int -> SecondaryStructure -> ShowS
$cshowsPrec :: Int -> SecondaryStructure -> ShowS
Show,ReadPrec [SecondaryStructure]
ReadPrec SecondaryStructure
Int -> ReadS SecondaryStructure
ReadS [SecondaryStructure]
(Int -> ReadS SecondaryStructure)
-> ReadS [SecondaryStructure]
-> ReadPrec SecondaryStructure
-> ReadPrec [SecondaryStructure]
-> Read SecondaryStructure
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SecondaryStructure]
$creadListPrec :: ReadPrec [SecondaryStructure]
readPrec :: ReadPrec SecondaryStructure
$creadPrec :: ReadPrec SecondaryStructure
readList :: ReadS [SecondaryStructure]
$creadList :: ReadS [SecondaryStructure]
readsPrec :: Int -> ReadS SecondaryStructure
$creadsPrec :: Int -> ReadS SecondaryStructure
Read)