ribosome-0.3.0.0: lib/Ribosome/Data/ErrorReport.hs

{-# LANGUAGE TemplateHaskell #-}

module Ribosome.Data.ErrorReport(
  ErrorReport(..),
  user,
  log,
  priority,
) where

import Control.Lens (makeClassy)
import System.Log (Priority)

data ErrorReport =
  ErrorReport {
    _user :: Text,
    _log :: [Text],
    _priority :: Priority
  }
  deriving (Eq, Show)

makeClassy ''ErrorReport