s/fmap/map/

haskell · Jan 15, 2019 · 1dc329a · 1dc329a
1 parent 7b1980e
commit 1dc329a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cabal-install/Distribution/Client/Init.hs b/cabal-install/Distribution/Client/Init.hs
@@ -842,7 +842,7 @@ hasMainHs flags = case mainIs flags of
 
 -- | Default Main.(l)hs file.  Used when no Main.(l)hs exists.
 mainHs :: InitFlags -> String
-mainHs flags = (unlines . fmap prependPrefix)
+mainHs flags = (unlines . map prependPrefix)
   [ "module Main where"
   , ""
   , "main :: IO ()"