From 145e0a4c8212a32c669d14cb67a615add5f0ad56 Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 3 Mar 2006 10:34:15 +0000 Subject: Transfer: Removed PType from source and core languages. --- src/Transfer/Syntax/Print.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'src/Transfer/Syntax/Print.hs') diff --git a/src/Transfer/Syntax/Print.hs b/src/Transfer/Syntax/Print.hs index 1d9a8b739..50164477d 100644 --- a/src/Transfer/Syntax/Print.hs +++ b/src/Transfer/Syntax/Print.hs @@ -97,7 +97,6 @@ instance Print (Tree c) where PEmptyList -> prPrec _i 3 (concatD [doc (showString "[") , doc (showString "]")]) PList commapatterns -> prPrec _i 3 (concatD [doc (showString "[") , prt 0 commapatterns , doc (showString "]")]) PTuple commapattern commapatterns -> prPrec _i 3 (concatD [doc (showString "(") , prt 0 commapattern , doc (showString ",") , prt 0 commapatterns , doc (showString ")")]) - PType -> prPrec _i 3 (concatD [doc (showString "Type")]) PStr str -> prPrec _i 3 (concatD [prt 0 str]) PInt n -> prPrec _i 3 (concatD [prt 0 n]) PVar i -> prPrec _i 3 (concatD [prt 0 i]) -- cgit v1.2.3