git.iko.soy/patch
on develop help sign in
Fix GHC 7.8
e994423Ryan Trinkle
src/Reflex/Dynamic/Nub.hs+2−2
compare with develop
unifiedsplit
@@ -8,11 +8,11 @@ module Reflex.Dynamic.Nub
8 , alreadyNubbedDynamic
8 , alreadyNubbedDynamic
9 ) where
9 ) where
10
10
11+import Control.Applicative (Applicative (..))
12+import GHC.Exts
11import Reflex.Class
13import Reflex.Class
12import Reflex.Dynamic
14import Reflex.Dynamic
13
15
14−import GHC.Exts
15−
16newtype NubDynamic t a = NubDynamic { unNubDynamic :: Dynamic t a }
16newtype NubDynamic t a = NubDynamic { unNubDynamic :: Dynamic t a }
17
17
18nubDynamic :: Reflex t => Dynamic t a -> NubDynamic t a
18nubDynamic :: Reflex t => Dynamic t a -> NubDynamic t a
src/Reflex/Spider/Internal.hs+9−12
@@ -20,11 +20,6 @@
20{-# LANGUAGE UndecidableInstances #-}
20{-# LANGUAGE UndecidableInstances #-}
21module Reflex.Spider.Internal (Spider, SpiderEnv (..), Global, SpiderHost, runSpiderHost, SpiderEventHandle (..), showSubscriberType, showEventType, ComputeM (..), MergeSubscribedParent (..), HasSpiderEnv (..), newSpiderEnv, SpiderPullM (..), SpiderPushM (..), ReadPhase (..)) where
21module Reflex.Spider.Internal (Spider, SpiderEnv (..), Global, SpiderHost, runSpiderHost, SpiderEventHandle (..), showSubscriberType, showEventType, ComputeM (..), MergeSubscribedParent (..), HasSpiderEnv (..), newSpiderEnv, SpiderPullM (..), SpiderPushM (..), ReadPhase (..)) where
22
22
23−import Data.WeakBag (WeakBag, WeakBagTicket)
24−import qualified Data.WeakBag as WeakBag
25−import qualified Reflex.Class as R
26−import qualified Reflex.Host.Class as R
27−
28import Control.Applicative
23import Control.Applicative
29import Control.Concurrent
24import Control.Concurrent
30import Control.Exception
25import Control.Exception
@@ -37,35 +32,37 @@ import Control.Monad.State hiding (forM, forM_, mapM, mapM_, sequence)
37import Data.Align
32import Data.Align
38import Data.Dependent.Map (DMap, DSum (..))
33import Data.Dependent.Map (DMap, DSum (..))
39import qualified Data.Dependent.Map as DMap
34import qualified Data.Dependent.Map as DMap
40−import Data.Foldable
35+import Data.Foldable hiding (elem, sequence_, concat)
41import Data.Function
36import Data.Function
42import Data.Functor.Compose
37import Data.Functor.Compose
43import Data.GADT.Compare
38import Data.GADT.Compare
44import Data.IntMap.Strict (IntMap)
39import Data.IntMap.Strict (IntMap)
45import qualified Data.IntMap.Strict as IntMap
40import qualified Data.IntMap.Strict as IntMap
46import Data.IORef
41import Data.IORef
47−import Data.List
42+import Data.List hiding (foldl')
48import Data.Maybe
43import Data.Maybe
49−import Data.Monoid ((<>))
44+import Data.Monoid (mempty, (<>))
50import Data.Some (Some)
45import Data.Some (Some)
51import qualified Data.Some as Some
46import qualified Data.Some as Some
52import Data.These
47import Data.These
53import Data.Traversable
48import Data.Traversable
49+import Data.Word
54import System.Mem.Weak
50import System.Mem.Weak
55−
56−import GHC.Base (IO (..))
57import GHC.IORef (IORef (..))
51import GHC.IORef (IORef (..))
58import GHC.Stack
52import GHC.Stack
59−
60import Control.Monad.Primitive
53import Control.Monad.Primitive
61import Data.Coerce
54import Data.Coerce
62import System.IO.Unsafe
55import System.IO.Unsafe
63import Unsafe.Coerce
56import Unsafe.Coerce
64−
65import Data.List.NonEmpty (NonEmpty (..), nonEmpty)
57import Data.List.NonEmpty (NonEmpty (..), nonEmpty)
66import qualified Data.List.NonEmpty as NonEmpty
58import qualified Data.List.NonEmpty as NonEmpty
67import Data.Tree (Forest, Tree (..), drawForest)
59import Data.Tree (Forest, Tree (..), drawForest)
68
60
61+import Data.WeakBag (WeakBag, WeakBagTicket)
62+import qualified Data.WeakBag as WeakBag
63+import qualified Reflex.Class as R
64+import qualified Reflex.Host.Class as R
65+
69-- Note: must come last to silence warnings due to AMP on GHC < 7.10
66-- Note: must come last to silence warnings due to AMP on GHC < 7.10
70import Prelude hiding (any, concat, mapM, mapM_, sequence)
67import Prelude hiding (any, concat, mapM, mapM_, sequence)
71
68