From 48dba4ade573523ae1f126b28dba8fe206ef0f61 Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@digitalgrammars.com>
Date: Tue, 10 Aug 2021 11:46:28 +0200
Subject: [PATCH] Pass all missing test cases, including Phrasebook, except
 PhrasebookSnd

---
 src/runtime/haskell/LPGF.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/runtime/haskell/LPGF.hs b/src/runtime/haskell/LPGF.hs
index 7eda7c2a7..5f977a29a 100644
--- a/src/runtime/haskell/LPGF.hs
+++ b/src/runtime/haskell/LPGF.hs
@@ -154,6 +154,7 @@ eval cxt t = case t of
   Projection t u ->
     case (eval cxt t, eval cxt u) of
       (Missing f, _) -> Missing f
+      (Tuple vs, Missing _) -> vs !! 0 -- imitate PGF behaviour
       (_, Missing f) -> Missing f
       (Tuple vs, Ix i) -> vs !! (i-1)
       (t', tv@(Tuple _)) -> eval cxt $ foldl Projection t' (flattenTuple tv)