@@ -49,7 +49,7 @@ pCol = try $ do
4949 return $ case lookup "width" attribs of
5050 Nothing -> case lookup "style" attribs of
5151 Just (T.stripPrefix "width:" -> Just xs) | T.any (== '%') xs ->
52− maybe (Right ColWidthDefault) (Right . ColWidth)
52+ maybe (Right ColWidthDefault) (Right . ColWidth . (/ 100.0))
5353 $ safeRead (T.filter
5454 (`notElem` (" \t\r\n%'\";" :: [Char])) xs)
5555 _ -> Right ColWidthDefault