diff --git a/CHANGELOG.md b/CHANGELOG.md
index 47117b4..9ecfe23 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## Unreleased
+### [Changed]
+- [#49] Make the background of modules tinted.
+
 ## 0.1.7
 ### [Added]
 - [#46] GHC 9.8, 9.10 support
diff --git a/src/Calligraphy/Phases/Render/GraphViz.hs b/src/Calligraphy/Phases/Render/GraphViz.hs
index 724684e..64ff950 100644
--- a/src/Calligraphy/Phases/Render/GraphViz.hs
+++ b/src/Calligraphy/Phases/Render/GraphViz.hs
@@ -73,6 +73,7 @@ renderGraphViz GraphVizConfig {..} (RenderGraph roots calls types) = do
     printModule (RenderModule lbl modId trees) =
       brack ("subgraph cluster_module_" <> modId <> " {") "}" $ do
         strLn $ "label=" <> show lbl <> ";"
+        strLn "bgcolor=\"whitesmoke\""
         forM_ trees printTree
 
     printNode :: Prints RenderNode