diff options
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 393de5cb29..a55c9fe008 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1326,8 +1326,8 @@ defineMacro overwrite s = do let stringTy = nlHsTyVar stringTy_RDR ioM = nlHsTyVar (getRdrName ioTyConName) `nlHsAppTy` stringTy body = nlHsVar compose_RDR `mkHsApp` step `mkHsApp` expr - tySig = stringTy `nlHsFunTy` ioM - new_expr = L (getLoc expr) $ ExprWithTySig body tySig PlaceHolder + tySig = mkLHsSigWcType (stringTy `nlHsFunTy` ioM) + new_expr = L (getLoc expr) $ ExprWithTySig body tySig hv <- GHC.compileParsedExpr new_expr liftIO (writeIORef macros_ref -- later defined macros have precedence @@ -1377,8 +1377,8 @@ getGhciStepIO = do ghciM = nlHsTyVar (getRdrName ghciTyConName) `nlHsAppTy` stringTy ioM = nlHsTyVar (getRdrName ioTyConName) `nlHsAppTy` stringTy body = nlHsVar (getRdrName ghciStepIoMName) - tySig = ghciM `nlHsFunTy` ioM - return $ noLoc $ ExprWithTySig body tySig PlaceHolder + tySig = mkLHsSigWcType (ghciM `nlHsFunTy` ioM) + return $ noLoc $ ExprWithTySig body tySig ----------------------------------------------------------------------------- -- :check |