SourceGraph 0.7.0.3 → 0.7.0.4
raw patch · 3 files changed
+12/−8 lines, 3 filesdep ~Cabaldep ~Graphalyzedep ~graphviz
Dependency ranges changed: Cabal, Graphalyze, graphviz
Files
- Analyse/Visualise.hs +5/−3
- Parsing.hs +3/−1
- SourceGraph.cabal +4/−4
Analyse/Visualise.hs view
@@ -50,11 +50,12 @@ . graphviz params $ compactData dg' where- params = Params True gAttrs toClust ctypeID clustAttributes' nAttr eAttr+ params = Params True gAttrs toClust isClust ctypeID clustAttributes' nAttr eAttr dg' = origHData dg gAttrs = [nodeAttrs] -- [GraphAttrs [toLabel t]] -- Possible clustering problem toClust = clusterEntity -- bool clusterEntity clusterEntityM' $ isJust mm+ isClust = const True nAttr = entityAttributes dg' (isNothing mm) mm eAttr = callAttributes' dg' @@ -63,7 +64,7 @@ drawGraph' gid dg = setID (toGraphID gid) . graphvizClusters params $ compactData dg' where- params = Params True gAttrs N undefined modClustAttrs nAttr eAttr+ params = Params True gAttrs N undefined undefined modClustAttrs nAttr eAttr dg' = collapsedHData dg gAttrs = [nodeAttrs] -- [GraphAttrs [toLabel t]] nAttr = entityAttributes dg' False Nothing@@ -213,7 +214,8 @@ drawModules gid md = setID (toGraphID gid) . graphviz params $ graphData md where- params = Params True gAttrs clusteredModule cID cAttr nAttr eAttr+ params = Params True gAttrs clusteredModule isClust cID cAttr nAttr eAttr+ isClust = const True cID (_,s) = bool undefined (toGraphID s) $ (not . null) s gAttrs = [nodeAttrs] -- [GraphAttrs [toLabel t]] cAttr dp = [GraphAttrs $ directoryAttributes dp]
Parsing.hs view
@@ -66,7 +66,9 @@ (ParseOk hs) -> Right hs _ -> Left p where- mode = defaultParseMode { parseFilename = p }+ mode = defaultParseMode { parseFilename = p+ , fixities = Nothing+ } -- | Parse all the files that you can. parseFiles :: [FileContents] -> ([FilePath],[Module])
SourceGraph.cabal view
@@ -1,5 +1,5 @@ Name: SourceGraph-Version: 0.7.0.3+Version: 0.7.0.4 Synopsis: Static code analysis using graph-theoretic techniques. Description: { Statically analyse Haskell source code using graph-theoretic@@ -75,8 +75,8 @@ directory, mtl, fgl >= 5.4.2.3 && < 5.5,- Graphalyze == 0.13.*,- graphviz >= 2999.14.1.0 && < 2999.15,- Cabal >= 1.8 && < 1.15,+ Graphalyze == 0.14.*,+ graphviz >= 2999.15.0.0 && < 2999.16,+ Cabal >= 1.8 && < 1.17, haskell-src-exts >= 1.5.0 && < 1.14.0 }