Verified Commit 4929e9b5 authored by Camil Staps's avatar Camil Staps 🚀

Make cache keys more general now that name search is case insensitive

parent 20d36284
......@@ -26,7 +26,7 @@ import Data.Tuple
import System._Posix
import System.CommandLine
import System.Time
from Text import class Text(concat), instance Text String, <+
from Text import class Text(concat,toLowerCase), instance Text String, <+
import Text.JSON
import Cloogle
......@@ -66,9 +66,9 @@ toRequestCacheKey db r
{ c_unify = snd <$>
prepare_unification True allsyns <$>
(parseType o fromString =<< r.unify)
, c_name = r.name
, c_className = r.className
, c_typeName = r.typeName
, c_name = toLowerCase <$> r.name
, c_className = toLowerCase <$> r.className
, c_typeName = toLowerCase <$> r.typeName
, c_modules = sort <$> r.modules
, c_libraries = sort <$> r.libraries
, c_include_builtins = fromJust (r.include_builtins <|> Just DEFAULT_INCLUDE_BUILTINS)
......
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