Index: src/Darcs/Patch/Annotate.hs
--- src/Darcs/Patch/Annotate.hs.orig
+++ src/Darcs/Patch/Annotate.hs
@@ -43,7 +43,8 @@ module Darcs.Patch.Annotate
 
 import Darcs.Prelude
 
-import Control.Monad.State ( modify, modify', when, gets, State, execState )
+import Control.Monad
+import Control.Monad.State ( modify, modify', gets, State, execState )
 
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Char8 as BC
