Changeset 2469 for src/Pugs/Bind.hs
- Timestamp:
- 04/29/05 15:53:44 (4 years ago)
- svk:copy_cache_prev:
- 3914
- Files:
-
- 1 modified
-
src/Pugs/Bind.hs (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Bind.hs
r2262 r2469 81 81 82 82 isPair :: Exp -> Bool 83 isPair (Pos _ exp) = isPair exp 84 isPair (Cxt _ exp) = isPair exp 83 85 isPair (Syn "=>" [(Val _), _]) = True 84 86 isPair (App "&infix:=>" [(Cxt _ (Val _)), _] []) = True … … 87 89 88 90 unPair :: Exp -> (String, Exp) 91 unPair (Pos _ exp) = unPair exp 92 unPair (Cxt _ exp) = unPair exp 89 93 unPair (Syn "=>" [(Val k), exp]) = (vCast k, exp) 90 94 unPair (App "&infix:=>" [(Cxt _ (Val k)), exp] []) = (vCast k, exp)
