@@ -1171,7 +1171,8 @@ inputListing = do
11711171 let (ident,classes,kvs) = parseListingsOptions options
11721172 let classes' =
11731173 (case listingsLanguage options of
1174− Nothing -> (take 1 (languagesByExtension defaultSyntaxMap (T.pack $ takeExtension $ T.unpack f)) <>)
1174+ Nothing -> (take 1 (languagesByExtension defaultSyntaxMap
1175+ (T.pack $ takeExtension $ T.unpack f)) <>)
11751176 Just _ -> id) classes
11761177 let firstline = fromMaybe 1 $ lookup "firstline" options >>= safeRead
11771178 let lastline = fromMaybe (length codeLines) $