Searched refs:applyReturns (Results 1 – 2 of 2) sorted by relevance
50 Function s1 (Just fnName) [] $ Block s2 (App s2 m [] : map applyReturns js )54 Function s1 (Just fnName) [] $ Block s2 (App s2 m [] : map applyReturns js )68 App s1 (Function s2 Nothing [] (Block ss (applyReturns `fmap` body))) []92 applyReturns :: AST -> AST93 applyReturns (Return ss ret) = Return ss (App ss ret []) function94 applyReturns (Block ss jss) = Block ss (map applyReturns jss) function95 applyReturns (While ss cond js) = While ss cond (applyReturns js) function96 applyReturns (For ss v lo hi js) = For ss v lo hi (applyReturns js) function97 applyReturns (ForIn ss v xs js) = ForIn ss v xs (applyReturns js) function98 applyReturns (IfElse ss cond t f) = IfElse ss cond (applyReturns t) (applyReturns `fmap` f) function[all …]
29 applyReturns struct { member278 fakeReturns := fake.applyReturns305 fake.applyReturns = struct {