X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fext-core%2FSetup.lhs;fp=utils%2Fext-core%2FSetup.lhs;h=12d5bc5e6b9256fe0e946cba721f9583baab9e57;hb=925f8dad0be07440b996c89dad2cc32e76ce8070;hp=f7706b8a4cd7e6b06ff783d74ef97a73d4e45510;hpb=7bca8c45ee7efbdef91210fa5673570413539a45;p=ghc-hetmet.git

diff --git a/utils/ext-core/Setup.lhs b/utils/ext-core/Setup.lhs
index f7706b8..12d5bc5 100644
--- a/utils/ext-core/Setup.lhs
+++ b/utils/ext-core/Setup.lhs
@@ -2,8 +2,8 @@
 \begin{code}
 {-# OPTIONS -Wall #-}
 
+import Control.Exception
 import Control.Monad
-import Data.List
 import Distribution.PackageDescription
 import Distribution.Simple
 import Distribution.Simple.LocalBuildInfo
@@ -16,9 +16,9 @@ import Control.Exception (try)
 
 main :: IO ()
 main = do
-   let hooks = defaultUserHooks {
+   let hooks = simpleUserHooks {
                  buildHook = build_primitive_sources 
-                           $ buildHook defaultUserHooks
+                           $ buildHook simpleUserHooks
             }
    defaultMainWithHooks hooks
 \end{code}
@@ -58,7 +58,7 @@ maybeUpdateFile source target = do
   r <- rawSystem "cmp" ["-s" {-quiet-}, source, target]
   case r of
     ExitSuccess   -> removeFile source
-    ExitFailure _ -> do try (removeFile target); renameFile source target
+    ExitFailure _ -> do (try :: IO () -> IO (Either IOException ())) (removeFile target); renameFile source target
 
 
 \end{code}
\ No newline at end of file