From 12d026195100c3a1da22e1f41f1b5bc9ac04b1b0 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 13 Nov 2002 09:49:46 +0000
Subject: [haddock @ 2002-11-13 09:49:46 by simonmar] Small bugfix in the
 --read-interface option parsing from Brett Letner.

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3