From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 client/src/Component/Link.hs | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 client/src/Component/Link.hs

(limited to 'client/src/Component/Link.hs')

diff --git a/client/src/Component/Link.hs b/client/src/Component/Link.hs
deleted file mode 100644
index 1fd620e..0000000
--- a/client/src/Component/Link.hs
+++ /dev/null
@@ -1,33 +0,0 @@
-module Component.Link
-  ( view
-  ) where
-
-import           Data.Map   (Map)
-import qualified Data.Map   as M
-import           Data.Text  (Text)
-import qualified Data.Text  as T
-import           Reflex.Dom (Dynamic, MonadWidget)
-import qualified Reflex.Dom as R
-
-view :: forall t m a. MonadWidget t m => Text -> Dynamic t (Map Text Text) -> Text -> m ()
-view href inputAttrs content =
-  R.elDynAttr "a" attrs (R.text content)
-  where
-
-    onclickHandler =
-      T.intercalate ";"
-        [ "history.pushState(0, '', event.target.href)"
-        , "dispatchEvent(new PopStateEvent('popstate', {cancelable: true, bubbles: true, view: window}))"
-        , "return false"
-        ]
-
-    attrs =
-      R.ffor inputAttrs (\as ->
-        (M.union
-          (M.fromList
-            [ ("onclick", onclickHandler)
-            , ("href", href)
-            ]
-          )
-          as)
-      )
-- 
cgit v1.2.3