From dd1a2323e743df5ca3109bae6e213cd7b02dddee Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Thu, 2 Feb 2017 21:00:10 +0100
Subject: Support 1U literals

---
 ast.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ast.hs')

diff --git a/ast.hs b/ast.hs
index b1b31b7..2f40b84 100644
--- a/ast.hs
+++ b/ast.hs
@@ -38,6 +38,7 @@ data Type = TypeInt Int
   deriving (Show, Eq)
 
 data Literal = LitInt Integer
+             | LitUInt Integer
              | LitFloat Double
              | LitString String
              | LitVar Name
@@ -128,6 +129,7 @@ instance PShow Type where
 
 instance PShow Literal where
     pshow (LitInt i) = pshow i
+    pshow (LitUInt i) = pshow i ++ "U"
     pshow (LitFloat x) = pshow x
     pshow (LitString s) = pshow s
     pshow (LitVar n) = n
-- 
cgit v1.2.3-70-g09d2