Verified Commit 7d62a7fc authored by Camil Staps's avatar Camil Staps
Browse files

Move to Platform generics

parent 74ebc3ee
Subproject commit 6b42fd7d7c9792ea0f86734c28b50a88c3118d77
Subproject commit 2849b36c004123d02195c26147d56ca7b5550df8
......@@ -17,6 +17,7 @@ import Control.Monad
import Data.Error
from Data.Func import $
import Data.Functor
import Data.Generics.GenLexOrd
import Data.Graphviz
from Data.List import foldr1, groupBy, intercalate, intersect, tails, instance Functor []
from Data.Map import :: Map(..), elems, filterWithKey, foldrNoKey,
......@@ -29,8 +30,6 @@ import System.FilePath
from Text import class Text(concat), instance Text String
import Text.JSON
import GenLexOrd
// CleanTypeUnifier
import Type
......
......@@ -17,6 +17,7 @@ import Data.Either
import Data.Error
from Data.Func import $, mapSt, on
import Data.Functor
import Data.Generics.GenDefault
import Data.List
import Data.Maybe
import Data.Tuple
......@@ -24,8 +25,6 @@ import System.Directory
import System.FilePath
from Text import class Text(concat,indexOf,replaceSubString), instance Text String
import GenDefault
import CleanPrettyPrint
from compile import :: DclCache{hash_table}, empty_cache
......
......@@ -7,12 +7,11 @@ definition module Doc
import StdGeneric
from Data.Either import :: Either
from Data.Generics.GenDefault import generic gDefault
from Data.Maybe import :: Maybe
from TypeDef import :: Type
from GenDefault import generic gDefault
class docDescription d :: d -> Maybe Description
class docParams d :: d -> [Description]
class docVars d :: d -> [Description]
......
......@@ -14,6 +14,7 @@ import Control.Monad
import Data.Either
from Data.Func import $
import Data.Functor
import Data.Generics.GenDefault
import Data.List
import Data.Maybe
import Data.Tuple
......@@ -21,7 +22,6 @@ import Data.Tuple
from TypeDef import :: Type, :: TypeRestriction
import qualified TypeParse as T
import GenDefault
gDefault{|RECORD|} fx = RECORD fx
gDefault{|Maybe|} _ = Nothing
......
......@@ -8,14 +8,13 @@ import StdString
import StdTuple
from Data.Func import $
import Data.Generics.GenLexOrd
import Data.Graphviz
import Data.List
import Data.Tuple
from Text import class Text(concat), instance Text String
import Text.JSON
import GenLexOrd
import TypeDef
import TypeUnify
import TypeUtil
......
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