classAttr = case lookup "float" attrs of
Nothing -> ("class", "imageFrame")
Just "left" -> ("class", "imageFrame leftFloat")
Just "right" -> ("class", "imageFrame rightFloat")
Just others -> error ("unknown \"float\" attribute: " ++ others)
classAttr = case lookup "float" attrs of
Nothing -> ("class", "imageFrame")
Just "left" -> ("class", "imageFrame leftFloat")
Just "right" -> ("class", "imageFrame rightFloat")
Just others -> error ("unknown \"float\" attribute: " ++ others)