Implement deriving strategies
[ghc.git] / testsuite / tests / deriving / should_run / T10598_bug.hs
1 {-# LANGUAGE DeriveAnyClass #-}
2 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
3 module Main where
4
5 newtype MyMaybe a = MyMaybe (Maybe a)
6 deriving (Functor, Show)
7
8 main :: IO ()
9 main = print $ fmap (+1) $ MyMaybe $ Just (10 :: Int)