restore commented out code

2026-04-09 04:59:31 -06:00 · 2024-01-31 08:20:59 +01:00
parent c94d0f31bc
commit c46dd599f9
1 changed files with 1 additions and 1 deletions
--- 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