diff --git a/Control/Wire.hs b/Control/Wire.hs
--- a/Control/Wire.hs
+++ b/Control/Wire.hs
@@ -175,6 +175,7 @@
 
 > module Main where
 >
+> import Control.Monad.Identity (Identity)
 > import Control.Wire
 > import Prelude hiding ((.), id)
 > import Text.Printf
diff --git a/Control/Wire/Trans/Event.hs b/Control/Wire/Trans/Event.hs
--- a/Control/Wire/Trans/Event.hs
+++ b/Control/Wire/Trans/Event.hs
@@ -183,7 +183,7 @@
 --
 -- * Inhibits: as described.
 
-holdForI :: (Monad m) => Time -> Wire e m a b -> Wire e m a b
+holdForI :: (Monad m) => Int -> Wire e m a b -> Wire e m a b
 holdForI t0 w = hold' . exhibit w
     where
     hold' = mkPure $ \_ -> id &&& either (const hold') (hold'' t0)
diff --git a/netwire.cabal b/netwire.cabal
--- a/netwire.cabal
+++ b/netwire.cabal
@@ -1,5 +1,5 @@
 Name:          netwire
-Version:       4.0.5
+Version:       4.0.6
 Category:      Control, FRP
 Synopsis:      Flexible wire arrows for FRP
 Maintainer:    Ertugrul Söylemez <es@ertes.de>