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/Interpreter.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'src/Transfer/Interpreter.hs') diff --git a/src/Transfer/Interpreter.hs b/src/Transfer/Interpreter.hs index 428c8018b..926b7bd3a 100644 --- a/src/Transfer/Interpreter.hs +++ b/src/Transfer/Interpreter.hs @@ -193,7 +193,6 @@ match (PCons c' ps) (VCons c vs) match (PVar x) v = Just (bind x v) match (PRec fps) (VRec fs) = concatM [ match p (recLookup f fs) | FieldPattern f p <- fps ] match (PInt i) (VInt i') | i == i' = Just [] -match PType VType = Just [] match (PStr s) (VStr s') | s == s' = Just [] match (PInt i) (VInt i') | i == i' = Just [] match _ _ = Nothing -- cgit v1.2.3