module Ribosome.Control.StrictRibosome where

import Prelude hiding (state)

import Ribosome.Control.Ribosome (RibosomeState)

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

makeClassy ''StrictRibosome

instance Default s => Default (StrictRibosome s) where
  def :: StrictRibosome s
def = Text -> RibosomeState s -> StrictRibosome s
forall s. Text -> RibosomeState s -> StrictRibosome s
StrictRibosome Text
"default" RibosomeState s
forall a. Default a => a
def