diff options
| -rw-r--r-- | src/Test/VeriFuzz/Verilog/AST.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Test/VeriFuzz/Verilog/AST.hs b/src/Test/VeriFuzz/Verilog/AST.hs index 9f406dc..f0178cf 100644 --- a/src/Test/VeriFuzz/Verilog/AST.hs +++ b/src/Test/VeriFuzz/Verilog/AST.hs @@ -372,6 +372,11 @@ instance QC.Arbitrary Description where instance QC.Arbitrary VerilogSrc where arbitrary = VerilogSrc <$> QC.arbitrary +-- Other Instances + +instance IsString Identifier where + fromString = Identifier . T.pack + -- Traversal Instance traverseExpr :: Traversal' Expression Expression @@ -402,8 +407,3 @@ makeLenses ''PortType makePrisms ''Expression makePrisms ''ModItem makePrisms ''ModConn - --- Other Instances - -instance IsString Identifier where - fromString = Identifier . T.pack |