We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent afdb258 commit 853def0Copy full SHA for 853def0
1 file changed
Control/Monad/Trans/Compose.hs
@@ -21,9 +21,7 @@ type ComposeT :: (k3 -> k2 -> Type) -> (k1 -> k3) -> (k1 -> k2 -> Type)
21
newtype ComposeT trans1 trans2 m a = ComposeT (trans1 (trans2 m) a)
22
#if __GLASGOW_HASKELL__ >= 806
23
deriving newtype (Functor, Applicative, Monad)
24
-#endif
25
-
26
-#if __GLASGOW_HASKELL__ < 806
+#else
27
instance (Functor (trans1 (trans2 m))) => Functor (ComposeT trans1 trans2 m) where
28
fmap f (ComposeT x) = ComposeT (fmap f x)
29
0 commit comments