Biobase.Vienna.Export

Export as a ViennaRNA 2004 .par file

asPar :: Vienna2004 -> Vienna2004 -> String

Helper functions

showKey :: [(LKey, Int)] -> String

Show the key of the line, minus the changing last key

type LKey = ([ViennaPair], [Nuc])

Transform from tuple-based keys to a pair of list-based keys.

pb2lkey :: :. (:. Z t) t1 -> ([t], [t1])

pbb2lkey :: :. (:. (:. Z t) t1) t1 -> ([t], [t1])

pp2lkey :: :. (:. Z t) t -> ([t], [a])

ppbb2lkey :: :. (:. (:. (:. Z t) t) t1) t1 -> ([t], [t1])

ppbbb2lkey :: :. (:. (:. (:. (:. Z t) t) t1) t1) t1 -> ([t], [t1])

ppbbbb2lkey :: :. (:. (:. (:. (:. (:. Z t) t) t1) t1) t1) t1 -> ([t], [t1])

printBlock :: (PrimArrayOps arr b Int, PrintfArg t) => t -> Int -> (b -> LKey) -> arr b Int -> [Char]

Print a block.

printBlockH :: PrimArrayOps arr b Int => [Char] -> Int -> (b -> LKey) -> arr b Int -> [Char]

printBlock22 :: (PrimArrayOps arr b Int, PrintfArg t) => t -> Int -> (b -> LKey) -> arr b Int -> [Char]

printBlock22H :: PrimArrayOps arr b Int => [Char] -> Int -> (b -> LKey) -> arr b Int -> [Char]

printBlockG :: (PrimArrayOps arr b Int, PrintfArg t) => ((LKey, Int) -> Bool) -> t -> Int -> (b -> LKey) -> arr b Int -> [Char]

printLine :: [(LKey, Int)] -> [Char]

printVal :: (Num a, Ord a, PrintfType r, PrintfArg a) => (t, a) -> r

printLinear :: (Num a, Ord a, PrimArrayOps arr t1 a, PrintfArg a, PrintfArg t) => t -> Int -> arr t1 a -> [Char]

A linear block is more boring

printHairpinAssocs :: IsChar a => Int -> Vienna2004 -> Vienna2004 -> [a]

printLinearH :: (Num a, Ord a, PrimArrayOps arr t a, PrintfArg a) => [Char] -> Int -> arr t a -> [Char]