diff options
Diffstat (limited to 'utils/check-exact/Preprocess.hs')
| -rw-r--r-- | utils/check-exact/Preprocess.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/utils/check-exact/Preprocess.hs b/utils/check-exact/Preprocess.hs index aa474df2b1..3be090061f 100644 --- a/utils/check-exact/Preprocess.hs +++ b/utils/check-exact/Preprocess.hs @@ -213,7 +213,6 @@ getPreprocessedSrcDirectPrim cppOptions src_fn = do hsc_env <- GHC.getSession let dfs = GHC.hsc_dflags hsc_env new_env = hsc_env { GHC.hsc_dflags = injectCppOptions cppOptions dfs } - -- (dflags', hspp_fn) <- r <- GHC.liftIO $ GHC.preprocess new_env src_fn Nothing (Just (GHC.Cpp GHC.HsSrcFile)) case r of Left err -> error $ showErrorMessages err @@ -309,4 +308,3 @@ mergeBy cmp (allx@(x:xs)) (ally@(y:ys)) -- Someone please put this code out of its misery. | (x `cmp` y) <= EQ = x : mergeBy cmp xs ally | otherwise = y : mergeBy cmp allx ys - |