1 files changed, 7 insertions, 2 deletions

diff --git a/ddl/Definitions.hs b/ddl/Definitions.hs
index 04f461c..1849ed2 100644
--- a/ddl/Definitions.hs
+++ b/ddl/Definitions.hs
@@ -459,12 +459,17 @@ mesh = do
       ]
 
 typeInfo = do
-  data_ "TypeInfo" $ do
-    constR_ "TypeInfo"
+  data_ "Range" $ do
+    constR_ "Range"
       [ "startLine"   #:: Int
       , "startColumn" #:: Int
       , "endLine"     #:: Int
       , "endColumn"   #:: Int
+      ]
+
+  data_ "TypeInfo" $ do
+    constR_ "TypeInfo"
+      [ "range"       #:: "Range"
       , "text"        #:: String
       ]