Minor code reformatting.
Also taking this opportunity to note, for the record, that the commit for #7241 should be marked [API change]. It changes the type of `languagesByExtension` in Highlighting, adding a parameter for a `SyntaxMap`.
This commit is contained in:
parent
c56d080a25
commit
3a98f7a0c7
1 changed files with 2 additions and 1 deletions
|
@ -1171,7 +1171,8 @@ inputListing = do
|
|||
let (ident,classes,kvs) = parseListingsOptions options
|
||||
let classes' =
|
||||
(case listingsLanguage options of
|
||||
Nothing -> (take 1 (languagesByExtension defaultSyntaxMap (T.pack $ takeExtension $ T.unpack f)) <>)
|
||||
Nothing -> (take 1 (languagesByExtension defaultSyntaxMap
|
||||
(T.pack $ takeExtension $ T.unpack f)) <>)
|
||||
Just _ -> id) classes
|
||||
let firstline = fromMaybe 1 $ lookup "firstline" options >>= safeRead
|
||||
let lastline = fromMaybe (length codeLines) $
|
||||
|
|
Loading…
Reference in a new issue