vollo: remove tagging types in patterns

cchalmers · Nov 30, 2023 · 91a2149 · 91a2149
1 parent 9e09b75
commit 91a2149
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/CircuitNotation.hs b/src/CircuitNotation.hs
@@ -811,7 +811,7 @@ bindWithSuffix dflags dir = \case
   FwdExpr (L l _) -> L l (WildPat noExt)
 #endif
   FwdPat lpat -> tagP lpat
-  PortType ty p -> tagTypeP dir ty $ bindWithSuffix dflags dir p
+  PortType _ty p -> bindWithSuffix dflags dir p
 
 revDirec :: Direction -> Direction
 revDirec = \case