From e8c4c8eba48c530a8009c7745cbc1522a2c663f9 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 16 Sep 2024 23:35:45 +0100
Subject: [PATCH]  Add file

---
 src/Dodge/Data/GenFloat.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/Dodge/Data/GenFloat.hs

diff --git a/src/Dodge/Data/GenFloat.hs b/src/Dodge/Data/GenFloat.hs
new file mode 100644
index 000000000..28ffa893d
--- /dev/null
+++ b/src/Dodge/Data/GenFloat.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.GenFloat
+    where
+import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+
+data GenFloat = ConstFloat {_gfConstant :: Float}
+    | UniRandFloat {_gfMin :: Float, _gfMax :: Float}
+    deriving (Eq, Show, Read) --Generic, Flat)
+
+makeLenses ''GenFloat
+deriveJSON defaultOptions ''GenFloat