diff --git a/src/compiler/GF/Compile/GrammarToLPGF.hs b/src/compiler/GF/Compile/GrammarToLPGF.hs index 892598e33..5bfaf594e 100644 --- a/src/compiler/GF/Compile/GrammarToLPGF.hs +++ b/src/compiler/GF/Compile/GrammarToLPGF.hs @@ -279,7 +279,8 @@ mkConcrete debug (C.Abstract _ _ _ funs) (C.Concrete modId absModId flags params -- C.CommentedValue cmnt lv -> val2lin lv C.CommentedValue cmnt lv -> case cmnt of - "impossible" -> val2lin lv >>= \(_, typ) -> return (L.Empty, typ) + "impossible" -> return (L.Empty, Nothing) + -- "impossible" -> val2lin lv >>= \(_, typ) -> return (L.Empty, typ) _ -> val2lin lv v -> Left $ printf "val2lin not implemented for: %s" (show v)