diff options
| author | Joris | 2017-11-19 15:00:07 +0100 |
|---|---|---|
| committer | Joris | 2017-11-19 15:19:00 +0100 |
| commit | bab2c30addf8aaed85675e2b7f7b15c97c426f74 (patch) | |
| tree | b685a35e3c86e9388a23f09ed2546c89cb2ac260 /client/src/Component/Button.hs | |
| parent | 7194cddb28656c721342c2ef604f9f9fb0692960 (diff) | |
| download | budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.tar.gz budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.tar.bz2 budget-bab2c30addf8aaed85675e2b7f7b15c97c426f74.zip | |
Add exceeding payer block
Diffstat (limited to 'client/src/Component/Button.hs')
| -rw-r--r-- | client/src/Component/Button.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/client/src/Component/Button.hs b/client/src/Component/Button.hs index 09c93cd..754b903 100644 --- a/client/src/Component/Button.hs +++ b/client/src/Component/Button.hs @@ -48,9 +48,3 @@ button buttonIn = do return $ ButtonOut { _buttonOut_clic = R.domEvent R.Click e } - --- mergeAttr :: Map Text Text -> Map Text Text -> Map Text Text --- mergeAttr = M.unionWithKey $ \k a b -> --- if k == "class" --- then T.intercalate " " [ a, b ] --- else b |