ribosome-0.4.0.0: lib/Ribosome/Control/StrictRibosome.hs

module Ribosome.Control.StrictRibosome where

import Prelude hiding (state)

import Ribosome.Control.Ribosome (RibosomeState)

data StrictRibosome s =
  StrictRibosome {
    _name :: Text,
    _state :: RibosomeState s
    }

makeClassy ''StrictRibosome

instance Default s => Default (StrictRibosome s) where
  def = StrictRibosome "default" def