5a95b46 · reflex-dom · git.iko.soy

reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+2−2

compare with develop

unifiedsplit

@@ -804,7 +804,7 @@ traverseIntMapWithKeyWithAdjust' = do

804 delete _ sRef = do

805 writeIORef sRef $ ChildReadyStateInt_Unready Nothing

806 return ()

807− p' <- fmap PatchIntMap $ IntMap.traverseWithKey new pInner

807+ p' <- PatchIntMap <$> IntMap.traverseWithKey new pInner

808 _ <- IntMap.traverseWithKey delete $ FastMutableIntMap.getDeletions p old

809 return $ applyAlways p' old

810 hoistTraverseIntMapWithKeyWithAdjust traverseIntMapWithKeyWithAdjust updateChildUnreadiness $ \placeholders lastPlaceholderRef (PatchIntMap p) -> do

@@ -814,7 +814,7 @@ traverseIntMapWithKeyWithAdjust' = do

814 let nextPlaceholder = maybe lastPlaceholder snd $ IntMap.lookupGT k phs

815 forM_ (IntMap.lookup k phs) $ \thisPlaceholder -> thisPlaceholder `deleteUpTo` nextPlaceholder

816 forM_ mv $ \(df, _, _, _) -> df `insertBefore` nextPlaceholder

817− liftIO $ writeIORef placeholders $! fromMaybe phs $ apply (fmap (\(_, ph, _, _) -> ph) $ PatchIntMap p) phs

817+ liftIO $ writeIORef placeholders $! fromMaybe phs $ apply ((\(_, ph, _, _) -> ph) <$> PatchIntMap p) phs

818

819#if MIN_VERSION_base(4,9,0)

820data ChildReadyState k

reflex-dom-core/src/Reflex/Dom/Modals/Base.hs+2

@@ -1,3 +1,4 @@

1+{-

1{-# LANGUAGE CPP #-}

2{-# LANGUAGE CPP #-}

2{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE GeneralizedNewtypeDeriving #-}

4{-# LANGUAGE GeneralizedNewtypeDeriving #-}

@@ -8,6 +9,7 @@

8{-# LANGUAGE ScopedTypeVariables #-}

9{-# LANGUAGE ScopedTypeVariables #-}

9{-# LANGUAGE TypeFamilies #-}

10{-# LANGUAGE TypeFamilies #-}

10{-# LANGUAGE UndecidableInstances #-}

11{-# LANGUAGE UndecidableInstances #-}

12+-}

11module Reflex.Dom.Modals.Base

13module Reflex.Dom.Modals.Base

12where

14where

13{-

15{-

reflex-dom-core/src/Reflex/Dom/Specializations.hs+2−4

@@ -1,10 +1,8 @@

1−{-# LANGUAGE RecursiveDo #-}

1+{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE GADTs #-}

3{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE ScopedTypeVariables #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE FlexibleContexts #-}

7{-# LANGUAGE Rank2Types #-}

4{-# LANGUAGE Rank2Types #-}

5+{-# LANGUAGE ScopedTypeVariables #-}

8module Reflex.Dom.Specializations where

6module Reflex.Dom.Specializations where

9

7

10import Data.Text (Text)

8import Data.Text (Text)

reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+1−1

@@ -138,7 +138,7 @@ listHoldWithKey m0 m' f = do

138text :: DomBuilder t m => Text -> m ()

139text t = void $ textNode $ def & textNodeConfig_initialContents .~ t

140

141−{- INLINABLE dynText #-}

141+{-# INLINABLE dynText #-}

142dynText :: forall t m. (PostBuild t m, DomBuilder t m) => Dynamic t Text -> m ()

143dynText t = do

144 postBuild <- getPostBuild