Revision as of 04:03, 14 October 2019 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}) ← Older edit		Revision as of 04:29, 14 October 2019 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}) Newer edit →
Line 379: titles = init $ tokenize delimiter (head indentedLines) in T.unlines [ ~~titleLine~~tabulation (titles ++ ["SHARE OF RESIDUE"]) , indentedLinesFromTree " " showCoverage $ withResidueShares 1.0 $ Line 466: showCoverage :: T.Text -> Coverage -> T.Text showCoverage indent x = tabulation ~~T.intercalate~~ ([T.~~justifyLeft~~append 9indent '(name 'x), (T.pack (showN 0 (weight x)))] :++▼ ~~"\| "~~ ((T.~~justifyLeft~~pack 31. 'showN '4) <$> (~~T.append~~[coverage, ~~indent~~share] ~~(name~~<> [x]))) : ▲ T.justifyLeft 9 ' ' (T.pack (showN 0 (weight x))) : ~~((T.justifyLeft 9 ' ' . T.pack . showN 4) <$> ([coverage, share] <> [x])))~~ ~~titleLine~~tabulation :: [T.Text] -> T.Text ~~titleLine~~tabulation = T.intercalate "\| " . zipWith (`T.justifyLeft` ' ') [31, 9, 9, 9] justifyRight :: Int -> a -> [a] -> [a]

Functional coverage tree (view source)