Normal: normalizeValueF: m refactor

Anton-Latukha · Anton-Latukha · commit 03d7bf064d73 · 2022-01-11T18:15:14.000+02:00
diff --git a/src/Nix/Normal.hs b/src/Nix/Normal.hs
@@ -100,7 +100,9 @@ normalizeValueF f = run . iterNValueM run (flip go) (fmap Free . sequenceNValue'
       (do
         i <- ask
         when (i > 2000) $ fail "Exceeded maximum normalization depth of 2000 levels"
-        lifted (lifted $ f t) $ local succ . k
+        (lifted . lifted)
+          (f t)
+          (local succ . k)
       )
       (pure $ pure t)
       b

Original file line number	Diff line number	Diff line change
`@@ -100,7 +100,9 @@ normalizeValueF f = run . iterNValueM run (flip go) (fmap Free . sequenceNValue'`
`100`	`100`	`(do`
`101`	`101`	`i <- ask`
`102`	`102`	`when (i > 2000) $ fail "Exceeded maximum normalization depth of 2000 levels"`
`103`		`- lifted (lifted $ f t) $ local succ . k`
	`103`	`+ (lifted . lifted)`
	`104`	`+ (f t)`
	`105`	`+ (local succ . k)`
`104`	`106`	`)`
`105`	`107`	`(pure $ pure t)`
`106`	`108`	`b`