on develop help sign in
A little more specialization cleanup
45d06f6Ryan Trinkle
reflex.cabal+3
@@ -57,6 +57,7 @@ library
57 Reflex.DynamicWriter,
57 Reflex.DynamicWriter,
58 Reflex.Host.Class,
58 Reflex.Host.Class,
59 Reflex.Optimizer,
59 Reflex.Optimizer,
60+ Reflex.Patch,
60 Reflex.PerformEvent.Base,
61 Reflex.PerformEvent.Base,
61 Reflex.PerformEvent.Class,
62 Reflex.PerformEvent.Class,
62 Reflex.PostBuild.Class,
63 Reflex.PostBuild.Class,
@@ -89,6 +90,8 @@ test-suite semantics
89 reflex,
90 reflex,
90 split,
91 split,
91 transformers >= 0.3
92 transformers >= 0.3
93+ if flag(specialize-to-spidertimeline-global)
94+ buildable: False
92
95
93--test-suite hlint
96--test-suite hlint
94-- type: exitcode-stdio-1.0
97-- type: exitcode-stdio-1.0
src/Reflex.hs−1
@@ -7,7 +7,6 @@ import Reflex.Dynamic as X
7import Reflex.Dynamic.TH as X
7import Reflex.Dynamic.TH as X
8import Reflex.Dynamic.Uniq as X
8import Reflex.Dynamic.Uniq as X
9import Reflex.DynamicWriter as X
9import Reflex.DynamicWriter as X
10−import Reflex.Patch as X
11import Reflex.PerformEvent.Class as X
10import Reflex.PerformEvent.Class as X
12import Reflex.PostBuild.Class as X
11import Reflex.PostBuild.Class as X
13import Reflex.Spider as X
12import Reflex.Spider as X
src/Reflex/Class.hs+3−2
@@ -22,8 +22,9 @@
22-- convenience functions for working with 'Event's, 'Behavior's, and other
22-- convenience functions for working with 'Event's, 'Behavior's, and other
23-- signals.
23-- signals.
24module Reflex.Class
24module Reflex.Class
25+ ( module Reflex.Patch
25− ( -- * Primitives
26+ -- * Primitives
26− Reflex (..)
27+ , Reflex (..)
27 , coerceBehavior
28 , coerceBehavior
28 , coerceEvent
29 , coerceEvent
29 , coerceDynamic
30 , coerceDynamic
src/Reflex/DynamicWriter.hs−1
@@ -29,7 +29,6 @@ import qualified Data.Some as Some
29import Reflex.Class
29import Reflex.Class
30import Reflex.Dynamic
30import Reflex.Dynamic
31import Reflex.Host.Class
31import Reflex.Host.Class
32−import Reflex.Patch
33import Reflex.PerformEvent.Class
32import Reflex.PerformEvent.Class
34import Reflex.PostBuild.Class
33import Reflex.PostBuild.Class
35
34
src/Reflex/PerformEvent/Base.hs−1
@@ -17,7 +17,6 @@ module Reflex.PerformEvent.Base where
17
17
18import Reflex.Class
18import Reflex.Class
19import Reflex.Host.Class
19import Reflex.Host.Class
20−import Reflex.Patch
21import Reflex.PerformEvent.Class
20import Reflex.PerformEvent.Class
22import Reflex.PostBuild.Class
21import Reflex.PostBuild.Class
23
22
src/Reflex/PostBuild/Class.hs−1
@@ -19,7 +19,6 @@ import Control.Monad.Trans.Control
19import qualified Data.Dependent.Map as DMap
19import qualified Data.Dependent.Map as DMap
20import Reflex.Class
20import Reflex.Class
21import Reflex.Host.Class
21import Reflex.Host.Class
22−import Reflex.Patch
23import Reflex.PerformEvent.Class
22import Reflex.PerformEvent.Class
24
23
25class (Reflex t, Monad m) => PostBuild t m | m -> t where
24class (Reflex t, Monad m) => PostBuild t m | m -> t where
src/Reflex/Spider/Internal.hs+2−2
@@ -1853,7 +1853,7 @@ invalidate toReconnectRef wis = do
1853--------------------------------------------------------------------------------
1853--------------------------------------------------------------------------------
1854
1854
1855-- | The default, global Spider environment
1855-- | The default, global Spider environment
1856−type Spider = SpiderTimelineEnv Global
1856+type Spider = SpiderTimeline Global
1857
1857
1858#ifndef SPECIALIZE_TO_SPIDERTIMELINE_GLOBAL
1858#ifndef SPECIALIZE_TO_SPIDERTIMELINE_GLOBAL
1859-- When we're specializing, we include this from Reflex.Class instead, because
1859-- When we're specializing, we include this from Reflex.Class instead, because
@@ -2202,4 +2202,4 @@ instance PrimMonad (SpiderHostFrame x) where
2202--------------------------------------------------------------------------------
2202--------------------------------------------------------------------------------
2203
2203
2204{-# DEPRECATED SpiderEnv "Use 'SpiderTimelineEnv' instead" #-}
2204{-# DEPRECATED SpiderEnv "Use 'SpiderTimelineEnv' instead" #-}
2205−type SpiderEnv = SpiderTimelineEnv
2205+type SpiderEnv = SpiderTimeline