From 357b2921b3c076e1f2156cc3284d589607d51894 Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Thu, 18 Feb 2021 17:10:41 -0500
Subject: [PATCH] restrict enum conversion to parts

---
 src/Convert/Enum.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/src/Convert/Enum.hs b/src/Convert/Enum.hs
index a3df037..5934ed1 100644
--- a/src/Convert/Enum.hs
+++ b/src/Convert/Enum.hs
@@ -36,24 +36,13 @@ convert :: [AST] -> [AST]
 convert = map $ concatMap convertDescription
 
 convertDescription :: Description -> [Description]
-convertDescription (Package ml name items) =
-    [Package ml name $ concatMap convertPackageItem items]
 convertDescription (description @ Part{}) =
     [Part attrs extern kw lifetime name ports items']
     where
         items' = inject enumItems items -- only keep what's used
         Part attrs extern kw lifetime name ports items = description'
         (description', enumItems) = convertDescription' description
-convertDescription (PackageItem item) =
-    map PackageItem $ convertPackageItem item
-
--- explode a package item with its corresponding enum items
-convertPackageItem :: PackageItem -> [PackageItem]
-convertPackageItem item = do
-    item' : enumItems
-    where
-        (PackageItem item', enumItems) =
-            convertDescription' $ PackageItem item
+convertDescription other = [other]
 
 -- replace and collect the enum types in a description
 convertDescription' :: Description -> (Description, [PackageItem])