diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,11 @@
 # Revision history for digraph
 
+## 0.3.2 -- 2023-04-01
+
+* Fix spelling of Petersen graph. The old function name `petersonGraph` is
+  marked as deprecated and will be removed in the next major version. The new
+  function name is `petersenGraph`.
+
 ## 0.3.1 -- 2023-03-31
 
 * Add some degree-diameter graphs to the list of known graphs. These graphs
diff --git a/digraph.cabal b/digraph.cabal
--- a/digraph.cabal
+++ b/digraph.cabal
@@ -1,6 +1,6 @@
 cabal-version: 2.4
 name: digraph
-version: 0.3.1
+version: 0.3.2
 synopsis: Directed Graphs
 description: Directed graphs implementation that is based on unordered-containers
 homepage: https://github.com/kadena-io/digraph
diff --git a/src/Data/DiGraph.hs b/src/Data/DiGraph.hs
--- a/src/Data/DiGraph.hs
+++ b/src/Data/DiGraph.hs
@@ -80,6 +80,7 @@
 , diCycle
 , line
 , diLine
+, petersenGraph
 , petersonGraph
 , twentyChainGraph
 , hoffmanSingleton
@@ -540,15 +541,15 @@
 line :: Natural -> DiGraph Int
 line = symmetric . diLine
 
--- | The Peterson graph.
+-- | The Petersen graph.
 --
 -- * order: 10
 -- * size: 30
 -- * degree: 3
 -- * diameter: 2
 --
-petersonGraph :: DiGraph Int
-petersonGraph = DiGraph
+petersenGraph :: DiGraph Int
+petersenGraph = DiGraph
     [ (0, [2,3,5])
     , (1, [3,4,6])
     , (2, [4,0,7])
@@ -560,6 +561,10 @@
     , (8, [3,7,9])
     , (9, [4,8,5])
     ]
+
+petersonGraph :: DiGraph Int
+petersonGraph = petersenGraph
+{-# DEPRECATED petersonGraph "Use petersenGraph instead" #-}
 
 -- | The "twenty chain" graph.
 --
diff --git a/test/Data/DiGraph/Test.hs b/test/Data/DiGraph/Test.hs
--- a/test/Data/DiGraph/Test.hs
+++ b/test/Data/DiGraph/Test.hs
@@ -62,8 +62,8 @@
   where
     g = singleton
 
-properties_petersonGraph :: [(String, Property)]
-properties_petersonGraph = prefixProperties "petersonGraph: "
+properties_petersenGraph :: [(String, Property)]
+properties_petersenGraph = prefixProperties "petersenGraph: "
     $ ("order == 10", order g === 10)
     : ("size == 15", symSize g === 15)
     : ("outDegree == 3", maxOutDegree g === 3)
@@ -71,7 +71,7 @@
     : ("diameter == 2", diameter g === Just 2)
     : properties_undirected g
   where
-    g = petersonGraph
+    g = petersenGraph
 
 properties_twentyChainGraph :: [(String, Property)]
 properties_twentyChainGraph = prefixProperties "twentyChainGraph: "
@@ -179,7 +179,7 @@
     [ properties_emptyGraph 0
     , properties_emptyGraph 2
     , properties_singletonGraph
-    , properties_petersonGraph
+    , properties_petersenGraph
     , properties_twentyChainGraph
     , properties_hoffmanSingletonGraph
     , properties_pentagon