@@ -33,21 +33,21 @@ import Data.Maybe
3333-- e.g. unlit/cpp. Return the resulting buffer and the DynFlags it implies.
3434preprocessor :: GhcMonad m => FilePath -> Maybe StringBuffer -> ExceptT [FileDiagnostic] m (StringBuffer, DynFlags)
3535preprocessor filename mbContents = do
36− -- Perform unlit
37− (isOnDisk, contents) <- if isLiterate filename then do
36+ -- Perform unlit
37+ (isOnDisk, contents) <- if isLiterate filename then do
3838 dflags <- getDynFlags
3939 newcontent <- liftIO $ runLhs dflags filename mbContents
4040 return (False, newcontent)
41− else do
42− contents <- liftIO $ maybe (hGetStringBuffer filename) return mbContents
43− let isOnDisk = isNothing mbContents
44− return (isOnDisk, contents)
45−
46− -- Perform cpp
47− dflags <- ExceptT $ parsePragmasIntoDynFlags filename contents
48− if not $ xopt LangExt.Cpp dflags then
41+ else do
42+ contents <- liftIO $ maybe (hGetStringBuffer filename) return mbContents
43+ let isOnDisk = isNothing mbContents
44+ return (isOnDisk, contents)
45+
46+ -- Perform cpp
47+ dflags <- ExceptT $ parsePragmasIntoDynFlags filename contents
48+ if not $ xopt LangExt.Cpp dflags then
4949 return (contents, dflags)
50− else do
50+ else do
5151 contents <- liftIO $ runCpp dflags filename $ if isOnDisk then Nothing else Just contents
5252 dflags <- ExceptT $ parsePragmasIntoDynFlags filename contents
5353 return (contents, dflags)