Commit 99cc1cdf authored by Jonas Oberschweiber's avatar Jonas Oberschweiber

Remove trace/Debug

parent dd470b4b
......@@ -11,7 +11,6 @@ module CPM.AbstractCurry
, applyModuleRenames
) where
import Debug (trace)
import Distribution (FrontendTarget (..), FrontendParams (..), defaultParams
, callFrontendWithParams, setQuiet, setFullPath
, curryCompiler, installDir, inCurrySubdir, modNameToPath
......
......@@ -25,7 +25,6 @@ import AbstractCurry.Types (CurryProg (..), CFuncDecl (..), CVisibility (..)
, CTypeExpr (..), CPattern (..), CExpr (..)
, CTypeDecl (..), CConsDecl (..), CFieldDecl (..)
, CVarIName)
import Debug (trace)
import Directory (createDirectory, doesDirectoryExist, getTemporaryDirectory)
import FilePath ((</>), joinPath)
import Function (both)
......
......@@ -5,7 +5,6 @@ module CPM.Diff.CurryComments
) where
import Char
import Debug (trace, traceShowId)
import List (isSuffixOf)
-- This is adapted from the currydoc source code.
......
......@@ -5,7 +5,6 @@
module CPM.Diff.Rename (prefixPackageAndDeps) where
import Debug (trace)
import Directory (doesDirectoryExist, getDirectoryContents, createDirectory)
import FilePath ((</>), joinPath, takeDirectory, takeBaseName, takeExtension)
import List (splitOn)
......
......@@ -19,7 +19,6 @@ module CPM.LookupSet
, setLocallyIgnored
) where
import Debug (trace)
import List (sortBy, delete, deleteBy)
import TableRBT
import Test.EasyCheck
......
......@@ -4,7 +4,6 @@ import Either
import List (intercalate, splitOn)
import System (getArgs, setEnviron, system, unsetEnviron, exitWith)
import FilePath ((</>))
import Debug (trace)
import Directory (doesFileExist, getAbsolutePath, doesDirectoryExist
, createDirectory)
import IO (hFlush, stdout)
......
......@@ -22,7 +22,6 @@ module CPM.PackageCache.Global
, emptyCache
) where
import Debug (trace)
import Directory
import Either
import List
......
......@@ -18,7 +18,6 @@ module CPM.Repository
, updateRepository
) where
import Debug (trace)
import Directory
import Either
import List
......
......@@ -15,7 +15,6 @@ module CPM.Resolution
, resolveDependenciesFromLookupSet
) where
import Debug
import Distribution (curryCompiler, curryCompilerMinorVersion
, curryCompilerMajorVersion)
import Either
......@@ -331,15 +330,6 @@ findDeepestNode = snd . maxNode . leaves . depthTree
depthTree = relabel 0
relabel n (Node a cs) = Node (n, a) (map (relabel (n + 1)) cs)
traceDepthTree :: Tree (Int, ConflictState) -> Tree (Int, ConflictState)
traceDepthTree v = trace (showTree $ mapTree label' v) v
where
mkActLabel = text . packageId . actPackage . fst
label' (n, (a, Nothing)) = text (show n) <+> colon <+> mkActLabel a
label' (n, (a, Just (CompilerConflict _))) = red $ text (show n) <+> colon <+> text "C" <+> mkActLabel a
label' (n, (a, Just (PrimaryConflict _))) = red $ text (show n) <+> colon <+> text "P" <+> mkActLabel a
label' (n, (a, Just (SecondaryConflict _ _))) = red $ text (show n) <+> colon <+> text "S" <+> mkActLabel a
findRelevantConflict :: Tree ConflictState -> Maybe ConflictState
findRelevantConflict = maybeMostRelevant . map mostRelevant . map snd . minGroups . filter ((/= []) . snd) . findGroups . cutBelowConflict . relabel
where
......@@ -447,7 +437,7 @@ packageSource :: Package -> LookupSet -> Maybe LookupSource
packageSource p ls = lookupSource ls p
allTransitiveDependencies' :: [String] -> LookupSet -> String -> [String]
allTransitiveDependencies' seen ls pkg = trace pkg $ nub $ allDeps
allTransitiveDependencies' seen ls pkg = nub $ allDeps
where
allVersions = findAllVersions ls pkg True
allDeps = foldl (\s d -> transitiveDependencies' s ls d) seen allVersions
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment