From 7de2796a2448a33ef4ed80111681bd6175f57477 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Thu, 10 Jul 2014 18:39:50 +0200 Subject: derive Applicative instances to suppress AMP warning Ignore-this: c2110d07bccc61462c3fbf73c900aaa1 darcs-hash:20140710163950-1499c-ee7151d0314d7c5f154782c2099a02377311aaf3.gz --- XMonad/Util/Invisible.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'XMonad/Util/Invisible.hs') diff --git a/XMonad/Util/Invisible.hs b/XMonad/Util/Invisible.hs index fc18180..2fa8b2b 100644 --- a/XMonad/Util/Invisible.hs +++ b/XMonad/Util/Invisible.hs @@ -22,13 +22,15 @@ module XMonad.Util.Invisible ( , fromIMaybe ) where +import Control.Applicative + -- $usage -- A wrapper data type to store layout state that shouldn't be persisted across -- restarts. A common wrapped type to use is @Maybe a@. -- Invisible derives trivial definitions for Read and Show, so the wrapped data -- type need not do so. -newtype Invisible m a = I (m a) deriving (Monad, Functor) +newtype Invisible m a = I (m a) deriving (Monad, Applicative, Functor) instance (Functor m, Monad m) => Read (Invisible m a) where readsPrec _ s = [(fail "Read Invisible", s)] -- cgit v1.2.3