From 03ba53ca764f56a13d12607c110f923f129e809a Mon Sep 17 00:00:00 2001
From: doyougnu <jeffrey.young@iohk.io>
Date: Thu, 12 Jan 2023 15:17:13 -0500
Subject: [PATCH] Update UniqMap API
---
haddock-api/src/Haddock/Interface/Create.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index 696a046a62..d6c7bb6972 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -521,7 +521,7 @@ mkMaps dflags pkgName gre instances decls thDocs = do
ds2mdoc :: (HsDoc GhcRn) -> ErrMsgM (MDoc Name)
ds2mdoc = processDocStringParas dflags pkgName gre . hsDocString
- let cvt = M.fromList . nonDetEltsUniqMap
+ let cvt = M.fromList . nonDetUniqMapToList
declDocs' <- mapM ds2mdoc (cvt declDocs)
argDocs' <- mapM (mapM ds2mdoc) (cvt argDocs)
--
GitLab