Clean up L.H.GM.Target debug/vomit output a bit

This commit is contained in:
Daniel Gröber
2015-08-05 04:06:22 +02:00
parent c9b6e95a30
commit d270e92951
2 changed files with 14 additions and 5 deletions

View File

@@ -79,7 +79,7 @@ gmLog level loc' doc = do
gmVomit :: (MonadIO m, GmLog m, GmEnv m) => String -> Doc -> String -> m ()
gmVomit filename doc content = do
gmLog GmVomit "" $ doc <+> text content
gmLog GmVomit "" $ doc <+>: text content
GhcModLog { gmLogVomitDump = Last mdump }
<- gmlHistory