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

git.iko.soy/reflex-dom

Fix hlint

commit5a95b46b945d1b6dee6dabcd41c674199023dc08 authorRyan Trinkle <ryan.trinkle@gmail.com> dateSun 6 Aug 2017, 18:51 (9 years ago) parent03eeec5

4 files changed+7−7

compare with develop

unifiedsplit

reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+2−2 reflex-dom-core/src/Reflex/Dom/Modals/Base.hs+2 reflex-dom-core/src/Reflex/Dom/Specializations.hs+2−4 reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+1−1

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

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

804804 delete _ sRef = do

805805 writeIORef sRef $ ChildReadyStateInt_Unready Nothing

806806 return ()

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

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

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

809809 return $ applyAlways p' old

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

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

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

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

816816 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

818818

819819#if MIN_VERSION_base(4,9,0)

820820data ChildReadyState k

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

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

1+{-

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE FlexibleInstances #-}

34{-# LANGUAGE GeneralizedNewtypeDeriving #-}

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

89{-# LANGUAGE ScopedTypeVariables #-}

910{-# LANGUAGE TypeFamilies #-}

1011{-# LANGUAGE UndecidableInstances #-}

12+-}

1113module Reflex.Dom.Modals.Base

1214where

1315{-

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

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

1−{-# LANGUAGE RecursiveDo #-}

1+{-# LANGUAGE FlexibleContexts #-}

22{-# LANGUAGE GADTs #-}

33{-# LANGUAGE OverloadedStrings #-}

4−{-# LANGUAGE ScopedTypeVariables #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE FlexibleContexts #-}

74{-# LANGUAGE Rank2Types #-}

5+{-# LANGUAGE ScopedTypeVariables #-}

86module Reflex.Dom.Specializations where

108import Data.Text (Text)

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

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

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

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

140140

141−{- INLINABLE dynText #-}

141+{-# INLINABLE dynText #-}

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

143143dynText t = do

144144 postBuild <- getPostBuild