Commit 8385dc64 authored by Camil Staps's avatar Camil Staps 🚀

Fix caching

parent 2db7a3c0
Subproject commit 0bc516990e0dc0dec99447f25a44c386fcbfbfaa
Subproject commit a74a712013ded098ac69efd0b07b9b3d892146d6
......@@ -60,10 +60,12 @@ instance toString RequestCacheKey
where toString rck = toString $ toJSON rck
toRequestCacheKey :: !*CloogleDB !Request -> *(!RequestCacheKey, !*CloogleDB)
toRequestCacheKey db r = (
{ c_unify = Nothing /*snd <$>
prepare_unification True (map getTypeDef $ allTypes db) <$>
(parseType o fromString =<< r.unify)*/
toRequestCacheKey db r
# (tds,db) = allTypeDefs db
= (
{ c_unify = snd <$>
prepare_unification True (map getTypeDef tds) <$>
(parseType o fromString =<< r.unify)
, c_name = r.name
, c_className = r.className
, c_typeName = r.typeName
......
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