From 5ea5e05a87c76d80194dbdfac177994aa870b783 Mon Sep 17 00:00:00 2001
From: Péter Diviánszky <divipp@gmail.com>
Date: Fri, 26 Feb 2016 12:32:18 +0100
Subject: add Range type

---
 ddl/Definitions.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'ddl/Definitions.hs')

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
       ]
 
-- 
cgit v1.2.3