diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2011-11-15 13:33:44 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2011-11-15 13:33:44 +0000 |
| commit | 61c16f2eb2a042152a2b04f709d0cefe6e5a14df (patch) | |
| tree | 04fad20bcc0923f4a505a87a2ec9ef139394d868 /src/compiler/GF/Compile/GetGrammar.hs | |
| parent | 8a7aa15c5717e3ab4ebe0e63459759be4863e07e (diff) | |
more structured format for errors and warnings from the compiler
Diffstat (limited to 'src/compiler/GF/Compile/GetGrammar.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GetGrammar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/GetGrammar.hs b/src/compiler/GF/Compile/GetGrammar.hs index 914a19aac..65f98d29a 100644 --- a/src/compiler/GF/Compile/GetGrammar.hs +++ b/src/compiler/GF/Compile/GetGrammar.hs @@ -38,7 +38,7 @@ getSourceModule opts file0 = ioe $ case runP pModDef content of Left (Pn l c,msg) -> do file <- writeTemp tmp let location = file++":"++show l++":"++show c - return (Bad (location++": "++msg)) + return (Bad (location++":\n "++msg)) Right (i,mi) -> do removeTemp tmp return (Ok (i,mi{mflags=mflags mi `addOptions` opts, msrc=file0})) `catch` (return . Bad . show) |