add traces to analyze typelead#66

jneira · Aug 13, 2018 · 1a34084 · 1a34084
1 parent 5048002
commit 1a34084
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git 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
@@ -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