Replace minBound to maxBound with enumerate

src/swarm-scenario/Swarm/Game/World/Parse.hs

@@ -13,6 +13,7 @@ module Swarm.Game.World.Parse where
 import Control.Monad (void)
 import Control.Monad.Combinators.Expr (Operator (..), makeExprParser)
 import Control.Monad.Combinators.NonEmpty qualified as CNE (sepBy1)
+import Data.List.Extra (enumerate)
 import Data.Text (Text)
 import Data.Text qualified as T
 import Data.Void (Void)
@@ -189,7 +190,7 @@ parseCellItem =
     <*> parseName
 
 parseCellTag :: Parser CellTag
-parseCellTag = choice (map mkCellTagParser [minBound .. maxBound :: CellTag])
+parseCellTag = choice (map mkCellTagParser (enumerate @CellTag))
  where
   mkCellTagParser ct = ct <$ string' (T.drop 4 $ showT ct)
 

src/swarm-scenario/Swarm/Game/World/Typecheck.hs

@@ -27,6 +27,7 @@ import Data.Foldable qualified as F
 import Data.Functor.Const qualified as F
 import Data.Kind (Type)
 import Data.List (foldl')
+import Data.List.Extra (enumerate)
 import Data.List.NonEmpty qualified as NE
 import Data.Map (Map)
 import Data.Map qualified as M
@@ -636,7 +637,7 @@ resolveCellItem (mCellTag, item) = case mCellTag of
   Nothing -> do
     -- The item was not tagged; try resolving in all possible ways and choose
     -- the first that works
-    maybeCells <- mapM (`resolverByTag` item) [minBound .. maxBound :: CellTag]
+    maybeCells <- mapM (`resolverByTag` item) (enumerate @CellTag)
     case F.asum maybeCells of
       Nothing -> throwError $ NotAnything item
       Just cell -> return cell