getText :: Block -> Maybe String
getText (Div (_, _, kvs) _) = lookup "text" kvs
getText :: Block -> Maybe String
getText (Div (_, _, kvs) _) = lookup "text" kvs
getText (Div (_, _, kvs) _) = lookup "text" kvs