@@ -852,18 +852,18 @@ braced' = try $ char '{' *> manyTill (satisfy (/='}')) (char '}')
852852
853853include' :: IncludeParser
854854include' = do
855− name <- try $ do
855+ fs' <- try $ do
856856 char '\\'
857− try (string "include")
858− <|> try (string "input")
859− <|> string "usepackage"
860− -- skip options
861− skipMany $ try $ char '[' *> (manyTill anyChar (char ']'))
862− fs <- (map trim . splitBy (==',')) <$> braced'
857+ name <- try (string "include")
858+ <|> try (string "input")
859+ <|> string "usepackage"
860+ -- skip options
861+ skipMany $ try $ char '[' *> (manyTill anyChar (char ']'))
862+ fs <- (map trim . splitBy (==',')) <$> braced'
863+ return $ if name == "usepackage"
864+ then map (flip replaceExtension ".sty") fs
865+ else map (flip replaceExtension ".tex") fs
863866 pos <- getPosition
864− let fs' = if name == "usepackage"
865− then map (flip replaceExtension ".sty") fs
866− else map (flip replaceExtension ".tex") fs
867867 containers <- getState
868868 let fn = case containers of
869869 (f':_) -> f'