Functional coverage tree: Difference between revisions
m
→{{header|Haskell}}: (Slight generalisation of `indentLevelsFromLines`)
m (→{{header|Haskell}}: ( No need for Coverage to derive Eq )) |
m (→{{header|Haskell}}: (Slight generalisation of `indentLevelsFromLines`)) |
||
Line 356:
import Control.Arrow ((&&&), first)
import Numeric (showFFloat)
import Data.Char (isSpace)
import Data.Bool (bool)
import Data.Tree
Line 429 ⟶ 430:
indentLevelsFromLines :: [T.Text] -> [(Int, T.Text)]
indentLevelsFromLines xs =
let pairs = T.span
indentUnit =
foldr
| |||