diff --git a/.github/workflows/haskell-ci.yml b/.github/workflows/haskell-ci.yml
index cb38aec..1dfa2de 100644
--- a/.github/workflows/haskell-ci.yml
+++ b/.github/workflows/haskell-ci.yml
@@ -8,9 +8,9 @@
 #
 # For more information, see https://github.com/haskell-CI/haskell-ci
 #
-# version: 0.13.20211030
+# version: 0.14.2
 #
-# REGENDATA ("0.13.20211030",["--config=cabal.haskell-ci","github","cabal.project"])
+# REGENDATA ("0.14.2",["--config=cabal.haskell-ci","github","cabal.project"])
 #
 name: Haskell-CI
 on:
@@ -24,6 +24,8 @@ jobs:
   linux:
     name: Haskell-CI - Linux - ${{ matrix.compiler }}
     runs-on: ubuntu-18.04
+    timeout-minutes:
+      60
     container:
       image: buildpack-deps:bionic
     continue-on-error: ${{ matrix.allow-failure }}
@@ -179,6 +181,10 @@ jobs:
           repository hackage.haskell.org
             url: http://hackage.haskell.org/
           EOF
+          cat >> $CABAL_CONFIG <<EOF
+          program-default-options
+            ghc-options: $GHCJOBS +RTS -M3G -RTS
+          EOF
           cat $CABAL_CONFIG
       - name: versions
         run: |
diff --git a/haskell-ci.sh b/haskell-ci.sh
index 9134336..2093bc5 100644
--- a/haskell-ci.sh
+++ b/haskell-ci.sh
@@ -1,6 +1,6 @@
 #!/bin/bash
 # shellcheck disable=SC2086,SC2016,SC2046
-# REGENDATA ("0.13.20211030",["bash","cabal.project"])
+# REGENDATA ("0.14.2",["bash","cabal.project"])
 
 set -o pipefail
 
diff --git a/indexed-traversable/src/WithIndex.hs b/indexed-traversable/src/WithIndex.hs
index 9b9845d..947c54e 100644
--- a/indexed-traversable/src/WithIndex.hs
+++ b/indexed-traversable/src/WithIndex.hs
@@ -24,6 +24,7 @@ import Prelude
 import Control.Applicative
        (Applicative (..), Const (..), ZipList (..), (<$>), liftA2)
 import Control.Applicative.Backwards (Backwards (..))
+import Control.Arrow                 (Kleisli (..))
 import Control.Monad.Trans.Identity  (IdentityT (..))
 import Control.Monad.Trans.Reader    (ReaderT (..))
 import Data.Array                    (Array)
@@ -280,6 +281,10 @@ instance TraversableWithIndex Int ZipList where
   itraverse f (ZipList xs) = ZipList <$> itraverse f xs
   {-# INLINE itraverse #-}
 
+instance Functor m => FunctorWithIndex a (Kleisli m a) where
+  imap f (Kleisli p) = Kleisli (\x -> f x <$> p x)
+  {-# INLINE imap #-}
+
 -------------------------------------------------------------------------------
 -- (former) semigroups
 -------------------------------------------------------------------------------
@@ -296,7 +301,7 @@ instance TraversableWithIndex Int NonEmpty where
   {-# INLINE itraverse #-}
 
 -------------------------------------------------------------------------------
--- Functors (formely) from transformers
+-- Functors (formerly) from transformers
 -------------------------------------------------------------------------------
 
 instance FunctorWithIndex () Identity where