From dac34f6ff5c46f11fe6c548b92a02ebf4f10d7e9 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Thu, 10 Jan 2019 15:49:13 +0000
Subject: Rename files out of the module

---
 src/Test/VeriFuzz/Circuit.hs | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 src/Test/VeriFuzz/Circuit.hs

(limited to 'src/Test/VeriFuzz/Circuit.hs')

diff --git a/src/Test/VeriFuzz/Circuit.hs b/src/Test/VeriFuzz/Circuit.hs
deleted file mode 100644
index 7958f6a..0000000
--- a/src/Test/VeriFuzz/Circuit.hs
+++ /dev/null
@@ -1,38 +0,0 @@
-{-|
-Module      : VeriFuzz.Circuit
-Description : Definition of the circuit graph.
-Copyright   : (c) 2018-2019, Yann Herklotz Grave
-License     : BSD-3
-Maintainer  : ymherklotz [at] gmail [dot] com
-Stability   : experimental
-Portability : POSIX
-
-Definition of the circuit graph.
--}
-
-module VeriFuzz.Circuit where
-
-import           Data.Graph.Inductive (Gr, LNode)
-import           System.Random
-import           Test.QuickCheck
-
--- | The types for all the gates.
-data Gate = And
-          | Or
-          | Xor
-          deriving (Show, Eq, Enum, Bounded, Ord)
-
--- | Newtype for the Circuit which implements a Graph from fgl.
-newtype Circuit = Circuit { getCircuit :: Gr Gate () }
-
-newtype CNode = CNode { getCNode :: LNode Gate }
-
-instance Random Gate where
-  randomR (a, b) g =
-    case randomR (fromEnum a, fromEnum b) g of
-      (x, g') -> (toEnum x, g')
-
-  random = randomR (minBound, maxBound)
-
-instance Arbitrary Gate where
-  arbitrary = elements [And, Or, Xor]
-- 
cgit