Commit 82942a1b authored by Michael Hanus's avatar Michael Hanus
Browse files

Class contexts added

parent 19d0b807
......@@ -260,6 +260,9 @@ lookupModuleSourceInLoadPath modpath =
--- @cons TOKS - token stream of source program
data FrontendTarget = FCY | FINT | ACY | UACY | HTML | CY | TOKS
instance Eq FrontendTarget where
_ == _ = error "TODO: Eq Distribution.FrontendTarget"
--- Abstract data type for representing parameters supported by the front end
--- of the Curry compiler.
-- The parameters are of the form
......
......@@ -437,7 +437,7 @@ allTypesOfTExpr (FuncType texp1 texp2) =
allTypesOfTExpr (TCons tcons args) =
union [tcons] (unionMap allTypesOfTExpr args)
unionMap :: (a -> [b]) -> [a] -> [b]
unionMap :: Eq b => (a -> [b]) -> [a] -> [b]
unionMap f = foldr union [] . map f
......
Supports Markdown
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