Print
"Breakpoint set at Main:26:13"
instead of
"Breakpoint set at (26,13)"
either
(handleBkptEx s mod)
(\(newTable, site) -> do
either
(handleBkptEx s mod)
(\(newTable, site) -> do
- setBkptTable newTable
- io (putStrLn ("Breakpoint set at " ++
- show (getSiteCoords newTable mod site))))
+ setBkptTable newTable
+ let (x,y) = getSiteCoords newTable mod site
+ io (putStrLn ("Breakpoint set at " ++ showSDoc (ppr mod)
+ ++ ':' : show x ++ ':' : show y)))
(f mod bt)
bkptOptions' s ("del":cmds) bt
(f mod bt)
bkptOptions' s ("del":cmds) bt