From 31339001252a63c0f86ade423cb03095f21c5862 Mon Sep 17 00:00:00 2001 From: krangelov Date: Tue, 18 Feb 2020 15:07:47 +0100 Subject: [PATCH] another bug related to mattern matching on multiword expression --- src/compiler/GF/Grammar/PatternMatch.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/compiler/GF/Grammar/PatternMatch.hs b/src/compiler/GF/Grammar/PatternMatch.hs index 8fdb33408..9ef191554 100644 --- a/src/compiler/GF/Grammar/PatternMatch.hs +++ b/src/compiler/GF/Grammar/PatternMatch.hs @@ -107,6 +107,10 @@ tryMatch (p,t) = do return (concat matches) (PT _ p',_) -> trym p' t' + (PAs x p',([],K s,[])) -> do + subst <- trym p' t' + return $ (x,words2term (words s)) : subst + (PAs x p',_) -> do subst <- trym p' t' return $ (x,t) : subst