@@ -465,7 +465,7 @@ process h fn (Check (PRef _ n))
465 MN _ _ -> "_"
465 MN _ _ -> "_"
466 UN ('_':'_':_) -> "_"
466 UN ('_':'_':_) -> "_"
467 _ -> showName (Just ist) [] False c n) ++
467 _ -> showName (Just ist) [] False c n) ++
468− " : " ++ showImp (Just ist) imp c t
468+ " : " ++ showImp (Just ist) imp c t ++ "\n"
470 current ++ putTy c imp ist (i-1) sc
470 current ++ putTy c imp ist (i-1) sc
471 putTy c imp ist _ sc = putGoal c imp ist sc
471 putTy c imp ist _ sc = putGoal c imp ist sc