diff --git a/etlas-cabal/Distribution/Backpack/ConfiguredComponent.hs b/etlas-cabal/Distribution/Backpack/ConfiguredComponent.hs index aebeaab..22193b3 100644 --- a/etlas-cabal/Distribution/Backpack/ConfiguredComponent.hs +++ b/etlas-cabal/Distribution/Backpack/ConfiguredComponent.hs @@ -47,7 +47,7 @@ import qualified Data.Set as Set import qualified Data.Map as Map import Distribution.Text import Text.PrettyPrint - +import Debug.Trace -- | A configured component, we know exactly what its 'ComponentId' is, -- and the 'ComponentId's of the things it depends on. data ConfiguredComponent @@ -162,6 +162,10 @@ toConfiguredComponent -> Component -> LogProgress ConfiguredComponent toConfiguredComponent pkg_descr this_cid dep_map component = do + traceM "toConfiguredComponent.pkg_descr" + traceShowM pkg_descr + traceM "toConfiguredComponent.dep_map" + traceShowM dep_map lib_deps <- if newPackageDepsBehaviour pkg_descr then forM (targetBuildDepends bi) $ \(Dependency name _) -> do diff --git a/etlas/Distribution/Client/ProjectConfig.hs b/etlas/Distribution/Client/ProjectConfig.hs index c382506..9245c54 100644 --- a/etlas/Distribution/Client/ProjectConfig.hs +++ b/etlas/Distribution/Client/ProjectConfig.hs @@ -127,7 +127,7 @@ import qualified Data.Set as Set import System.FilePath hiding (combine) import System.Directory import Network.URI (URI(..), URIAuth(..), parseAbsoluteURI) - +import Debug.Trace ---------------------------------------- -- Resolving configuration to settings @@ -985,7 +985,7 @@ readSourcePackage verbosity _distDirLayout pkgdesc <- liftIO $ Dhall.readGenericPackageDescription verbosity (root dhallFile) return $ SpecificSourcePackage SourcePackage { packageInfoId = packageId pkgdesc, - packageDescription = pkgdesc, + packageDescription = trace "readSourcePacakge.dhall.pkgdesc" $ traceShowId $ pkgdesc, packageSource = LocalUnpackedPackage (root dir), packageDescrOverride = Nothing, packagePatch = Nothing @@ -998,7 +998,7 @@ readSourcePackage verbosity _distDirLayout pkgdesc <- liftIO $ readGenericPackageDescription verbosity (root cabalFile) return $ SpecificSourcePackage SourcePackage { packageInfoId = packageId pkgdesc, - packageDescription = pkgdesc, + packageDescription = trace "readSourcePacakge.dhall.pkgdesc" $ traceShowId $ pkgdesc, packageSource = LocalUnpackedPackage (root dir), packageDescrOverride = Nothing, packagePatch = Nothing