replace aeson with json

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