35cac0d · reflex · git.iko.soy

git.iko.soy/reflex

on develop help sign in

Fix warnings

35cac0dRyan Trinkle9 years ago

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

compare with develop

unifiedsplit

@@ -60,7 +60,6 @@ import qualified Data.Map as Map

60import Data.Monoid ((<>))

61import Data.Unique.Tag

62import Data.Some (Some)

63−import Data.Tuple

64import Data.Type.Equality

63import Data.Type.Equality

65import Data.Proxy

64import Data.Proxy

@@ -76,7 +75,7 @@ newtype RequesterData f = RequesterData (TagMap (Entry f))

76data RequesterDataKey a where

75data RequesterDataKey a where

77 RequesterDataKey_Single :: {-# UNPACK #-} !(MyTag (Single a)) -> RequesterDataKey a

76 RequesterDataKey_Single :: {-# UNPACK #-} !(MyTag (Single a)) -> RequesterDataKey a

78 RequesterDataKey_Multi :: {-# UNPACK #-} !(MyTag Multi) -> {-# UNPACK #-} !Int -> !(RequesterDataKey a) -> RequesterDataKey a --TODO: Don't put a second Int here (or in the other Multis); use a single Int instead

77 RequesterDataKey_Multi :: {-# UNPACK #-} !(MyTag Multi) -> {-# UNPACK #-} !Int -> !(RequesterDataKey a) -> RequesterDataKey a --TODO: Don't put a second Int here (or in the other Multis); use a single Int instead

79− RequesterDataKey_Multi2 :: {-# UNPACK #-} !(MyTag (Multi2 k)) -> {-# UNPACK #-} !(Some k) -> {-# UNPACK #-} !Int -> !(RequesterDataKey a) -> RequesterDataKey a

78+ RequesterDataKey_Multi2 :: {-# UNPACK #-} !(MyTag (Multi2 k)) -> !(Some k) -> {-# UNPACK #-} !Int -> !(RequesterDataKey a) -> RequesterDataKey a

80 RequesterDataKey_Multi3 :: {-# UNPACK #-} !(MyTag Multi3) -> {-# UNPACK #-} !Int -> {-# UNPACK #-} !Int -> !(RequesterDataKey a) -> RequesterDataKey a

79 RequesterDataKey_Multi3 :: {-# UNPACK #-} !(MyTag Multi3) -> {-# UNPACK #-} !Int -> {-# UNPACK #-} !Int -> !(RequesterDataKey a) -> RequesterDataKey a

82singletonRequesterData :: RequesterDataKey a -> f a -> RequesterData f

81singletonRequesterData :: RequesterDataKey a -> f a -> RequesterData f