becd8d5 · reflex · git.iko.soy

src/Data/WeakBag.hs+1−1

compare with develop

unifiedsplit

@@ -1,5 +1,5 @@

1−{-# LANGUAGE CPP #-}

2{-# LANGUAGE BangPatterns #-}

1{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE CPP #-}

3{-# LANGUAGE ExistentialQuantification #-}

4#ifdef USE_REFLEX_OPTIMIZER

5{-# OPTIONS_GHC -fplugin=Reflex.Optimizer #-}

src/Reflex/Class.hs+6−2

@@ -157,11 +157,15 @@ import Data.String

157import Data.These

158import Data.Traversable

159import Data.Type.Coercion

160−import Reflex.Patch

161import Reflex.FunctorMaybe

160import Reflex.FunctorMaybe

161+import Reflex.Patch

162

163#ifdef SPECIALIZE_TO_SPIDERTIMELINE_GLOBAL

164−import Reflex.Spider.Internal (Global, SpiderPullM, SpiderPushM (..), HasSpiderTimeline, EventM, readBehaviorUntracked, readBehaviorTracked, dynamicHoldIdentity, dynamicHold, dynamicDynIdentity, newMapDyn, dynamicCurrent, dynamicUpdated, unsafeDyn, dynamicConst, behaviorHoldIdentity, SpiderHost (..), runFrame, runSpiderHostFrame, SpiderHostFrame (..))

164+import Reflex.Spider.Internal (EventM, Global, HasSpiderTimeline, SpiderHost (..), SpiderHostFrame (..),

165+ SpiderPullM, SpiderPushM (..), behaviorHoldIdentity, dynamicConst,

166+ dynamicCurrent, dynamicDynIdentity, dynamicHold, dynamicHoldIdentity,

167+ dynamicUpdated, newMapDyn, readBehaviorTracked, readBehaviorUntracked,

168+ runFrame, runSpiderHostFrame, unsafeDyn)

165import qualified Reflex.Spider.Internal

169import qualified Reflex.Spider.Internal

166import qualified Reflex.Spider.Internal as S

170import qualified Reflex.Spider.Internal as S

167import Unsafe.Coerce

171import Unsafe.Coerce

src/Reflex/Host/Class.hs+5−3

@@ -48,10 +48,12 @@ import Data.GADT.Compare

48import Data.Monoid

49

50#ifdef SPECIALIZE_TO_SPIDERTIMELINE_GLOBAL

51−import Reflex.Spider.Internal (HasSpiderTimeline, SpiderHost (..), SpiderHostFrame (..), Subscriber (..), SpiderEventHandle (..), RootTrigger, runFrame, subscribe, scheduleClear, newEventWithTriggerIO, newFanEventWithTriggerIO, EventM (..), run)

52−import qualified Reflex.Spider.Internal

53−import Data.IORef

54import Control.Monad.Primitive (touch)

51import Control.Monad.Primitive (touch)

52+import Data.IORef

53+import Reflex.Spider.Internal (EventM (..), HasSpiderTimeline, RootTrigger, SpiderEventHandle (..),

54+ SpiderHost (..), SpiderHostFrame (..), Subscriber (..), newEventWithTriggerIO,

55+ newFanEventWithTriggerIO, run, runFrame, scheduleClear, subscribe)

56+import qualified Reflex.Spider.Internal

55#endif

57#endif

56

58

57-- Note: this import must come last to silence warnings from AMP

59-- Note: this import must come last to silence warnings from AMP

src/Reflex/Optimizer.hs+9−6

@@ -2,19 +2,22 @@

2{-# LANGUAGE LambdaCase #-}

3{-# LANGUAGE OverloadedStrings #-}

4module Reflex.Optimizer (plugin) where

5−#ifdef ghcjs_HOST_OS

6

5

6+#ifdef ghcjs_HOST_OS

7import Plugins

8−

9−plugin :: Plugin

10−plugin = undefined

11−

12#else

8#else

13−

14import Control.Arrow

9import Control.Arrow

15import CoreMonad

10import CoreMonad

16import Data.String

11import Data.String

17import GhcPlugins

12import GhcPlugins

13+#endif

14+

15+#ifdef ghcjs_HOST_OS

16+

17+plugin :: Plugin

18+plugin = undefined

19+

20+#else

18

21

19plugin :: Plugin

22plugin :: Plugin

20plugin = defaultPlugin { installCoreToDos = install }

23plugin = defaultPlugin { installCoreToDos = install }

src/Reflex/Patch.hs+1−1

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

1{-# LANGUAGE CPP #-}

2+{-# LANGUAGE DeriveFunctor #-}

2{-# LANGUAGE LambdaCase #-}

3{-# LANGUAGE LambdaCase #-}

3{-# LANGUAGE StandaloneDeriving #-}

4{-# LANGUAGE StandaloneDeriving #-}

4{-# LANGUAGE TypeFamilies #-}

5{-# LANGUAGE TypeFamilies #-}

5−{-# LANGUAGE DeriveFunctor #-}

6module Reflex.Patch

7 ( Patch (..)

8 , PatchDMap (..)

src/Reflex/PerformEvent/Base.hs+2−1

@@ -1,4 +1,5 @@

1{-# LANGUAGE CPP #-}

2+{-# LANGUAGE ExistentialQuantification #-}

2{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE FlexibleInstances #-}

4{-# LANGUAGE FlexibleInstances #-}

4{-# LANGUAGE GADTs #-}

5{-# LANGUAGE GADTs #-}

@@ -27,9 +28,9 @@ import Control.Lens

27import Control.Monad.Exception

28import Control.Monad.Exception

28import Control.Monad.Identity

29import Control.Monad.Identity

29import Control.Monad.Primitive

30import Control.Monad.Primitive

31+import Control.Monad.Reader

30import Control.Monad.Ref

32import Control.Monad.Ref

31import Control.Monad.State.Strict

33import Control.Monad.State.Strict

32−import Control.Monad.Reader

33import Data.Coerce

34import Data.Coerce

34import Data.Dependent.Map (DMap, GCompare (..), Some)

35import Data.Dependent.Map (DMap, GCompare (..), Some)

35import qualified Data.Dependent.Map as DMap

36import qualified Data.Dependent.Map as DMap

src/Reflex/Pure.hs+1−1

@@ -21,7 +21,7 @@

21module Reflex.Pure where

22

23#if !MIN_VERSION_base(4,8,0)

24−import Control.Applicative -- Necessary for GHC 7.8

24+import Control.Applicative

25#endif

26

27import Control.Monad

src/Reflex/Spider/Internal.hs+1

@@ -2,6 +2,7 @@

2{-# LANGUAGE CPP #-}

3{-# LANGUAGE ConstraintKinds #-}

4{-# LANGUAGE EmptyDataDecls #-}

5+{-# LANGUAGE ExistentialQuantification #-}

5{-# LANGUAGE FlexibleContexts #-}

6{-# LANGUAGE FlexibleContexts #-}

6{-# LANGUAGE FlexibleInstances #-}

7{-# LANGUAGE FlexibleInstances #-}

7{-# LANGUAGE FunctionalDependencies #-}

8{-# LANGUAGE FunctionalDependencies #-}