summaryrefslogtreecommitdiff
path: root/src/GF/Compile/Abstract/Compute.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/GF/Compile/Abstract/Compute.hs')
-rw-r--r--src/GF/Compile/Abstract/Compute.hs1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/GF/Compile/Abstract/Compute.hs b/src/GF/Compile/Abstract/Compute.hs
index 29cc73525..d5c9a163c 100644
--- a/src/GF/Compile/Abstract/Compute.hs
+++ b/src/GF/Compile/Abstract/Compute.hs
@@ -123,7 +123,6 @@ tryMatch (p,t) = do
matches <- mapM tryMatch (zip pp tt)
return (concat matches)
(PT _ p',_) -> trym p' t'
- (_, ([],Alias _ _ d,[])) -> tryMatch (p,d)
(PAs x p',_) -> do
subst <- trym p' t'
return $ (x,t) : subst