Link with prevent default on click

preventdefault.hs

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

import Control.Lens ((&), (%~), (.~))
import Data.Proxy
import Reflex.Dom

main :: IO ()
main = mainWidget $ do
  (click, ()) <- linkPreventDefault $ text "O.S."
  display =<< count click

linkPreventDefault :: forall t m a. DomBuilder t m => m a -> m (Event t (), a)
linkPreventDefault c = do
  let cfg = (def :: ElementConfig EventResult t (DomBuilderSpace m))
        & elementConfig_initialAttributes .~ ("href" =: "https://obsidian.systems")
        & elementConfig_eventSpec %~ addEventSpecFlags (Proxy :: Proxy (DomBuilderSpace m)) Click (const preventDefault)
  (link, a) <- element "a" cfg c
  return (domEvent Click link, a)