diff options
| -rw-r--r-- | app/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |