Stop exporting and using "for"

programs/Main.hs

@@ -125,7 +125,7 @@ initialState =
 listDrawElem :: Bool -> Int -> Widget
 listDrawElem sel i =
     let selStr s = if sel then "<" <> s <> ">" else s
-    in hCenterWith (Just ' ') $ vBox $ for [1..i+1] $ \j ->
+    in hCenterWith (Just ' ') $ vBox $ (flip map) [1..i+1] $ \j ->
         str $ "Item " <> (selStr $ show i) <> " L" <> show j
 
 theAttrMap :: AttrMap

src/Brick/Util.hs

@@ -1,6 +1,6 @@
+-- | Utility functions.
 module Brick.Util
-  ( for
-  , clamp
+  ( clamp
   , on
   , fg
   , bg

src/Brick/Widgets/Internal.hs

@@ -85,7 +85,7 @@ import qualified Graphics.Vty as V
 
 import Brick.Types
 import Brick.Widgets.Border.Style
-import Brick.Util (clOffset, for)
+import Brick.Util (clOffset)
 import Brick.AttrMap
 import Brick.Util (clamp)
 
@@ -313,7 +313,7 @@ renderBox br ws = do
           allResults = snd <$> rendered
           allImages = (^.image) <$> allResults
           allPrimaries = imagePrimary br <$> allImages
-          allTranslatedResults = for (zip [0..] allResults) $ \(i, result) ->
+          allTranslatedResults = (flip map) (zip [0..] allResults) $ \(i, result) ->
               let off = locationFromOffset br offPrimary
                   offPrimary = sum $ take i allPrimaries
               in addResultOffset off result

src/Brick/Widgets/List.hs

@@ -32,7 +32,7 @@ import Graphics.Vty (Event(..), Key(..))
 import Brick.Types
 import Brick.Merge (maintainSel)
 import Brick.Widgets.Core
-import Brick.Util (clamp, for)
+import Brick.Util (clamp)
 import Brick.AttrMap
 
 data List e =
@@ -73,7 +73,7 @@ drawListElements :: List e -> [Widget]
 drawListElements l = drawnElements
     where
         es = l^.listElementsL
-        drawnElements = for (zip [0..] es) $ \(i, e) ->
+        drawnElements = (flip map) (zip [0..] es) $ \(i, e) ->
             let isSelected = Just i == l^.listSelectedL
                 elemWidget = (l^.listElementDrawL) isSelected e
                 makeVisible = if isSelected