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