diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-08-19 11:26:02 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-08-19 11:26:02 +1000 |
| commit | e013e2f14ac7309932a5fd80166efd53fae682a8 (patch) | |
| tree | 1557f385e568b39c1fc45ccd8a448a6231527707 | |
| parent | 43164226e23377309a5197d51c7ac7d0dcbf4d45 (diff) | |
fixed a bug introduced in a previous commit
| -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 |