diff options
-rw-r--r-- | src/Main.hs | 2 |
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 |