From 3abe12dfbdd2eec2c0974b8142a34ddd52782454 Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Sun, 3 Oct 2021 15:00:59 -0600
Subject: [PATCH] support exclusion of the unbased unsized conversion

---
 CHANGELOG.md   | 7 +++++++
 src/Convert.hs | 2 +-
 src/Job.hs     | 1 +
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 5a3e9ed..457ff36 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,10 @@
+## Unreleased
+
+### New Features
+
+* Added support for excluding the conversion of unbased unsized literals (e.g.,
+  `'1`, `'x`) via `--exclude UnbasedUniszed`
+
 ## v0.0.9
 
 ### Breaking Changes
diff --git a/src/Convert.hs b/src/Convert.hs
index fa593ae..75623ff 100644
--- a/src/Convert.hs
+++ b/src/Convert.hs
@@ -76,7 +76,7 @@ mainPhases selectExclude =
     , Convert.Inside.convert
     , Convert.IntTypes.convert
     , Convert.MultiplePacked.convert
-    , Convert.UnbasedUnsized.convert
+    , selectExclude Job.UnbasedUnsized Convert.UnbasedUnsized.convert
     , Convert.Cast.convert
     , Convert.ParamType.convert
     , Convert.HierConst.convert
diff --git a/src/Job.hs b/src/Job.hs
index c23be4e..f730eb0 100644
--- a/src/Job.hs
+++ b/src/Job.hs
@@ -24,6 +24,7 @@ data Exclude
     | Interface
     | Logic
     | Succinct
+    | UnbasedUnsized
     deriving (Typeable, Data, Eq)
 
 data Write