Exec: m refactor

Anton-Latukha · Anton-Latukha · commit dbdd30b3e067 · 2021-08-13T21:20:48.000+03:00
diff --git a/src/Nix/Exec.hs b/src/Nix/Exec.hs
@@ -259,8 +259,7 @@ instance MonadNix e t f m => MonadEval (NValue t f m) m where
         (nverr $ Assertion span c)
         (do
           scope <- currentScopes
-          let f = join (addProvenance . Provenance scope . NAssertAnnF span (pure c) . pure)
-          f <$> body
+          join (addProvenance . Provenance scope . NAssertAnnF span (pure c) . pure) <$> body
         )
         b
 

Original file line number	Diff line number	Diff line change
`@@ -259,8 +259,7 @@ instance MonadNix e t f m => MonadEval (NValue t f m) m where`
`259`	`259`	`(nverr $ Assertion span c)`
`260`	`260`	`(do`
`261`	`261`	`scope <- currentScopes`
`262`		`- let f = join (addProvenance . Provenance scope . NAssertAnnF span (pure c) . pure)`
`263`		`- f <$> body`
	`262`	`+ join (addProvenance . Provenance scope . NAssertAnnF span (pure c) . pure) <$> body`
`264`	`263`	`)`
`265`	`264`	`b`
`266`	`265`