From 9bc6a07245b1b0e6254dd22faa2d59c1d7a06f17 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=A4llberg?= Date: Sat, 30 Sep 2023 22:13:00 +0200 Subject: [PATCH] Remove more debug info --- src/compiler/GF/Grammar/Printer.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/compiler/GF/Grammar/Printer.hs b/src/compiler/GF/Grammar/Printer.hs index 53bdf8a8b..b587dcd8d 100644 --- a/src/compiler/GF/Grammar/Printer.hs +++ b/src/compiler/GF/Grammar/Printer.hs @@ -290,7 +290,6 @@ ppNValue q d (NVClos env e) = ppValue q d (VClos env e) ppConstrs :: Constraints -> [Doc] ppConstrs = map $ \(v,w) -> braces (ppValue Unqualified 0 v <+> "<>" <+> ppValue Unqualified 0 w) - $$ braces(show v <+> "<>" <+> show w) ppEnv :: Env -> Doc ppEnv e = hcat (map (\(x,t) -> braces (x <> ":=" <> ppValue Unqualified 0 t)) e)