X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FUtils%2FGhcTools.hs;h=5b9bc350e3da973f678c679308b73cc4fd2abeb7;hb=a34491e0fb9e9559ca0e7389b712b6e0de073c2e;hp=5a041cc021173b79fbcb1ccd3cee14dee6808d8e;hpb=adf357ab8731531dfea0a21254cfc613031e083a;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git "a/c\316\273ash/CLasH/Utils/GhcTools.hs" "b/c\316\273ash/CLasH/Utils/GhcTools.hs"
index 5a041cc..5b9bc35 100644
--- "a/c\316\273ash/CLasH/Utils/GhcTools.hs"
+++ "b/c\316\273ash/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 []