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