Literal -> Lit, LitE -> Lit

2023-12-18 15:36:17 -07:00
parent 585130cfac
commit 136e3687b0
5 changed files with 12 additions and 12 deletions
--- a/src/Core/Utils.hs
+++ b/src/Core/Utils.hs
@@ -32,7 +32,7 @@ rhssOf = fromList . fmap f

 isAtomic :: Expr b -> Bool
 isAtomic (Var _)  = True
-isAtomic (LitE _) = True
+isAtomic (Lit _)  = True
 isAtomic _        = False

 ----------------------------------------------------------------------------------