From 7c30f07f751bfa5da9b38f76e14b6d0c2cc2b704 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 2 Oct 2008 12:32:03 +0000
Subject: [PATCH] Fail more gracefully on unknown file name extensions.

---
 src/GF/Command/Importing.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/GF/Command/Importing.hs b/src/GF/Command/Importing.hs
index c3ad9d746..390eda5b0 100644
--- 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