From 25dc9348713ce1142c7ea2c8f0b5a9cfdac4c5ec Mon Sep 17 00:00:00 2001 From: krangelov Date: Tue, 26 Feb 2019 19:27:36 +0100 Subject: replace aeson with json --- src/compiler/GF/Compiler.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'src/compiler/GF/Compiler.hs') 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 -- cgit v1.2.3