module Utils.Widgets
  ( i18n
  ) where

import ClassyPrelude.Yesod
import Yesod.Core.Types.Instances ()


i18n :: forall m msg.
        ( MonadWidget m
        , RenderMessage (HandlerSite m) msg
        ) => msg -> m ()
i18n = toWidget . (SomeMessage :: msg -> SomeMessage (HandlerSite m))
