diff --git a/pact-core/Pact/Core/IR/Term.hs b/pact-core/Pact/Core/IR/Term.hs
index d4228b7ec..9ab404da4 100644
--- a/pact-core/Pact/Core/IR/Term.hs
+++ b/pact-core/Pact/Core/IR/Term.hs
@@ -115,7 +115,7 @@ instance Show (TableSchema name) where
   show (DesugaredTable t) = "DesugardTable(" <> show t <> ")"
   show (ResolvedTable t) = "ResolvedTable(" <> show t <> ")"
 
-data DefTablename info
+data DefTable name info
   = DefTable
   { _dtName :: Text
   , _dtSchema :: TableSchema name