@@ -362,11 +362,11 @@ instance Read XslUnit where
362estimateInMillimeter :: Int -> XslUnit -> Int
362estimateInMillimeter :: Int -> XslUnit -> Int
363estimateInMillimeter n XslUnitMM = n
363estimateInMillimeter n XslUnitMM = n
364estimateInMillimeter n XslUnitCM = n * 10
364estimateInMillimeter n XslUnitCM = n * 10
365−estimateInMillimeter n XslUnitInch = n * 25 -- * 25.4
365+estimateInMillimeter n XslUnitInch = n * 25 -- \* 25.4
366−estimateInMillimeter n XslUnitPoints = n `div` 3 -- * 1/72 * 25.4
366+estimateInMillimeter n XslUnitPoints = n `div` 3 -- \* 1/72 * 25.4
367−estimateInMillimeter n XslUnitPica = n * 4 -- * 12 * 1/72 * 25.4
367+estimateInMillimeter n XslUnitPica = n * 4 -- \* 12 * 1/72 * 25.4
368−estimateInMillimeter n XslUnitPixel = n `div`3 -- * 1/72 * 25.4
368+estimateInMillimeter n XslUnitPixel = n `div`3 -- \* 1/72 * 25.4
369−estimateInMillimeter n XslUnitEM = n * 7 -- * 16 * 1/72 * 25.4
369+estimateInMillimeter n XslUnitEM = n * 7 -- \* 16 * 1/72 * 25.4
@@ -385,7 +385,7 @@ getListLevelStyle level ListStyle{..} =
385 let (lower , exactHit , _) = M.splitLookup level levelStyles
385 let (lower , exactHit , _) = M.splitLookup level levelStyles
386 in exactHit <|> fmap fst (M.maxView lower)
386 in exactHit <|> fmap fst (M.maxView lower)
387 -- findBy (`M.lookup` levelStyles) [level, (level-1) .. 1]
387 -- findBy (`M.lookup` levelStyles) [level, (level-1) .. 1]
388− -- ^ simpler, but in general less efficient
388+ -- \^ simpler, but in general less efficient
390data ListLevelStyle = ListLevelStyle { listLevelType :: ListLevelType
390data ListLevelStyle = ListLevelStyle { listLevelType :: ListLevelType
391 , listItemPrefix :: Maybe String
391 , listItemPrefix :: Maybe String