diff options
| -rw-r--r-- | src/Xmobar/Config/Types.hs | 8 | ||||
| -rw-r--r-- | src/Xmobar/Run/Runnable.hs | 2 | ||||
| -rw-r--r-- | src/Xmobar/Run/Runnable.hs-boot | 1 |
3 files changed, 6 insertions, 5 deletions
diff --git a/src/Xmobar/Config/Types.hs b/src/Xmobar/Config/Types.hs index d59c993..8d78f33 100644 --- a/src/Xmobar/Config/Types.hs +++ b/src/Xmobar/Config/Types.hs @@ -65,7 +65,7 @@ data Config = -- right text alignment , template :: String -- ^ The output template , verbose :: Bool -- ^ Emit additional debug messages - } deriving (Read) + } deriving (Read, Show) data XPosition = Top | TopW Align Int @@ -77,9 +77,9 @@ data XPosition = Top | BottomSize Align Int Int | Static {xpos, ypos, width, height :: Int} | OnScreen Int XPosition - deriving ( Read, Eq ) + deriving ( Read, Show, Eq ) -data Align = L | R | C deriving ( Read, Eq ) +data Align = L | R | C deriving ( Read, Show, Eq ) data Border = NoBorder | TopB @@ -88,4 +88,4 @@ data Border = NoBorder | TopBM Int | BottomBM Int | FullBM Int - deriving ( Read, Eq ) + deriving ( Read, Show, Eq ) diff --git a/src/Xmobar/Run/Runnable.hs b/src/Xmobar/Run/Runnable.hs index 068a05b..f89f901 100644 --- a/src/Xmobar/Run/Runnable.hs +++ b/src/Xmobar/Run/Runnable.hs @@ -34,7 +34,7 @@ instance Exec Runnable where trigger (Run a) = trigger a instance Show Runnable where - show (Run x) = show x + show (Run x) = "Run " ++ show x instance Read Runnable where readPrec = readRunnable diff --git a/src/Xmobar/Run/Runnable.hs-boot b/src/Xmobar/Run/Runnable.hs-boot index 1cd1688..0d4b827 100644 --- a/src/Xmobar/Run/Runnable.hs-boot +++ b/src/Xmobar/Run/Runnable.hs-boot @@ -4,5 +4,6 @@ import Xmobar.Run.Exec data Runnable = forall r . (Exec r,Read r,Show r) => Run r +instance Show Runnable instance Read Runnable instance Exec Runnable |