picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Delete some commented out code in Reduce.hs

Browse source
This commit is contained in:
John Wiegley 2018-04-21 00:54:40 -07:00
parent 35d669e55c
commit fc85f1a7b9
1 changed files with 3 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/Nix/Reduce.hs
View file

@ -140,13 +140,8 @@ reduce e@(NSet_ ann binds) = do
Inherit _ _ -> True
_ -> False
if usesInherit
then do
-- mv <- lookupVar "callLibs"
clearScopes @NExprLoc $
-- (case mv of
-- Nothing -> id
-- Just v -> pushScope @NExprLoc (M.singleton "callLibs" v)) $
Fix . NSet_ ann <$> traverse sequence binds
then clearScopes @NExprLoc $
Fix . NSet_ ann <$> traverse sequence binds
else Fix <$> sequence e
-- Encountering a 'rec set' construction eliminates any hope of inlining
@ -157,12 +152,8 @@ reduce (NRecSet_ ann binds) =
-- Encountering a 'with' construction eliminates any hope of inlining
-- definitions.
reduce (NWith_ ann scope body) = do
-- mv <- lookupVar "callLibs"
clearScopes @NExprLoc $
-- (case mv of
-- Nothing -> id
-- Just v -> pushScope @NExprLoc (M.singleton "callLibs" v)) $
fmap Fix $ NWith_ ann <$> scope <*> body
fmap Fix $ NWith_ ann <$> scope <*> body
reduce (NLet_ ann binds body) = do
-- We only handle in order definitions...