14 lines
292 B
Haskell
14 lines
292 B
Haskell
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))
|