@@ -260,6 +260,7 @@ getNotDistinctQubits (GeneratedAbstractSyntax.FunDecl _ funDef) = collectNotDist
260
260
collectNotDistinct (GeneratedAbstractSyntax. TermBasisState _) notDistinctQubits = notDistinctQubits
261
261
collectNotDistinct (GeneratedAbstractSyntax. TermGate _) notDistinctQubits = notDistinctQubits
262
262
collectNotDistinct (GeneratedAbstractSyntax. TermTuple _) notDistinctQubits = notDistinctQubits
263
+ collectNotDistinct (GeneratedAbstractSyntax. TermBit _) notDistinctQubits = notDistinctQubits
263
264
collectNotDistinct GeneratedAbstractSyntax. TermUnit notDistinctQubits = notDistinctQubits
264
265
265
266
getNotDistinctBits :: GeneratedAbstractSyntax. FunctionDeclaration -> [String ] -> [String ]
@@ -292,6 +293,7 @@ getNotDistinctBits (GeneratedAbstractSyntax.FunDecl _ funDef) = collectNotDistin
292
293
collectNotDistinct (GeneratedAbstractSyntax. TermBasisState _) notDistinctBits = notDistinctBits
293
294
collectNotDistinct (GeneratedAbstractSyntax. TermGate _) notDistinctBits = notDistinctBits
294
295
collectNotDistinct (GeneratedAbstractSyntax. TermTuple _) notDistinctBits = notDistinctBits
296
+ collectNotDistinct (GeneratedAbstractSyntax. TermBit _) notDistinctBits = notDistinctBits
295
297
collectNotDistinct GeneratedAbstractSyntax. TermUnit notDistinctBits = notDistinctBits
296
298
297
299
-- TODO multiple qubits gates not supported yet
@@ -327,6 +329,7 @@ getDuplicatedCtrlAndTgtQubits (GeneratedAbstractSyntax.FunDecl _ funDef) = colle
327
329
collectDuplicated (GeneratedAbstractSyntax. TermBasisState _) duplicatedQubits = duplicatedQubits
328
330
collectDuplicated (GeneratedAbstractSyntax. TermGate _) duplicatedQubits = duplicatedQubits
329
331
collectDuplicated (GeneratedAbstractSyntax. TermTuple _) duplicatedQubits = duplicatedQubits
332
+ collectDuplicated (GeneratedAbstractSyntax. TermBit _) duplicatedQubits = duplicatedQubits
330
333
collectDuplicated GeneratedAbstractSyntax. TermUnit duplicatedQubits = duplicatedQubits
331
334
332
335
getQubit :: GeneratedAbstractSyntax. Term -> String
0 commit comments