@@ -362,11 +362,11 @@ instance Read XslUnit where
362362estimateInMillimeter :: Int -> XslUnit -> Int
363363estimateInMillimeter n XslUnitMM = n
364364estimateInMillimeter n XslUnitCM = n * 10
365−estimateInMillimeter n XslUnitInch = n * 25 -- * 25.4
366−estimateInMillimeter n XslUnitPoints = n `div` 3 -- * 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
369−estimateInMillimeter n XslUnitEM = n * 7 -- * 16 * 1/72 * 25.4
365+estimateInMillimeter n XslUnitInch = n * 25 -- \* 25.4
366+estimateInMillimeter n XslUnitPoints = n `div` 3 -- \* 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
369+estimateInMillimeter n XslUnitEM = n * 7 -- \* 16 * 1/72 * 25.4
370370
371371
372372----
@@ -385,7 +385,7 @@ getListLevelStyle level ListStyle{..} =
385385 let (lower , exactHit , _) = M.splitLookup level levelStyles
386386 in exactHit <|> fmap fst (M.maxView lower)
387387 -- findBy (`M.lookup` levelStyles) [level, (level-1) .. 1]
388− -- ^ simpler, but in general less efficient
388+ -- \^ simpler, but in general less efficient
389389
390390data ListLevelStyle = ListLevelStyle { listLevelType :: ListLevelType
391391 , listItemPrefix :: Maybe String