Index: src/Darcs/UI/Commands/Log.hs
--- src/Darcs/UI/Commands/Log.hs.orig
+++ src/Darcs/UI/Commands/Log.hs
@@ -30,6 +30,7 @@ import Data.List.Ordered ( nubSort )
 import Data.Maybe ( fromMaybe, isJust )
 import Control.Arrow ( second )
 import Control.Exception ( catch, IOException )
+import Control.Monad
 import Control.Monad.State.Strict
 
 import Darcs.UI.PrintPatch ( showFriendly )
