@@ -1,54 +1,75 @@
1−{-# LANGUAGE CPP, ExistentialQuantification, GADTs, ScopedTypeVariables, TypeFamilies, FlexibleInstances, MultiParamTypeClasses, GeneralizedNewtypeDeriving, RankNTypes, BangPatterns, UndecidableInstances, EmptyDataDecls, RecursiveDo, RoleAnnotations, LambdaCase, TypeOperators, FlexibleContexts, ConstraintKinds, MagicHash, UnboxedTuples, FunctionalDependencies, MultiWayIf #-}
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE CPP #-}
3+{-# LANGUAGE ConstraintKinds #-}
4+{-# LANGUAGE EmptyDataDecls #-}
5+{-# LANGUAGE ExistentialQuantification #-}
6+{-# LANGUAGE FlexibleContexts #-}
7+{-# LANGUAGE FlexibleInstances #-}
8+{-# LANGUAGE FunctionalDependencies #-}
9+{-# LANGUAGE GADTs #-}
10+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
11+{-# LANGUAGE LambdaCase #-}
12+{-# LANGUAGE MagicHash #-}
13+{-# LANGUAGE MultiParamTypeClasses #-}
14+{-# LANGUAGE MultiWayIf #-}
15+{-# LANGUAGE RankNTypes #-}
16+{-# LANGUAGE RecursiveDo #-}
17+{-# LANGUAGE RoleAnnotations #-}
18+{-# LANGUAGE ScopedTypeVariables #-}
19+{-# LANGUAGE TypeFamilies #-}
20+{-# LANGUAGE TypeOperators #-}
21+{-# LANGUAGE UnboxedTuples #-}
22+{-# LANGUAGE UndecidableInstances #-}
223module Reflex.Spider.Internal (Spider, SpiderEnv (..), Global, SpiderHost, runSpiderHost, SpiderEventHandle (..), showSubscriberType, showEventType, ComputeM (..), MergeSubscribedParent (..), HasSpiderEnv (..), newSpiderEnv, SpiderPullM (..), SpiderPushM (..), ReadPhase (..)) where
324
4−import qualified Reflex.Class as R
5−import qualified Reflex.Host.Class as R
625import Data.WeakBag (WeakBag, WeakBagTicket)
726import qualified Data.WeakBag as WeakBag
27+import qualified Reflex.Class as R
28+import qualified Reflex.Host.Class as R
829
9−import Data.List
10−import Data.IORef
11−import System.Mem.Weak
12−import Data.Foldable
13−import Data.Traversable
14−import Control.Monad hiding (mapM, mapM_, forM_, forM, sequence)
15−import Control.Monad.Identity hiding (mapM, mapM_, forM_, forM, sequence)
16−import Control.Monad.Reader hiding (mapM, mapM_, forM_, forM, sequence)
17−import Control.Monad.State hiding (mapM, mapM_, forM_, forM, sequence)
18−import Control.Applicative -- Unconditionally import, because otherwise it breaks on GHC 7.10.1RC2
19−import Data.Some (Some)
20−import qualified Data.Some as Some
30+import Control.Applicative
31+import Control.Concurrent
32+import Control.Exception
33+import Control.Monad hiding (forM, forM_, mapM, mapM_, sequence)
34+import Control.Monad.Exception
35+import Control.Monad.Identity hiding (forM, forM_, mapM, mapM_, sequence)
36+import Control.Monad.Reader hiding (forM, forM_, mapM, mapM_, sequence)
37+import Control.Monad.Ref
38+import Control.Monad.State hiding (forM, forM_, mapM, mapM_, sequence)
39+import Data.Align
2140import Data.Dependent.Map (DMap, DSum (..))
2241import qualified Data.Dependent.Map as DMap
42+import Data.Foldable
43+import Data.Function
44+import Data.Functor.Compose
2345import Data.GADT.Compare
24−import Data.Maybe
2546import Data.IntMap.Strict (IntMap)
2647import qualified Data.IntMap.Strict as IntMap
27−import Control.Monad.Ref
28−import Control.Monad.Exception
48+import Data.IORef
49+import Data.List
50+import Data.Maybe
2951import Data.Monoid ((<>))
30−import Data.Functor.Compose
31−import Control.Exception
32−import Control.Concurrent
33−import Data.Function
52+import Data.Some (Some)
53+import qualified Data.Some as Some
3454import Data.These
35−import Data.Align
55+import Data.Traversable
56+import System.Mem.Weak
3657
37−import GHC.IORef (IORef (..))
3858import GHC.Base (IO (..))
59+import GHC.IORef (IORef (..))
3960import GHC.Stack
4061
62+import Control.Monad.Primitive
63+import Data.Coerce
4164import System.IO.Unsafe
4265import Unsafe.Coerce
43−import Data.Coerce
44−import Control.Monad.Primitive
4566
46−import qualified Data.List.NonEmpty as NonEmpty
4767import Data.List.NonEmpty (NonEmpty (..), nonEmpty)
48−import Data.Tree (Tree (..), Forest, drawForest)
68+import qualified Data.List.NonEmpty as NonEmpty
69+import Data.Tree (Forest, Tree (..), drawForest)
4970
5071-- Note: must come last to silence warnings due to AMP on GHC < 7.10
51−import Prelude hiding (mapM, mapM_, any, sequence, concat)
72+import Prelude hiding (any, concat, mapM, mapM_, sequence)
5273
5374type SubscriberList a = WeakBag (Subscriber a)
5475type SubscriberListTicket a = WeakBagTicket (Subscriber a)