extract-content-original-model.hs

import qualified Data.Map.Strict as M

data Node = Text String | Element (M.Map String AttributeValue)
data AttributeValue = Value String | Content [Node]

extractContent :: Node -> [String]
extractContent (Text s) = [s]
extractContent (Element e) =
  case M.lookup "content" e of
    Just (Content list) -> list >>= extractContent
    _ -> []

extract-content-zbetter-model.hs

import qualified Data.Map.Strict as M

type Attributes = M.Map String String
data Node = Text String | Element Attributes [Node]

extractContent :: Node -> [String]
extractContent (Text s) = [s]
extractContent (Element _ nodes) = nodes >>= extractContent