Skip to content

Commit 853def0

Browse files
committed
use #else instead of separate #if
1 parent afdb258 commit 853def0

1 file changed

Lines changed: 1 addition & 3 deletions

File tree

Control/Monad/Trans/Compose.hs

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -21,9 +21,7 @@ type ComposeT :: (k3 -> k2 -> Type) -> (k1 -> k3) -> (k1 -> k2 -> Type)
2121
newtype ComposeT trans1 trans2 m a = ComposeT (trans1 (trans2 m) a)
2222
#if __GLASGOW_HASKELL__ >= 806
2323
deriving newtype (Functor, Applicative, Monad)
24-
#endif
25-
26-
#if __GLASGOW_HASKELL__ < 806
24+
#else
2725
instance (Functor (trans1 (trans2 m))) => Functor (ComposeT trans1 trans2 m) where
2826
fmap f (ComposeT x) = ComposeT (fmap f x)
2927

0 commit comments

Comments
 (0)