GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fail more gracefully on unknown file name extensions.

Browse Source
This commit is contained in:
bjorn
2008-10-02 12:32:03 +00:00
parent 3d2465bb37
commit 7c30f07f75
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Command/Importing.hs
View File

@@ -26,6 +26,7 @@ importGrammar pgf0 opts files =
".pgf" -> do ".pgf" -> do
pgf2 <- mapM readPGF files >>= return . foldl1 unionPGF pgf2 <- mapM readPGF files >>= return . foldl1 unionPGF
return $ unionPGF pgf0 pgf2 return $ unionPGF pgf0 pgf2
ext -> die $ "Unknown filename extension: " ++ show ext
importSource :: SourceGrammar -> Options -> [FilePath] -> IO SourceGrammar importSource :: SourceGrammar -> Options -> [FilePath] -> IO SourceGrammar
importSource src0 opts files = do importSource src0 opts files = do