diff --git a/Data/GraphViz/Printing.hs b/Data/GraphViz/Printing.hs
index 37fcf46..08128fc 100644
--- a/Data/GraphViz/Printing.hs
+++ b/Data/GraphViz/Printing.hs
@@ -92,7 +92,7 @@ import           Data.Char           (toLower)
 import qualified Data.Set            as Set
 import           Data.String         (IsString(..))
 import           Data.Version        (Version(..))
-import           Data.Word           (Word16, Word8)
+import           Data.Word           (Word64, Word32, Word16, Word8)
 
 #if !(MIN_VERSION_base (4,11,0))
 
@@ -191,6 +191,12 @@ instance PrintDot Word8 where
 instance PrintDot Word16 where
   unqtDot = int . fromIntegral
 
+instance PrintDot Word32 where
+  unqtDot = unqtDot . toInteger
+
+instance PrintDot Word64 where
+  unqtDot = unqtDot . toInteger
+
 instance PrintDot Double where
   -- If it's an "integral" double, then print as an integer.  This
   -- seems to match how Graphviz apps use Dot.