[haddock @ 2002-11-13 09:49:46 by simonmar]

Small bugfix in the --read-interface option parsing from Brett Letner.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 4de10e3e..cc1b76f6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -208,7 +208,7 @@ parseIfaceOption :: String -> (FilePath,FilePath)
 parseIfaceOption s = 
   case break (==',') s of
 	(fpath,',':file) -> (fpath,file)
-	(_, file)       -> ("", file)
+	(file, _)        -> ("", file)
 
 readIface :: FilePath -> IO [(Module,Interface)]
 readIface filename = do