becd8d5 · reflex · git.iko.soy

git.iko.soy/reflex

Run stylish-haskell

commitbecd8d5c6856e110946fed7902e36fef22c2bd9b authorRyan Trinkle <ryan.trinkle@gmail.com> dateSun 13 Nov 2016, 16:51 (10 years ago) parentaab2ec1

8 files changed+26−15

compare with develop

unifiedsplit

src/Data/WeakBag.hs+1−1 src/Reflex/Class.hs+6−2 src/Reflex/Host/Class.hs+5−3 src/Reflex/Optimizer.hs+9−6 src/Reflex/Patch.hs+1−1 src/Reflex/PerformEvent/Base.hs+2−1 src/Reflex/Pure.hs+1−1 src/Reflex/Spider/Internal.hs+1

src/Data/WeakBag.hs+1−1

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

1−{-# LANGUAGE CPP #-}

21{-# LANGUAGE BangPatterns #-}

2+{-# LANGUAGE CPP #-}

33{-# LANGUAGE ExistentialQuantification #-}

44#ifdef USE_REFLEX_OPTIMIZER

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

src/Reflex/Class.hs+6−2

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

157157import Data.These

158158import Data.Traversable

159159import Data.Type.Coercion

160−import Reflex.Patch

161160import Reflex.FunctorMaybe

161+import Reflex.Patch

162162

163163#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)

165169import qualified Reflex.Spider.Internal

166170import qualified Reflex.Spider.Internal as S

167171import Unsafe.Coerce

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

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

4848import Data.Monoid

4949

5050#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

5451import 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

5557#endif

5658

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

src/Reflex/Optimizer.hs+9−6

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

22{-# LANGUAGE LambdaCase #-}

33{-# LANGUAGE OverloadedStrings #-}

44module Reflex.Optimizer (plugin) where

5−#ifdef ghcjs_HOST_OS

6+#ifdef ghcjs_HOST_OS

77import Plugins

8−

9−plugin :: Plugin

10−plugin = undefined

11−

128#else

13−

149import Control.Arrow

1510import CoreMonad

1611import Data.String

1712import GhcPlugins

13+#endif

14+

15+#ifdef ghcjs_HOST_OS

16+

17+plugin :: Plugin

18+plugin = undefined

19+

20+#else

1821

1922plugin :: Plugin

2023plugin = defaultPlugin { installCoreToDos = install }

src/Reflex/Patch.hs+1−1

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

11{-# LANGUAGE CPP #-}

2+{-# LANGUAGE DeriveFunctor #-}

23{-# LANGUAGE LambdaCase #-}

34{-# LANGUAGE StandaloneDeriving #-}

45{-# LANGUAGE TypeFamilies #-}

5−{-# LANGUAGE DeriveFunctor #-}

66module Reflex.Patch

77 ( Patch (..)

88 , PatchDMap (..)

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

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

11{-# LANGUAGE CPP #-}

2+{-# LANGUAGE ExistentialQuantification #-}

23{-# LANGUAGE FlexibleContexts #-}

34{-# LANGUAGE FlexibleInstances #-}

45{-# LANGUAGE GADTs #-}

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

2728import Control.Monad.Exception

2829import Control.Monad.Identity

2930import Control.Monad.Primitive

31+import Control.Monad.Reader

3032import Control.Monad.Ref

3133import Control.Monad.State.Strict

32−import Control.Monad.Reader

3334import Data.Coerce

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

3536import qualified Data.Dependent.Map as DMap

src/Reflex/Pure.hs+1−1

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

2121module Reflex.Pure where

2222

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

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

24+import Control.Applicative

2525#endif

2626

2727import Control.Monad

src/Reflex/Spider/Internal.hs+1

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

22{-# LANGUAGE CPP #-}

33{-# LANGUAGE ConstraintKinds #-}

44{-# LANGUAGE EmptyDataDecls #-}

5+{-# LANGUAGE ExistentialQuantification #-}

56{-# LANGUAGE FlexibleContexts #-}

67{-# LANGUAGE FlexibleInstances #-}

78{-# LANGUAGE FunctionalDependencies #-}