Commit b26959de authored by Camil Staps's avatar Camil Staps 🚀

Remove de_isclass (resolves clean-cloogle/cloogle.org#150)

parent 8793db1f
......@@ -137,7 +137,6 @@ derive JSONDecode CloogleEntry
, de_type :: !Type //* The type to derive an instance for
, de_type_representation :: !String //* A string representation of the type
, de_locations :: ![Location] //* The locations in which the derivation occurs
, de_isclass :: !Bool //* Whether this is a class derivation
}
/**
......
......@@ -184,11 +184,11 @@ where
$ sortBy ((<) `on` (\(c,ts,_) -> (c,map snd ts)))
$ flatten tdb.temp_instances] ++
// Derivations
[DeriveEntry {de_generic=gn, de_type=t, de_type_representation=tr, de_locations=map fth4 ds, de_isclass=False}
[DeriveEntry {de_generic=gn, de_type=t, de_type_representation=tr, de_locations=map fth4 ds}
\\ ds=:[(gn,t,tr,_):_] <- groupBy ((==) `on` (\(g,_,tr,_) -> (g,tr)))
$ sortBy ((<) `on` (\(g,_,tr,_) -> (g,tr)))
[(g,t,tr,l) \\ ds <- tdb.temp_derivations, (g,ts) <- ds, (t,tr,l) <- ts]] ++
[DeriveEntry {de_generic=gn, de_type=t, de_type_representation=tr, de_locations=map fth4 ds, de_isclass=True}
[InstanceEntry {ie_class=gn, ie_types=[(t,tr)], ie_locations=map fth4 ds}
\\ ds=:[(gn,t,tr,_):_] <- groupBy ((==) `on` (\(g,_,tr,_) -> (g,tr)))
$ sortBy ((<) `on` (\(g,_,tr,_) -> (g,tr)))
$ flatten tdb.temp_class_derivations]) ++
......
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