From f9b387e371df9c3f91de9da7dd6ac3c4efb58ea0 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 29 Dec 2018 01:58:55 +0100 Subject: Rearrange instances --- src/Test/VeriFuzz/Verilog/AST.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Test') 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 -- cgit