From e013e2f14ac7309932a5fd80166efd53fae682a8 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 19 Aug 2022 11:26:02 +1000 Subject: fixed a bug introduced in a previous commit --- app/Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'app/Server.hs') diff --git a/app/Server.hs b/app/Server.hs index 3564183..369221a 100644 --- a/app/Server.hs +++ b/app/Server.hs @@ -853,7 +853,7 @@ loadPackages config _ = do else return Nothing where packageName :: HCE.PackageInfo HCE.CompactModuleInfo -> PackageName - packageName (HCE.PackageInfo {id = pkgId}) = PackageName $ HCE.packageIdToText pkgId + packageName (HCE.PackageInfo {id = HCE.PackageId name _}) = PackageName name packageVersion :: HCE.PackageInfo HCE.CompactModuleInfo -> Version packageVersion (HCE.PackageInfo {id = HCE.PackageId _ version}) = version -- cgit v1.2.3