diff --git a/Utility/FileMode.hs b/Utility/FileMode.hs
index d8fb866aeb..26692b3bad 100644
--- a/Utility/FileMode.hs
+++ b/Utility/FileMode.hs
@@ -9,8 +9,8 @@
 
 module Utility.FileMode where
 
-import Common
-
+import System.IO
+import Control.Monad
 import Control.Exception (bracket)
 import System.PosixCompat.Types
 #ifndef mingw32_HOST_OS
@@ -18,6 +18,8 @@ import System.Posix.Files
 #endif
 import Foreign (complement)
 
+import Utility.Exception
+
 {- Applies a conversion function to a file's mode. -}
 modifyFileMode :: FilePath -> (FileMode -> FileMode) -> IO ()
 modifyFileMode f convert = void $ modifyFileMode' f convert