We now use compileToCoreSimplified, I'm sure there will be dragons

[matthijs/master-project/cλash.git] / cλash / CLasH / Utils / GhcTools.hs

diff --git a/cλash/CLasH/Utils/GhcTools.hs b/cλash/CLasH/Utils/GhcTools.hs
index 5a041cc021173b79fbcb1ccd3cee14dee6808d8e..5b9bc350e3da973f678c679308b73cc4fd2abeb7 100644 (file)
--- a/cλash/CLasH/Utils/GhcTools.hs
+++ b/cλash/CLasH/Utils/GhcTools.hs
@@ -89,7 +89,7 @@ loadModules libdir filenames finder =
     GHC.runGhc (Just libdir) $ do
       dflags <- GHC.getSessionDynFlags
       GHC.setSessionDynFlags dflags
-      cores <- mapM GHC.compileToCoreModule filenames
+      cores <- mapM GHC.compileToCoreSimplified filenames
       env <- GHC.getSession
       specs <- case finder of
         Nothing -> return []