diff options
Diffstat (limited to 'src/Xmobar/Config/Types.hs')
-rw-r--r-- | src/Xmobar/Config/Types.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/Config/Types.hs b/src/Xmobar/Config/Types.hs index dd5aeb8..8bbae40 100644 --- a/src/Xmobar/Config/Types.hs +++ b/src/Xmobar/Config/Types.hs @@ -99,7 +99,7 @@ data Border = NoBorder newtype SignalChan = SignalChan { unSignalChan :: Maybe (STM.TMVar SignalType) } instance Read SignalChan where - readsPrec _ _ = fail "Trying to read a SignalChan" + readsPrec _ _ = fail "SignalChan is not readable from a String" instance Show SignalChan where show (SignalChan (Just _)) = "SignalChan (Just <tmvar>)" |