- && not ignore_breakpoints,
- do ghcMode <- getGhcMode
- case ghcMode of
- Interactive
- -> do let isWantedName = not.isTyVarName
- (e, fvs) <- mkBreakPointExpr (filter isWantedName (eltsUFM localRdrEnv))
- return (e, fvs `addOneFV` name)
- _ -> return (HsVar name, unitFV name)
+ && not ignore_breakpoints
+ && ghcMode == Interactive,
+ do let isWantedName = not.isTyVarName
+ (e, fvs) <- mkBreakpointExpr (filter isWantedName (eltsUFM localRdrEnv))
+ return (e, fvs `addOneFV` name)
+ )
+ , (name `hasKey` breakpointCondIdKey
+ && not ignore_breakpoints
+ && ghcMode == Interactive,
+ do let isWantedName = not.isTyVarName
+ (e, fvs) <- mkBreakpointCondExpr (filter isWantedName (eltsUFM localRdrEnv))
+ return (e, fvs `addOneFV` name)