git.iko.soy/reflex-dom
on develop help sign in
Merge pull request #301 from chessai/illegal-nested-constraint

fix Illegal nested constraint & use of deprecated Data.Map.foldWithKey

commit96fddec888120e5122a16a8f289a4f3a4186be63 authorRyan Trinkle <ryan.trinkle@gmail.com> dateTue 26 Mar 2019, 13:18 (8 years ago) parent646a98af5bd9df
2 files changed+3−1
compare with develop
unifiedsplit
reflex-dom-core/src/Foreign/JavaScript/Orphans.hs+2 reflex-dom-core/src/Reflex/Dom/Widget/Lazy.hs+1−1
reflex-dom-core/src/Foreign/JavaScript/Orphans.hs+2
@@ -1,6 +1,8 @@
11{-# OPTIONS_HADDOCK hide #-}
22{-# LANGUAGE CPP #-}
33{-# LANGUAGE FlexibleContexts #-}
4+{-# LANGUAGE UndecidableInstances #-}
5+
46{-# OPTIONS_GHC -fno-warn-orphans #-}
57module Foreign.JavaScript.Orphans where
68
reflex-dom-core/src/Reflex/Dom/Widget/Lazy.hs+1−1
@@ -108,7 +108,7 @@ virtualList heightPx rowPx maxIndex i0 setI keyToIndex items0 itemsUpdate itemBu
108108 uniqWindow <- holdUniqDyn window
109109 return (uniqWindow, result)
110110 where
111− toStyleAttr m = "style" =: Map.foldWithKey (\k v s -> k <> ":" <> v <> ";" <> s) "" m
111+ toStyleAttr m = "style" =: Map.foldrWithKey (\k v s -> k <> ":" <> v <> ";" <> s) "" m
112112 mkViewport h = toStyleAttr $ "overflow" =: "auto" <> "position" =: "absolute" <>
113113 "left" =: "0" <> "right" =: "0" <> "height" =: (T.pack (show h) <> "px")
114114 mkContainer h = toStyleAttr $ "position" =: "relative" <> "height" =: (T.pack (show h) <> "px")