remainding (map -> fmap)

Author: Anton-Latukha

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)

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)]