diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Revision history for readline-in-other-words
 
+## 0.1.0.2 -- 2021-11-04
+
+* Move `Functor` instance to correct type.
+
 ## 0.1.0.1 -- 2021-11-04
 
 * Add missing `Functor` instance on type used as functor for `Optional`.
diff --git a/readline-in-other-words.cabal b/readline-in-other-words.cabal
--- a/readline-in-other-words.cabal
+++ b/readline-in-other-words.cabal
@@ -22,7 +22,7 @@
 -- 1. changelog
 -- 2. make tag; update @source-repository this@ clause
 -- 3. right here
-version: 0.1.0.1
+version: 0.1.0.2
 
 source-repository head
   type: git
@@ -31,7 +31,7 @@
 source-repository this
   type: git
   location: git://github.com/lehmacdj/readline-in-other-words.git
-  tag: 0.1.0.1
+  tag: 0.1.0.2
 
 common options
   ghc-options: -Wall -fplugin=Control.Effect.Plugin
diff --git a/src/Control/Effect/Readline/Internal.hs b/src/Control/Effect/Readline/Internal.hs
--- a/src/Control/Effect/Readline/Internal.hs
+++ b/src/Control/Effect/Readline/Internal.hs
@@ -127,7 +127,6 @@
 data HandleInterrupt :: Effect where
   WithInterrupt :: m a -> HandleInterrupt m a
   HandleInterrupt :: m a -> m a -> HandleInterrupt m a
-  deriving (Functor)
 
 -- | If Ctrl-C is pressed during the given action, enables interrupt handling
 -- within the nested scope. For example:
@@ -377,6 +376,7 @@
 data WithOrHandleInterrupt a
   = WithInterrupts
   | OnInterruptContinueWith a
+  deriving (Functor)
 
 instance
   ( Carrier m,