diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-02 12:32:03 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-02 12:32:03 +0000 |
| commit | 8fb068df6a4a9971f6c045744a16b07a895a5519 (patch) | |
| tree | d925012a9b7db16d54a3e4d5603af6b1a8ecfc95 /src/GF/Command | |
| parent | 6c6ff81109a7cac1780921bed882abaca313f15d (diff) | |
Fail more gracefully on unknown file name extensions.
Diffstat (limited to 'src/GF/Command')
| -rw-r--r-- | src/GF/Command/Importing.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |