module Translations.HealthLog where

import Data.Text (Text)
import qualified Data.Text as T
import I18N

import App.HealthLog

instance RenderMessage HealthLogError where
    defaultTranslator = renderHealthLogErrorEn

renderHealthLogErrorEn :: HealthLogError -> Text
renderHealthLogErrorEn (DatabaseError exc) = T.append "health log database failure: " (T.pack $ show exc)
renderHealthLogErrorEn (HealthLogUnknown str) = T.append "Unknown health log error: " str
