X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FUtils%2FHsTools.hs;h=22b13823a2465637d7cbc632dd86b8ab5c94c472;hp=c08bad7b4fe1a0b133957cee6addf91c359d1eb9;hb=07fd74a9679d6a2480f773573f631a1c55d2c74c;hpb=3bb8c684038e01d1b8c3db13d9a57b1f0fd99925 diff --git "a/c\316\273ash/CLasH/Utils/HsTools.hs" "b/c\316\273ash/CLasH/Utils/HsTools.hs" index c08bad7..22b1382 100644 --- "a/c\316\273ash/CLasH/Utils/HsTools.hs" +++ "b/c\316\273ash/CLasH/Utils/HsTools.hs" @@ -109,11 +109,11 @@ mkId rdr_name = do -- tcLookupId to find out. TcEnv.tcLookupId name -normaliseType :: +normalizeType :: HscTypes.HscEnv -> Type.Type -> IO Type.Type -normaliseType env ty = do +normalizeType env ty = do (err, nty) <- MonadUtils.liftIO $ -- Initialize the typechecker monad TcRnMonad.initTcPrintErrors env PrelNames.iNTERACTIVE $ do