remainding (map -> fmap)

haskell-nix · Feb 10, 2021 · 26f5211 · 26f5211
1 parent 8152874
commit 26f5211
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Nix/Expr/Strings.hs b/src/Nix/Expr/Strings.hs
@@ -65,7 +65,7 @@ stripIndent xs =
     . fmap snd
     . dropWhileEnd cleanup
     . (\ys -> zip
-        (map
+        (fmap
           (\case
             [] -> Nothing
             x  -> pure (last x)

diff --git a/src/Nix/XML.hs b/src/Nix/XML.hs
@@ -44,7 +44,7 @@ toXML = runWithStringContext . fmap pp . iterNValue (\_ _ -> cyc) phi
     NVSet' s _ -> sequence s >>= \kvs -> pure $ Element
       (unqual "attrs")
       mempty
-      (map
+      (fmap
         (\(k, v) -> Elem
           (Element (unqual "attr")
                    [Attr (unqual "name") (Text.unpack k)]