Commit 4dc0f607 authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Fixed wrong order of preprocessor application and lexing

parent e8e265fa
......@@ -132,8 +132,8 @@ parseModule opts m fn = do
Nothing -> failMessages [message $ text $ "Missing file: " ++ fn]
Just src -> do
ul <- liftCYM $ CS.unlit fn src
posToks <- liftCYM $ CS.lexSource fn ul
prepd <- preprocess (optPrepOpts opts) fn ul
posToks <- liftCYM $ CS.lexSource fn prepd
ast <- liftCYM $ CS.parseModule fn prepd
checked <- checkModuleHeader opts m fn ast
return (posToks, checked)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment