diff options
Diffstat (limited to 'src/compiler/GF/Compiler.hs')
| -rw-r--r-- | src/compiler/GF/Compiler.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/compiler/GF/Compiler.hs b/src/compiler/GF/Compiler.hs index 539b0b341..efb1ae70f 100644 --- a/src/compiler/GF/Compiler.hs +++ b/src/compiler/GF/Compiler.hs @@ -24,7 +24,7 @@ import Data.Maybe import qualified Data.Map as Map import qualified Data.Set as Set import qualified Data.ByteString.Lazy as BSL -import GF.Grammar.CanonicalJSON (encodeJSON, encodeYAML) +import GF.Grammar.CanonicalJSON (encodeJSON) import System.FilePath import Control.Monad(when,unless,forM_) @@ -65,7 +65,6 @@ compileSourceFiles opts fs = mapM_ abs2canonical canonical mapM_ cnc2canonical canonical when (FmtCanonicalJson `elem` ofmts) $ mapM_ grammar2json canonical - when (FmtCanonicalYaml `elem` ofmts) $ mapM_ grammar2yaml canonical where ofmts = flag optOutputFormats opts @@ -86,10 +85,6 @@ compileSourceFiles opts fs = where absname = srcAbsName gr cnc gr_canon = grammar2canonical opts absname gr - grammar2yaml (cnc,gr) = encodeYAML (render absname ++ ".yaml") gr_canon - where absname = srcAbsName gr cnc - gr_canon = grammar2canonical opts absname gr - writeExport (path,s) = writing opts path $ writeUTF8File path s |