From: rrt <unknown>
Date: Mon, 17 Jul 2000 16:02:02 +0000 (+0000)
Subject: [project @ 2000-07-17 16:02:02 by rrt]
X-Git-Tag: Approximately_9120_patches~3986
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eacefec6c56e1c0c4ed5e45b297c9653e594c4fe;p=ghc-hetmet.git

[project @ 2000-07-17 16:02:02 by rrt]
Fixed a bracket-o.
---

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 4cf93d0..856d7d0 100644
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -604,7 +604,7 @@ checkConfigAccess = do
   conf_file <- readIORef package_config
   access <- getPermissions conf_file
   unless (writable access)
-	throwDyn (OtherError "you don't have permission to modify the package configuration file")
+	(throwDyn (OtherError "you don't have permission to modify the package configuration file"))
 
 maybeRestoreOldConfig :: String -> IO () -> IO ()
 maybeRestoreOldConfig conf_file io