blob: dfcb55183039731a42595b07d97baa3864ec59be (
plain)
1
2
3
4
5
6
7
8
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# OPTIONS_GHC -Wall -Werror #-}
module Bug(P) where
import Control.Applicative (Applicative)
newtype P a = P (IO a) deriving (Functor, Applicative, Monad)
|