{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Debug
  ( event
  ) where

import Data.Text (Text)
import qualified Data.Text as T
import Reflex.Dom (MonadWidget, Event, Dynamic)
import qualified Reflex.Dom as R

event :: forall t m a. MonadWidget t m => Text -> Event t a -> m ()
event name e = do
  count <- R.count e :: m (Dynamic t Int)
  let text = fmap (\c -> T.concat [name, " ", (T.pack . show $ c)]) count
  R.el "div" $ R.dynText text