From 51f2d2bb3330ffc4f17668382693d07a6c44bc1b Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Mon, 13 Jul 2020 18:55:47 -0600
Subject: [PATCH] avoid unnecessary unased-unsized casts in assignments

---
 src/Convert/UnbasedUnsized.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/Convert/UnbasedUnsized.hs b/src/Convert/UnbasedUnsized.hs
index b27ac55..87497c7 100644
--- a/src/Convert/UnbasedUnsized.hs
+++ b/src/Convert/UnbasedUnsized.hs
@@ -117,8 +117,7 @@ convertModuleItemM other = return $ convertModuleItem other
 convertModuleItem :: ModuleItem -> ModuleItem
 convertModuleItem =
     traverseExprs (convertExpr SelfDetermined) .
-    traverseTypes (traverseNestedTypes convertType) .
-    traverseAsgns convertAsgn
+    traverseTypes (traverseNestedTypes convertType)
 
 literalFor :: Char -> Expr
 literalFor 'Z' = literalFor 'z'
@@ -144,11 +143,6 @@ sizedLiteralFor expr ch =
     Cast (Right size) (literalFor ch)
     where size = DimsFn FnBits $ Right expr
 
-convertAsgn :: (LHS, Expr) -> (LHS, Expr)
-convertAsgn (lhs, expr) =
-    (lhs, convertExpr context expr)
-    where context = ContextDetermined $ lhsToExpr lhs
-
 convertExpr :: ExprContext -> Expr -> Expr
 convertExpr _ (DimsFn fn (Right e)) =
     DimsFn fn $ Right $ convertExpr SelfDetermined e