From a652c330707e2e9bbe963e01af79ce730cf3452e Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sun, 10 Apr 2022 13:26:16 -0600 Subject: Rename Internal to Rahm.Desktop --- src/Internal/NoPersist.hs | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 src/Internal/NoPersist.hs (limited to 'src/Internal/NoPersist.hs') diff --git a/src/Internal/NoPersist.hs b/src/Internal/NoPersist.hs deleted file mode 100644 index a67e649..0000000 --- a/src/Internal/NoPersist.hs +++ /dev/null @@ -1,23 +0,0 @@ --- Module for not persisting XMonad state. To be used with ExtensibleState --- for data types that cannot be persisted. -module Internal.NoPersist where - -import Data.Default (Default, def) -import Data.Typeable - -import XMonad (ExtensionClass(..)) - -newtype NoPersist a = NoPersist a - deriving (Typeable) - -instance Show (NoPersist a) where - show (NoPersist _) = show () - -instance (Default a) => Read (NoPersist a) where - readsPrec i s = map (\(_, s) -> (NoPersist def, s)) (readsPrec i s :: [((), String)]) - -instance (Default a) => Default (NoPersist a) where - def = NoPersist def - -instance (Default a, Typeable a) => ExtensionClass (NoPersist a) where - initialValue = NoPersist def -- cgit