diff --git a/polysemy-extra.cabal b/polysemy-extra.cabal
--- a/polysemy-extra.cabal
+++ b/polysemy-extra.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           polysemy-extra
-version:        0.1.6.0
+version:        0.1.6.1
 synopsis:       Extra Input and Output functions for polysemy..
 category:       Polysemy
 author:         Daniel Firth
diff --git a/src/Polysemy/Extra.hs b/src/Polysemy/Extra.hs
--- a/src/Polysemy/Extra.hs
+++ b/src/Polysemy/Extra.hs
@@ -191,7 +191,7 @@
 --
 -- @since 0.1.5.0
 runInputConstF :: forall b f r a.
-                  (f b)
+                  f b
                -> Sem (Input (f b) ': r) a
                -> Sem r a
 runInputConstF = runInputConst @(f b)