Fail more gracefully on unknown file name extensions.

2008-10-02 12:32:03 +00:00
parent 3d2465bb37
commit 7c30f07f75
1 changed files with 1 additions and 0 deletions
--- a/src/GF/Command/Importing.hs
+++ b/src/GF/Command/Importing.hs
@@ -26,6 +26,7 @@ importGrammar pgf0 opts files =
    ".pgf" -> do
      pgf2 <- mapM readPGF files >>= return . foldl1 unionPGF
      return $ unionPGF pgf0 pgf2
+    ext -> die $ "Unknown filename extension: " ++ show ext

 importSource :: SourceGrammar -> Options -> [FilePath] -> IO SourceGrammar
 importSource src0 opts files = do