@@ -65,9 +65,7 @@ highlight :: (FormatOptions -> [SourceLine] -> a) -- ^ Formatter
6565 -> String -- ^ Raw contents of the CodeBlock
6666 -> Maybe a -- ^ Maybe the formatted result
6767highlight formatter (_, classes, keyvals) rawCode =
68− let firstNum = case safeRead (fromMaybe "1" $ lookup "startFrom" keyvals) of
69− Just n -> n
70− Nothing -> 1
68+ let firstNum = fromMaybe 1 (safeRead (fromMaybe "1" $ lookup "startFrom" keyvals))
7169 fmtOpts = defaultFormatOpts{
7270 startNumber = firstNum,
7371 numberLines = any (`elem`