diff --git a/Analyse/Visualise.hs b/Analyse/Visualise.hs
--- a/Analyse/Visualise.hs
+++ b/Analyse/Visualise.hs
@@ -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]
diff --git a/Parsing.hs b/Parsing.hs
--- a/Parsing.hs
+++ b/Parsing.hs
@@ -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])
diff --git a/SourceGraph.cabal b/SourceGraph.cabal
--- a/SourceGraph.cabal
+++ b/SourceGraph.cabal
@@ -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
 }