Add file

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