lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-30 04:06:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

hlint changes

Browse Source
This commit is contained in:
John MacFarlane
2015-11-22 07:40:26 -08:00
parent a7f6241f50
commit bbb3d8d442
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Highlighting.hs
+1 -3
View File
@@ -65,9 +65,7 @@ highlight :: (FormatOptions -> [SourceLine] -> a) -- ^ Formatter
-> String -- ^ Raw contents of the CodeBlock
-> Maybe a -- ^ Maybe the formatted result
highlight formatter (_, classes, keyvals) rawCode =
let firstNum = case safeRead (fromMaybe "1" $ lookup "startFrom" keyvals) of
Just n -> n
Nothing -> 1
let firstNum = fromMaybe 1 (safeRead (fromMaybe "1" $ lookup "startFrom" keyvals))
fmtOpts = defaultFormatOpts{
startNumber = firstNum,
numberLines = any (`elem`