aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Main.hs2
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