Commit 280e96e5 authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Removed old parameter (did not compile)

parent 2c1a4ff4
......@@ -295,8 +295,8 @@ simplifyLet env (ds:dss) e = do
ds'' <- concatMapM (expandPatternBindings (qfv m ds' ++ qfv m e')) ds'
return $ foldr (mkLet m) e' (scc bv (qfv m) ds'')
inlineVars :: [Ident] -> InlineEnv -> [Decl] -> SIM InlineEnv
inlineVars fvs env ds = case ds of
inlineVars :: InlineEnv -> [Decl] -> SIM InlineEnv
inlineVars env ds = case ds of
[PatternDecl _ (VariablePattern v) (SimpleRhs _ e _)] -> do
allowed <- canInlineVar v e
return $ if allowed then Map.insert v e env else env
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment