From 036baeb670314358c6021aa9da2f23c1787aa3e6 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Fri, 9 Nov 2018 17:19:34 +0000
Subject: Add initial module files

---
 src/Test/VeriFuzz/CodeGen.hs      |  1 +
 src/Test/VeriFuzz/Graph/Random.hs | 13 +++++++++++++
 src/Test/VeriFuzz/Types.hs        |  8 ++++++++
 3 files changed, 22 insertions(+)
 create mode 100644 src/Test/VeriFuzz/CodeGen.hs
 create mode 100644 src/Test/VeriFuzz/Graph/Random.hs
 create mode 100644 src/Test/VeriFuzz/Types.hs

(limited to 'src')

diff --git a/src/Test/VeriFuzz/CodeGen.hs b/src/Test/VeriFuzz/CodeGen.hs
new file mode 100644
index 0000000..1872b28
--- /dev/null
+++ b/src/Test/VeriFuzz/CodeGen.hs
@@ -0,0 +1 @@
+module VeriFuzz.CodeGen where
diff --git a/src/Test/VeriFuzz/Graph/Random.hs b/src/Test/VeriFuzz/Graph/Random.hs
new file mode 100644
index 0000000..a0937d0
--- /dev/null
+++ b/src/Test/VeriFuzz/Graph/Random.hs
@@ -0,0 +1,13 @@
+module Test.VeriFuzz.Graph.Random
+  ( randomDAG
+  ) where
+
+import Data.Graph.Inductive
+import Test.QuickCheck
+
+randomDAG :: (Arbitrary a)
+          => GenIO    -- ^ The random number generator to use
+          -> Int      -- ^ The number of nodes
+          -> IO (Gr (LNode a) e) -- ^ The generated graph. It uses Arbitrary to
+                      -- generate random instances of each node
+randomDAG = do
diff --git a/src/Test/VeriFuzz/Types.hs b/src/Test/VeriFuzz/Types.hs
new file mode 100644
index 0000000..9c0de17
--- /dev/null
+++ b/src/Test/VeriFuzz/Types.hs
@@ -0,0 +1,8 @@
+module VeriFuzz.Types where
+
+data Gate = And
+          | Or
+          | Xor
+          | Nor
+          | Nand
+          deriving (Show, Eq, Ord)
-- 
cgit