diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-29 01:58:55 +0100 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2018-12-29 01:58:55 +0100 |
commit | f9b387e371df9c3f91de9da7dd6ac3c4efb58ea0 (patch) | |
tree | fb4f871288873084aba969b301f8430646988dcd /src | |
parent | 5db743f5343e874dfeab2e4f81ee98550ce8ef49 (diff) | |
download | verismith-f9b387e371df9c3f91de9da7dd6ac3c4efb58ea0.tar.gz verismith-f9b387e371df9c3f91de9da7dd6ac3c4efb58ea0.zip |
Rearrange instances
Diffstat (limited to 'src')
-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 |