diff --git a/eo-phi-normalizer/src/Language/EO/Phi/Rules/Common.hs b/eo-phi-normalizer/src/Language/EO/Phi/Rules/Common.hs index 437e983c3..9d0c22bc7 100644 --- a/eo-phi-normalizer/src/Language/EO/Phi/Rules/Common.hs +++ b/eo-phi-normalizer/src/Language/EO/Phi/Rules/Common.hs @@ -132,6 +132,8 @@ lookupBinding _ _ = Nothing objectBindings :: Object -> [Binding] objectBindings (Formation bs) = bs +objectBindings (Application obj bs) = objectBindings obj ++ bs +objectBindings (ObjectDispatch obj _attr) = objectBindings obj objectBindings _ = [] nuCount :: Object -> Int