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

clean-up: Builtins.hs: nixPath: simplify parens

This commit is contained in:
Anton-Latukha 2020-09-18 18:15:56 +03:00
parent 55b0040384
commit c01e156fef
No known key found for this signature in database
GPG Key ID: 3D84C07E91802E41
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Nix/Builtins.hs
View File

@ -328,16 +328,17 @@ foldNixPath f z = do
nixPath :: MonadNix e t f m => m (NValue t f m)
nixPath = fmap nvList $ flip foldNixPath [] $ \p mn ty rest ->
pure
$ (flip nvSet mempty $ M.fromList
$ flip nvSet mempty ( M.fromList
[ case ty of
PathEntryPath -> ("path", nvPath p)
PathEntryURI ->
( "uri"
, nvStr (hackyMakeNixStringWithoutContext (Text.pack p))
, nvStr $ hackyMakeNixStringWithoutContext $ Text.pack p
)
, ( "prefix"
, nvStr
(hackyMakeNixStringWithoutContext $ Text.pack (fromMaybe "" mn))
$ hackyMakeNixStringWithoutContext $ Text.pack $ fromMaybe "" mn
)
]
)