bd3f014 · reflex · git.iko.soy

git.iko.soy/reflex

Run stylish-haskell

commitbd3f014a809cb68e2d52190c2a4982120879189e authorRyan Trinkle <ryan.trinkle@gmail.com> dateFri 13 Jul 2018, 23:12 (8 years ago) parentd9a8872

29 files changed+88−73

compare with develop

unifiedsplit

.stylish-haskell.yaml+2−3

@@ -149,6 +149,5 @@ columns: 110

149149# needs to be aware of these, so it can parse the file correctly.

150150#

151151# No language extensions are enabled by default.

152−# language_extensions:

153− # - TemplateHaskell

154− # - QuasiQuotes

152+language_extensions:

153+ - TemplateHaskell

src/Data/FastMutableIntMap.hs+1−1

@@ -24,9 +24,9 @@ module Data.FastMutableIntMap

2424

2525import Control.Monad.IO.Class

2626import Data.Foldable (traverse_)

27−import Data.IORef

2827import Data.IntMap.Strict (IntMap)

2928import qualified Data.IntMap.Strict as IntMap

29+import Data.IORef

3030import Data.Maybe

3131import Prelude hiding (lookup)

3232import Reflex.Patch.Class

src/Data/FastWeakBag.hs+1−1

@@ -31,7 +31,7 @@ import Control.Monad.IO.Class

3131

3232#ifdef GHCJS_FAST_WEAK

3333import GHCJS.Types

34−import Reflex.FastWeak (unsafeFromRawJSVal, unsafeToRawJSVal, js_isNull)

34+import Reflex.FastWeak (js_isNull, unsafeFromRawJSVal, unsafeToRawJSVal)

3535#else

3636import Control.Exception

3737import Data.Foldable (forM_, mapM_)

src/Data/Functor/Misc.hs+1−5

@@ -245,12 +245,8 @@ dsumToEither = \case

245245-- | We can't use @Compose Maybe@ instead of 'ComposeMaybe', because that would

246246-- make the 'f' parameter have a nominal type role. We need f to be

247247-- representational so that we can use safe 'coerce'.

248−#if MIN_VERSION_transformers(5,2,0)

249248newtype ComposeMaybe f a =

250−#else

251−newtype ComposeMaybe (f :: * -> *) (a :: *) =

252−#endif

253− ComposeMaybe { getComposeMaybe :: Maybe (f a) } deriving (Show, Eq, Ord)

249+ ComposeMaybe { getComposeMaybe :: Maybe (f a) } deriving (Show, Eq, Ord)

254250

255251deriving instance Functor f => Functor (ComposeMaybe f)

256252

src/Data/Map/Misc.hs+1−1

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

