Index: src/Darcs/Util/Tree/Hashed.hs
--- src/Darcs/Util/Tree/Hashed.hs.orig
+++ src/Darcs/Util/Tree/Hashed.hs
@@ -40,7 +40,8 @@ import qualified Data.ByteString as B
 
 import Data.List( sortBy )
 import Data.Maybe( fromJust, isJust )
-import Control.Monad.State.Strict (liftIO,when,unless)
+import Control.Monad
+import Control.Monad.State.Strict (liftIO)
 
 import Darcs.Prelude
 
