Index: src/Darcs/Patch/Index/Monad.hs
--- src/Darcs/Patch/Index/Monad.hs.orig
+++ src/Darcs/Patch/Index/Monad.hs
@@ -30,6 +30,7 @@ import Darcs.Patch.Index.Types ( PatchMod(..), PatchId
 import Darcs.Patch.Info ( makePatchname, PatchInfo )
 import Darcs.Patch.Apply ( Apply(..) )
 import Darcs.Patch.ApplyMonad ( ApplyMonad(..), ApplyMonadTree(..) )
+import Control.Monad
 import Control.Monad.State
 import Control.Arrow
 import Darcs.Util.Path ( AnchoredPath, anchorPath, movedirfilename, isPrefix )
