git.iko.soy/typeable/octopod
on master help sign in
Fixed buttons not opening links
commitedba080688684919cf1c15174cc04a00ed49f396 authoriko <ilyakooo0@gmail.com> dateFri 20 May 2022, 08:47 (4 years ago) parentb21e1bd
2 files changed+4−3
compare with master
unifiedsplit
.vscode/settings.json+2−1 octopod-frontend/src/Frontend/UIKit/Button/Common.hs+2−2
.vscode/settings.json+2−1
@@ -3,5 +3,6 @@
33 "haskell.formattingProvider": "fourmolu",
44 "haskell.plugin.hlint.diagnosticsOn": false,
55 "haskell.hlint.logLevel": "none",
6− "haskell.hlint.run": "never"
6+ "haskell.hlint.run": "never",
7+ "haskell.serverExecutablePath": "haskell-language-server"
78}
octopod-frontend/src/Frontend/UIKit/Button/Common.hs+2−2
@@ -77,7 +77,7 @@ buttonEl cfg = do
7777 ( const
7878 EventFlags
7979 { _eventFlags_propagation = Propagation_StopImmediate
80− , _eventFlags_preventDefault = True
80+ , _eventFlags_preventDefault = False
8181 }
8282 )
8383 & elementConfig_eventSpec
@@ -87,7 +87,7 @@ buttonEl cfg = do
8787 ( const
8888 EventFlags
8989 { _eventFlags_propagation = Propagation_StopImmediate
90− , _eventFlags_preventDefault = True
90+ , _eventFlags_preventDefault = False
9191 }
9292 )
9393 (bEl, _) <- element t elCfg (unTextBuilder (cfg ^. #buttonText))