aboutsummaryrefslogtreecommitdiffstats
path: root/src/VeriFuzz/Circuit/Base.hs
diff options
context:
space:
mode:
authorYann Herklotz <git@ymhg.org>2019-04-13 12:22:46 +0100
committerYann Herklotz <git@ymhg.org>2019-04-13 12:22:46 +0100
commitfabadfd1314ee5f1032a109a3182747d5bfecbb6 (patch)
tree1929aff825c7c92893f41b9a4f237696f4dea5bf /src/VeriFuzz/Circuit/Base.hs
parentb281cee59daa51ba4607229092274dfa2f801806 (diff)
parent7f32d8e4edd315ab4039432ca5b35c7eaa94f9ba (diff)
downloadverismith-fabadfd1314ee5f1032a109a3182747d5bfecbb6.tar.gz
verismith-fabadfd1314ee5f1032a109a3182747d5bfecbb6.zip
Merge branch 'docs'
Diffstat (limited to 'src/VeriFuzz/Circuit/Base.hs')
-rw-r--r--src/VeriFuzz/Circuit/Base.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/VeriFuzz/Circuit/Base.hs b/src/VeriFuzz/Circuit/Base.hs
index 6b9f725..ed63105 100644
--- a/src/VeriFuzz/Circuit/Base.hs
+++ b/src/VeriFuzz/Circuit/Base.hs
@@ -30,8 +30,10 @@ data Gate = And
-- | Newtype for the Circuit which implements a Graph from fgl.
newtype Circuit = Circuit { getCircuit :: Gr Gate () }
+-- | Newtype for a node in the circuit, which is an 'LNode Gate'.
newtype CNode = CNode { getCNode :: LNode Gate }
+-- | Newtype for a named edge which is empty, as it does not need a label.
newtype CEdge = CEdge { getCEdge :: LEdge () }
instance Random Gate where