From c46dd599f972011f6d4ba974b69686d9d05443cd Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Wed, 31 Jan 2024 08:20:59 +0100 Subject: [PATCH] restore commented out code --- src/compiler/api/GF/Compile/Compute/Concrete.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/api/GF/Compile/Compute/Concrete.hs b/src/compiler/api/GF/Compile/Compute/Concrete.hs index af93e0890..17cc900cd 100644 --- a/src/compiler/api/GF/Compile/Compute/Concrete.hs +++ b/src/compiler/api/GF/Compile/Compute/Concrete.hs @@ -794,7 +794,7 @@ getOverload t q = EvalM $ \(Gl gr _) k mt d r msgs -> do go [] = return (Fail err msgs) go (tty:ttys) = do res <- k tty mt d r msgs case res of - Fail _ _ -> return res -- go ttys + Fail _ _ -> go ttys Success r msgs -> return (Success r msgs) in go ttys