Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

I don't think holes should be universally quantified like this.

  • Loading branch information...
commit add6a3e4dc9f23b9147a4d25932a1e2d41f8829a 1 parent 0085a5d
Thijs Alkemade authored December 21, 2011

Showing 1 changed file with 1 addition and 1 deletion. Show diff stats Hide diff stats

  1. 2  compiler/typecheck/TcRnDriver.lhs
2  compiler/typecheck/TcRnDriver.lhs
@@ -1339,7 +1339,7 @@ tcRnExpr hsc_env ictxt rdr_expr
1339 1339
     (g, l) <- getEnvs ;
1340 1340
     holes <- readTcRef $ tcl_holes l ;
1341 1341
     liftIO $ putStrLn ("tcRnExpr1.5: " ++ (showSDoc $ ppr $ holes)) ;
1342  
-    zonked_holes <- zonkTcTypes $ map (\ty -> mkForAllTys qtvs (mkPiTypes dicts ty)) $ holes ;
  1342
+    zonked_holes <- zonkTcTypes $ map (\ty -> mkPiTypes dicts ty) $ holes ;
1343 1343
     liftIO $ putStrLn ("tcRnExpr2: " ++ (showSDoc $ ppr $ map (tidyType emptyTidyEnv) zonked_holes)) ;
1344 1344
     liftIO $ putStrLn ("tcRnExpr3: " ++ (showSDoc $ ppr $ dicts)) ;
1345 1345
     let { all_expr_ty = mkForAllTys qtvs (mkPiTypes dicts res_ty) } ;

0 notes on commit add6a3e

Please sign in to comment.
Something went wrong with that request. Please try again.