Verified Commit 1d2e7bdb authored by Camil Staps's avatar Camil Staps 🚀

Move Text.JSON -> Text.GenJSON

parent 3b3c7e28
......@@ -2,7 +2,7 @@ definition module Data.Graph
from Data.Maybe import ::Maybe
from Data.Map import :: Map
from Text.JSON import :: JSONNode, generic JSONEncode, generic JSONDecode
from Text.GenJSON import :: JSONNode, generic JSONEncode, generic JSONDecode
from Data.Generics.GenEq import generic gEq
//:: Graph n e
......
......@@ -11,7 +11,7 @@ import StdTuple
import Data.Map
import Data.Maybe
import Data.Functor
import Text.JSON
import Text.GenJSON
from Data.Generics.GenEq import generic gEq
:: Graph n e =
......
......@@ -5,7 +5,7 @@ from StdClass import class Eq, class Ord
from StdOverloaded import class ==, class <
from StdBool import not
from StdFunc import id
from Text.JSON import generic JSONEncode, generic JSONDecode, :: JSONNode
from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode
from Data.GenEq import generic gEq
from Data.Monoid import class Monoid, class Semigroup
import qualified StdList as SL
......
......@@ -10,7 +10,7 @@ from StdList import foldl
from Data.GenEq import generic gEq
import Data.Maybe, Data.Either, Data.Functor
from Data.IntMap.Base import :: IntMap (..), :: Prefix, :: Mask, nomatch, bin, empty, fromDistinctAscList, mask, shorter, branchMask
from Text.JSON import generic JSONEncode, generic JSONDecode, :: JSONNode
from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode
foldr :: !(a b -> b) !b !(IntMap a) -> b
foldr f z t =
......
......@@ -9,7 +9,7 @@ from Data.Maybe import :: Maybe (..)
from StdOverloaded import class ==, class <
from StdBool import not
from StdFunc import id
from Text.JSON import generic JSONEncode, generic JSONDecode, :: JSONNode
from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode
from Data.GenEq import generic gEq
from Data.GenLexOrd import generic gLexOrd, :: LexOrd
from Data.Monoid import class Monoid, class Semigroup
......
......@@ -9,7 +9,7 @@ from StdMisc import abort, undef
import StdString, StdTuple
from Data.GenEq import generic gEq
import qualified StdList as SL
import Data.Maybe, Text.JSON, Data.GenLexOrd
import Data.Maybe, Text.GenJSON, Data.GenLexOrd
from Data.Set import :: Set
import qualified Data.Set as DS
import Data.Monoid, Data.Functor, Control.Applicative
......
......@@ -8,7 +8,7 @@ definition module Testing.TestEvents
*/
from StdOverloaded import class toString
from Text.JSON import generic JSONEncode, generic JSONDecode, :: JSONNode, :: Maybe
from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode, :: Maybe
/**
* Events that are emitted from tests.
......
implementation module Testing.TestEvents
import Text.JSON, Control.Monad, StdFunc, StdTuple, StdList, Data.Maybe, Control.Applicative, Data.Func
import Text.GenJSON, Control.Monad, StdFunc, StdTuple, StdList, Data.Maybe, Control.Applicative, Data.Func
import Data.Functor
import Data.List
......
definition module Text.JSON
definition module Text.GenJSON
/*
* This module provides functions to encode and decode any Clean data type
* to JSON format. It provides two generic functions JSONEncode and JSONDecode
......
implementation module Text.JSON
implementation module Text.GenJSON
import StdGeneric, Data.Maybe, StdList, StdOrdList, StdString, _SystemArray, StdTuple, StdBool, StdFunc, StdOverloadedList, StdFile
import Data.List, Text, Text.PPrint, Text.JSON
import Data.List, Text, Text.PPrint, Text.GenJSON
//Basic JSON serialization
instance toString JSONNode
......
......@@ -138,7 +138,7 @@ import qualified Text.Encodings.Base64
import qualified Text.Encodings.MIME
import qualified Text.Encodings.UrlEncoding
import qualified Text.HTML
import qualified Text.JSON
import qualified Text.GenJSON
import qualified Text.LaTeX
import qualified Text.Language
import qualified Text.PPrint
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment