git.iko.soy/patch
on develop help sign in
A few more small cleanups
0e76993Ryan Trinkle
src/Data/FastMutableIntMap.hs+2−2
compare with develop
unifiedsplit
@@ -22,13 +22,13 @@ module Data.FastMutableIntMap
22--TODO: Fast copy to FastIntMap
22--TODO: Fast copy to FastIntMap
23--TODO: Fast patch type
23--TODO: Fast patch type
24
24
25+import Prelude hiding (lookup)
26+
25import Control.Monad.IO.Class
27import Control.Monad.IO.Class
26import Data.Foldable (traverse_)
28import Data.Foldable (traverse_)
27import Data.IntMap.Strict (IntMap)
29import Data.IntMap.Strict (IntMap)
28import qualified Data.IntMap.Strict as IntMap
30import qualified Data.IntMap.Strict as IntMap
29import Data.IORef
31import Data.IORef
30−import Data.Maybe
31−import Prelude hiding (lookup)
32import Reflex.Patch.Class
32import Reflex.Patch.Class
33import Reflex.Patch.IntMap
33import Reflex.Patch.IntMap
34
34
src/Data/FastWeakBag.hs+3−4
@@ -26,7 +26,9 @@ module Data.FastWeakBag
26#endif
26#endif
27 ) where
27 ) where
28
28
29+import Prelude hiding (traverse)
30+
29−import Control.Monad hiding (forM_, mapM_)
31+import Control.Monad
30import Control.Monad.IO.Class
32import Control.Monad.IO.Class
31
33
32#ifdef GHCJS_FAST_WEAK
34#ifdef GHCJS_FAST_WEAK
@@ -34,15 +36,12 @@ import GHCJS.Types
34import Reflex.FastWeak (js_isNull, unsafeFromRawJSVal, unsafeToRawJSVal)
36import Reflex.FastWeak (js_isNull, unsafeFromRawJSVal, unsafeToRawJSVal)
35#else
37#else
36import Control.Exception
38import Control.Exception
37−import Data.Foldable (forM_, mapM_)
38import Data.IntMap.Strict (IntMap)
39import Data.IntMap.Strict (IntMap)
39import qualified Data.IntMap.Strict as IntMap
40import qualified Data.IntMap.Strict as IntMap
40import Data.IORef
41import Data.IORef
41import System.Mem.Weak
42import System.Mem.Weak
42#endif
43#endif
43
44
44−import Prelude hiding (mapM_, traverse)
45−
46-- | A @FastWeakBag a@ holds a set of values of type @a@, but does not retain them -
45-- | A @FastWeakBag a@ holds a set of values of type @a@, but does not retain them -
47-- that is, they can still be garbage-collected. As long as the @a@s remain
46-- that is, they can still be garbage-collected. As long as the @a@s remain
48-- alive, the 'FastWeakBag' will continue to refer to them.
47-- alive, the 'FastWeakBag' will continue to refer to them.
src/Data/WeakBag.hs+3−4
@@ -21,17 +21,16 @@ module Data.WeakBag
21 , _weakBag_children --TODO: Don't export this
21 , _weakBag_children --TODO: Don't export this
22 ) where
22 ) where
23
23
24+import Prelude hiding (traverse)
25+
24import Control.Exception
26import Control.Exception
25−import Control.Monad hiding (forM_, mapM_)
27+import Control.Monad
26import Control.Monad.IO.Class
28import Control.Monad.IO.Class
27−import Data.Foldable (forM_, mapM_)
28import Data.IntMap.Strict (IntMap)
29import Data.IntMap.Strict (IntMap)
29import qualified Data.IntMap.Strict as IntMap
30import qualified Data.IntMap.Strict as IntMap
30import Data.IORef
31import Data.IORef
31import System.Mem.Weak
32import System.Mem.Weak
32
33
33−import Prelude hiding (mapM_, traverse)
34−
35-- | A @WeakBag a@ holds a set of values of type @a@, but does not retain them -
34-- | A @WeakBag a@ holds a set of values of type @a@, but does not retain them -
36-- that is, they can still be garbage-collected. As long as the @a@s remain
35-- that is, they can still be garbage-collected. As long as the @a@s remain
37-- alive, the 'WeakBag' will continue to refer to them.
36-- alive, the 'WeakBag' will continue to refer to them.