From 760cd58cfafe1ff25fcceed88ad2c824f10f6d6b Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Thu, 7 May 2020 21:28:39 +0200 Subject: Fix after unit refactoring --- haddock-api/src/Haddock/Options.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'haddock-api/src/Haddock/Options.hs') diff --git a/haddock-api/src/Haddock/Options.hs b/haddock-api/src/Haddock/Options.hs index 011a361d..5c9bf448 100644 --- a/haddock-api/src/Haddock/Options.hs +++ b/haddock-api/src/Haddock/Options.hs @@ -45,7 +45,7 @@ import Data.Version import Control.Applicative import Distribution.Verbosity import GHC.Data.FastString -import GHC ( DynFlags, Module, moduleUnit ) +import GHC ( DynFlags, Module, moduleUnit, unitState ) import Haddock.Types import Haddock.Utils import GHC.Unit.State @@ -382,4 +382,4 @@ modulePackageInfo dflags flags (Just modu) = , optPackageVersion flags <|> fmap unitPackageVersion pkgDb ) where - pkgDb = lookupUnit dflags (moduleUnit modu) + pkgDb = lookupUnit (unitState dflags) (moduleUnit modu) -- cgit v1.2.3