11{-# LANGUAGE LambdaCase #-}

2−module Data.Map.Misc

2+module Data.Map.Misc

33 (

44 -- * Working with Maps

55 diffMapNoEq

src/Reflex.hs+1−1

@@ -7,9 +7,9 @@ module Reflex

88import Reflex.Class as X

99import Reflex.Collection as X

10+import Reflex.Dynamic as X

1011import Reflex.EventWriter.Base as X

1112import Reflex.EventWriter.Class as X

12−import Reflex.Dynamic as X

1313#ifdef USE_TEMPLATE_HASKELL

1414import Reflex.Dynamic.TH as X

1515#endif

src/Reflex/Adjustable/Class.hs+5−5

@@ -1,9 +1,9 @@

11{-# LANGUAGE CPP #-}

2+{-# LANGUAGE FlexibleInstances #-}

3+{-# LANGUAGE FunctionalDependencies #-}

4+{-# LANGUAGE MultiParamTypeClasses #-}

25{-# LANGUAGE RankNTypes #-}

36{-# LANGUAGE ScopedTypeVariables #-}

4−{-# LANGUAGE MultiParamTypeClasses #-}

5−{-# LANGUAGE FunctionalDependencies #-}

6−{-# LANGUAGE FlexibleInstances #-}

77{-# LANGUAGE TypeFamilies #-}

88{-# LANGUAGE UndecidableInstances #-}

99#ifdef USE_REFLEX_OPTIMIZER

@@ -21,11 +21,11 @@ module Reflex.Adjustable.Class

2121import Control.Monad.Identity hiding (forM, forM_, mapM, mapM_, sequence, sequence_)

2222import Control.Monad.Reader hiding (forM, forM_, mapM, mapM_, sequence, sequence_)

2323import Data.Align

24−import Data.Map (Map)

25−import qualified Data.Map as Map

2624import Data.Dependent.Map (DMap, GCompare (..))

2725import Data.Functor.Constant

2826import Data.Functor.Misc

27+import Data.Map (Map)

28+import qualified Data.Map as Map

2929import Data.Map.Misc

3030import Data.These

3131

src/Reflex/Class.hs+6−6

@@ -1,6 +1,6 @@

11{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE ConstraintKinds #-}

32{-# LANGUAGE CPP #-}

3+{-# LANGUAGE ConstraintKinds #-}

44{-# LANGUAGE DefaultSignatures #-}

55{-# LANGUAGE FlexibleContexts #-}

66{-# LANGUAGE FlexibleInstances #-}

@@ -150,10 +150,10 @@ import Control.Applicative

150150import Control.Monad.Identity hiding (forM, forM_, mapM, mapM_, sequence, sequence_)

151151import Control.Monad.Reader hiding (forM, forM_, mapM, mapM_, sequence, sequence_)

152152import Control.Monad.State.Strict hiding (forM, forM_, mapM, mapM_, sequence, sequence_)

153−import Control.Monad.Trans.Cont (ContT ())

154−import Control.Monad.Trans.Except (ExceptT ())

155−import Control.Monad.Trans.RWS (RWST ())

156−import Control.Monad.Trans.Writer (WriterT ())

153+import Control.Monad.Trans.Cont (ContT)

154+import Control.Monad.Trans.Except (ExceptT)

155+import Control.Monad.Trans.RWS (RWST)

156+import Control.Monad.Trans.Writer (WriterT)

157157import Data.Align

158158import Data.Bifunctor

159159import Data.Coerce

@@ -161,6 +161,7 @@ import Data.Default

161161import Data.Dependent.Map (DMap, DSum (..), GCompare (..))

162162import qualified Data.Dependent.Map as DMap

163163import Data.Either

164+import Data.FastMutableIntMap (PatchIntMap)

164165import Data.Foldable

165166import Data.Functor.Bind hiding (join)

166167import qualified Data.Functor.Bind as Bind

@@ -180,7 +181,6 @@ import Data.Traversable

180181import Data.Type.Coercion

181182import Reflex.FunctorMaybe

182183import Reflex.Patch

183−import Data.FastMutableIntMap (PatchIntMap)

184184

185185-- Note: must come last to silence warnings due to AMP on GHC < 7.10

186186import Prelude hiding (foldl, mapM, mapM_, sequence, sequence_)

src/Reflex/Collection.hs+4−4

@@ -1,10 +1,10 @@

11{-# LANGUAGE CPP #-}

2−{-# LANGUAGE RankNTypes #-}

2+{-# LANGUAGE FlexibleInstances #-}

33{-# LANGUAGE LambdaCase #-}

4+{-# LANGUAGE MultiParamTypeClasses #-}

5+{-# LANGUAGE RankNTypes #-}

46{-# LANGUAGE RecursiveDo #-}

57{-# LANGUAGE ScopedTypeVariables #-}

6−{-# LANGUAGE MultiParamTypeClasses #-}

7−{-# LANGUAGE FlexibleInstances #-}

88{-# LANGUAGE TypeFamilies #-}

99{-# LANGUAGE UndecidableInstances #-}

1010#ifdef USE_REFLEX_OPTIMIZER

@@ -27,9 +27,9 @@ module Reflex.Collection

2727

2828import Control.Monad.Identity hiding (forM, forM_, mapM, mapM_, sequence, sequence_)

2929import Data.Align

30+import Data.Functor.Misc

3031import Data.Map (Map)

3132import qualified Data.Map as Map

32−import Data.Functor.Misc

3333import Data.Map.Misc

3434import Data.These

3535

src/Reflex/EventWriter/Class.hs+1

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

22{-# LANGUAGE CPP #-}

33{-# LANGUAGE FlexibleInstances #-}

44{-# LANGUAGE FunctionalDependencies #-}

5+{-# LANGUAGE MultiParamTypeClasses #-}

56{-# LANGUAGE UndecidableInstances #-}

67#ifdef USE_REFLEX_OPTIMIZER

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

src/Reflex/FastWeak.hs+4−1

@@ -133,7 +133,6 @@ emptyFastWeak = unsafeCoerce w

133133 where w :: FastWeak Any

134134#ifdef GHCJS_FAST_WEAK

135135 w = js_emptyWeak

136−foreign import javascript unsafe "$r = new h$FastWeak(null);" js_emptyWeak :: FastWeak Any

137136#else

138137 w = unsafePerformIO $ do

139138 w' <- mkWeakPtr undefined Nothing

@@ -141,3 +140,7 @@ foreign import javascript unsafe "$r = new h$FastWeak(null);" js_emptyWeak :: Fa

141140 return w'

142141#endif

143142{-# NOINLINE emptyFastWeak #-}

143+

144+#ifdef GHCJS_FAST_WEAK

145+foreign import javascript unsafe "$r = new h$FastWeak(null);" js_emptyWeak :: FastWeak Any

146+#endif

src/Reflex/Host/Class.hs+6−6

@@ -36,13 +36,13 @@ import Control.Monad.Fix

3636import Control.Monad.Identity

3737import Control.Monad.Ref

3838import Control.Monad.Trans

39−import Control.Monad.Trans.Cont (ContT ())

40−import Control.Monad.Trans.Except (ExceptT ())

41−import Control.Monad.Trans.Reader (ReaderT ())

42−import Control.Monad.Trans.RWS (RWST ())

43−import Control.Monad.Trans.State (StateT ())

39+import Control.Monad.Trans.Cont (ContT)

40+import Control.Monad.Trans.Except (ExceptT)

41+import Control.Monad.Trans.Reader (ReaderT)

42+import Control.Monad.Trans.RWS (RWST)

43+import Control.Monad.Trans.State (StateT)

4444import qualified Control.Monad.Trans.State.Strict as Strict

45−import Control.Monad.Trans.Writer (WriterT ())

45+import Control.Monad.Trans.Writer (WriterT)

4646import Data.Dependent.Sum (DSum (..))

4747import Data.GADT.Compare

4848import Data.Monoid

src/Reflex/NotReady/Class.hs+7−6

@@ -1,9 +1,10 @@

11{-# LANGUAGE CPP #-}

22{-# LANGUAGE DefaultSignatures #-}

3−{-# LANGUAGE MultiParamTypeClasses #-}

3+{-# LANGUAGE FlexibleContexts #-}

4+{-# LANGUAGE FlexibleInstances #-}

45{-# LANGUAGE FunctionalDependencies #-}

6+{-# LANGUAGE MultiParamTypeClasses #-}

57{-# LANGUAGE TypeFamilies #-}

6−{-# LANGUAGE FlexibleInstances #-}

78{-# LANGUAGE UndecidableInstances #-}

89#ifdef USE_REFLEX_OPTIMIZER

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

@@ -12,17 +13,17 @@ module Reflex.NotReady.Class

1213 ( NotReady(..)

1314 ) where

1415

15−import Control.Monad.Trans

1616import Control.Monad.Reader (ReaderT)

17+import Control.Monad.Trans

1718

1819import Reflex.Class

20+import Reflex.DynamicWriter.Base (DynamicWriterT)

21+import Reflex.EventWriter.Base (EventWriterT)

1922import Reflex.Host.Class

23+import Reflex.PerformEvent.Base (PerformEventT (..))

2024import Reflex.PostBuild.Base (PostBuildT)

21−import Reflex.EventWriter.Base (EventWriterT)

22−import Reflex.DynamicWriter.Base (DynamicWriterT)

2325import Reflex.Query.Base (QueryT)

2426import Reflex.Requester.Base (RequesterT)

25−import Reflex.PerformEvent.Base (PerformEventT(..))

2627import Reflex.TriggerEvent.Base (TriggerEventT)

2728

2829class Monad m => NotReady t m | m -> t where

src/Reflex/Patch.hs+8−3

@@ -8,10 +8,15 @@ module Reflex.Patch

99import Reflex.Patch.Class as X

1010import Reflex.Patch.DMap as X hiding (getDeletions)

11−import Reflex.Patch.DMapWithMove as X (PatchDMapWithMove, const2PatchDMapWithMoveWith, patchDMapWithMoveToPatchMapWithMoveWith, mapPatchDMapWithMove, weakenPatchDMapWithMoveWith, traversePatchDMapWithMoveWithKey, unsafePatchDMapWithMove, unPatchDMapWithMove)

12−import Reflex.Patch.Map as X

13−import Reflex.Patch.MapWithMove as X (PatchMapWithMove, patchMapWithMoveNewElementsMap, patchMapWithMoveNewElements, unsafePatchMapWithMove, unPatchMapWithMove)

11+import Reflex.Patch.DMapWithMove as X (PatchDMapWithMove, const2PatchDMapWithMoveWith, mapPatchDMapWithMove,

12+ patchDMapWithMoveToPatchMapWithMoveWith,

13+ traversePatchDMapWithMoveWithKey, unPatchDMapWithMove,

14+ unsafePatchDMapWithMove, weakenPatchDMapWithMoveWith)

1415import Reflex.Patch.IntMap as X hiding (getDeletions)

16+import Reflex.Patch.Map as X

17+import Reflex.Patch.MapWithMove as X (PatchMapWithMove, patchMapWithMoveNewElements,

18+ patchMapWithMoveNewElementsMap, unPatchMapWithMove,

19+ unsafePatchMapWithMove)

1520

1621import Data.Semigroup (Semigroup (..), (<>))

1722

src/Reflex/Patch/DMap.hs+1−1

@@ -14,8 +14,8 @@ import Reflex.Patch.Map

1414import Data.Dependent.Map (DMap, DSum (..), GCompare (..))

1515import qualified Data.Dependent.Map as DMap

1616import Data.Functor.Constant

17−import qualified Data.IntMap as IntMap

1817import Data.Functor.Misc

18+import qualified Data.IntMap as IntMap

1919import qualified Data.Map as Map

2020import Data.Semigroup (Semigroup (..))

2121import Data.Some (Some)

src/Reflex/Patch/IntMap.hs+2−2

@@ -1,16 +1,16 @@

11{-# LANGUAGE CPP #-}

2−{-# LANGUAGE DeriveFunctor #-}

32{-# LANGUAGE DeriveFoldable #-}

3+{-# LANGUAGE DeriveFunctor #-}

44{-# LANGUAGE DeriveTraversable #-}

55{-# LANGUAGE GeneralizedNewtypeDeriving #-}

66{-# LANGUAGE TypeFamilies #-}

77module Reflex.Patch.IntMap where

9−import Prelude hiding (lookup)

109import Data.IntMap.Strict (IntMap)

1110import qualified Data.IntMap.Strict as IntMap

1211import Data.Maybe

1312import Data.Semigroup

13+import Prelude hiding (lookup)

1414import Reflex.Patch.Class

1515

1616newtype PatchIntMap a = PatchIntMap (IntMap (Maybe a)) deriving (Functor, Foldable, Traversable, Monoid)

src/Reflex/Patch/Map.hs+1−1

@@ -7,10 +7,10 @@ module Reflex.Patch.Map where

88import Reflex.Patch.Class

10−import Data.Semigroup

1110import Data.Map (Map)

1211import qualified Data.Map as Map

1312import Data.Maybe

13+import Data.Semigroup

1414

1515-- | A set of changes to a 'Map'. Any element may be inserted/updated or

1616-- deleted. Insertions are represented as values wrapped in 'Just', while

src/Reflex/Profiled.hs+3−2

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

11{-# LANGUAGE EmptyDataDecls #-}

2+{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE FlexibleInstances #-}

34{-# LANGUAGE GeneralizedNewtypeDeriving #-}

45{-# LANGUAGE InstanceSigs #-}

@@ -18,9 +19,9 @@ import Control.Monad.Ref

1819import Control.Monad.State.Strict (StateT, execStateT, modify)

1920import Data.Coerce

2021import Data.Dependent.Map (DMap, GCompare)

21−import Data.List

2222import Data.FastMutableIntMap

2323import Data.IORef

24+import Data.List

2425import Data.Map (Map)

2526import qualified Data.Map.Strict as Map

2627import Data.Monoid ((<>))

@@ -32,8 +33,8 @@ import GHC.Foreign

3233import GHC.IO.Encoding

3334import GHC.Stack

3435import Reflex.Class

35−import Reflex.PerformEvent.Class

3636import Reflex.Host.Class

37+import Reflex.PerformEvent.Class

3738

3839import System.IO.Unsafe

3940import Unsafe.Coerce

src/Reflex/Query/Base.hs+2−2

@@ -37,15 +37,15 @@ import qualified Data.Some as Some

3737import Data.These

3838

3939import Reflex.Class

40−import Reflex.EventWriter.Class

4140import Reflex.EventWriter.Base

41+import Reflex.EventWriter.Class

4242import Reflex.Host.Class

43+import qualified Reflex.Patch.MapWithMove as MapWithMove

4344import Reflex.PerformEvent.Class

4445import Reflex.PostBuild.Class

4546import Reflex.Query.Class

4647import Reflex.Requester.Class

4748import Reflex.TriggerEvent.Class

48−import qualified Reflex.Patch.MapWithMove as MapWithMove

4949

5050newtype QueryT t q m a = QueryT { unQueryT :: StateT [Behavior t q] (EventWriterT t q (ReaderT (Dynamic t (QueryResult q)) m)) a }

5151 deriving (Functor, Applicative, Monad, MonadException, MonadFix, MonadIO, MonadHold t, MonadSample t, MonadAtomicRef)

src/Reflex/Requester/Base.hs+3−3

@@ -49,7 +49,6 @@ import Data.Bits

4949import Data.Coerce

5050import Data.Dependent.Map (DMap, DSum (..))

5151import qualified Data.Dependent.Map as DMap

52−import qualified Data.Some as Some

5352import Data.Functor.Compose

5453import Data.Functor.Misc

5554import Data.IntMap.Strict (IntMap)

@@ -57,11 +56,12 @@ import qualified Data.IntMap.Strict as IntMap

5756import Data.Map (Map)

5857import qualified Data.Map as Map

5958import Data.Monoid ((<>))

60−import Data.Unique.Tag

59+import Data.Proxy

6160import qualified Data.Semigroup as S

6261import Data.Some (Some)

62+import qualified Data.Some as Some

6363import Data.Type.Equality

64−import Data.Proxy

64+import Data.Unique.Tag

6565

6666import GHC.Exts (Any)

6767import Unsafe.Coerce

src/Reflex/Spider/Internal.hs+5−5

@@ -38,6 +38,8 @@ import Data.Align

3838import Data.Coerce

3939import Data.Dependent.Map (DMap, DSum (..))

4040import qualified Data.Dependent.Map as DMap

41+import Data.FastMutableIntMap (FastMutableIntMap, PatchIntMap (..))

42+import qualified Data.FastMutableIntMap as FastMutableIntMap

4143import Data.Foldable hiding (concat, elem, sequence_)

4244import Data.Function

4345import Data.Functor.Constant

@@ -54,8 +56,6 @@ import Data.Proxy

5456import Data.These

5557import Data.Traversable

5658import Data.Word

57−import Data.FastMutableIntMap (FastMutableIntMap, PatchIntMap (..))

58−import qualified Data.FastMutableIntMap as FastMutableIntMap

5959import GHC.Exts

6060import GHC.IORef (IORef (..))

6161import GHC.Stack

@@ -75,12 +75,12 @@ import Data.Tree (Forest, Tree (..), drawForest)

7575

7676import Data.FastWeakBag (FastWeakBag)

7777import qualified Data.FastWeakBag as FastWeakBag

78−import Data.WeakBag (WeakBag, WeakBagTicket, _weakBag_children)

79−import qualified Data.WeakBag as WeakBag

8078import Data.Reflection

8179import Data.Some (Some)

8280import qualified Data.Some as Some

8381import Data.Type.Coercion

82+import Data.WeakBag (WeakBag, WeakBagTicket, _weakBag_children)

83+import qualified Data.WeakBag as WeakBag

8484import qualified Reflex.Class

8585import qualified Reflex.Class as R

8686import qualified Reflex.Host.Class

@@ -92,8 +92,8 @@ import qualified Reflex.Patch.DMapWithMove as PatchDMapWithMove

9292import Prelude hiding (any, concat, mapM, mapM_, sequence)

9393

9494#ifdef DEBUG_TRACE_EVENTS

95−import System.IO (stderr)

9695import qualified Data.ByteString.Char8 as BS8

96+import System.IO (stderr)

9797#endif

9898

9999#ifdef DEBUG_TRACE_EVENTS

src/Reflex/Time.hs+3−3

@@ -1,14 +1,14 @@

1+{-# LANGUAGE CPP #-}

12{-# LANGUAGE DeriveDataTypeable #-}

23{-# LANGUAGE FlexibleContexts #-}

34{-# LANGUAGE MultiParamTypeClasses #-}

45{-# LANGUAGE RecursiveDo #-}

56{-# LANGUAGE ScopedTypeVariables #-}

6−{-# LANGUAGE CPP #-}

7+{-# LANGUAGE TupleSections #-}

8+{-# LANGUAGE TypeFamilies #-}

79#ifdef USE_TEMPLATE_HASKELL

810{-# LANGUAGE TemplateHaskell #-}

911#endif

10−{-# LANGUAGE TupleSections #-}

11−{-# LANGUAGE TypeFamilies #-}

1212module Reflex.Time where

1313

1414import Reflex.Class

src/Reflex/Workflow.hs+1−1

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

1−{-# LANGUAGE ScopedTypeVariables #-}

21{-# LANGUAGE RecursiveDo #-}

2+{-# LANGUAGE ScopedTypeVariables #-}

33module Reflex.Workflow (

44 -- * Workflows

55 Workflow (..)

test/EventWriterT.hs+2−1

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

1−{-# LANGUAGE FlexibleContexts, GADTs #-}

1+{-# LANGUAGE FlexibleContexts #-}

2+{-# LANGUAGE GADTs #-}

23module Main where

45import Control.Lens

test/GC.hs+8−3

@@ -1,4 +1,9 @@

1−{-# LANGUAGE OverloadedStrings, FlexibleContexts, GADTs, TypeFamilies, RankNTypes, ScopedTypeVariables #-}

1+{-# LANGUAGE FlexibleContexts #-}

2+{-# LANGUAGE GADTs #-}

3+{-# LANGUAGE OverloadedStrings #-}

4+{-# LANGUAGE RankNTypes #-}

5+{-# LANGUAGE ScopedTypeVariables #-}

6+{-# LANGUAGE TypeFamilies #-}

27module Main where

49import Control.Monad

@@ -17,11 +22,11 @@ import Data.These

1722import Data.Functor.Misc

1823import Reflex.Patch

1924

20−import qualified Reflex.Spider.Internal as S

2125import qualified Reflex.Host.Class as Host

26+import qualified Reflex.Spider.Internal as S

2227

23−import System.Mem

2428import System.Exit

29+import System.Mem

2530

2631main :: IO ()

2732main = do

test/QueryT.hs+1−1

@@ -1,9 +1,9 @@

11{-# LANGUAGE DeriveFunctor #-}

22{-# LANGUAGE FlexibleContexts #-}

3−{-# LANGUAGE TypeFamilies #-}

43{-# LANGUAGE GeneralizedNewtypeDeriving #-}

54{-# LANGUAGE LambdaCase #-}

65{-# LANGUAGE RankNTypes #-}

6+{-# LANGUAGE TypeFamilies #-}

88import Control.Lens

99import Control.Monad.Fix

test/RequesterT.hs+4−1

@@ -1,4 +1,7 @@

1−{-# LANGUAGE FlexibleContexts, GADTs, RankNTypes, ScopedTypeVariables #-}

1+{-# LANGUAGE FlexibleContexts #-}

2+{-# LANGUAGE GADTs #-}

3+{-# LANGUAGE RankNTypes #-}

4+{-# LANGUAGE ScopedTypeVariables #-}

25module Main where

47import Control.Lens

test/hlint.hs+1−1

@@ -4,8 +4,8 @@ import Control.Monad

44import Language.Haskell.HLint3 (hlint)

55import System.Directory

66import System.Exit (exitFailure, exitSuccess)

7−import System.FilePath.Find

87import System.FilePath

8+import System.FilePath.Find

1010main :: IO ()

1111main = do

test/rootCleanup.hs+3−3

@@ -1,10 +1,10 @@

1−import Control.Monad

21import Control.Concurrent

2+import Control.Monad

3+import Data.IORef

34import Reflex

45import Reflex.Host.Class

5−import System.Mem

6−import Data.IORef

76import System.Exit

7+import System.Mem

99main :: IO ()

1010main = do