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