diff options
author | John Soo <jsoo1@asu.edu> | 2021-10-20 14:49:34 -0700 |
---|---|---|
committer | John Soo <jsoo1@asu.edu> | 2021-11-07 17:47:47 -0800 |
commit | dc5b6328b50fb4dc1a7487efd69a42db31e1082b (patch) | |
tree | 228032dedf427e657e5f3adbc972a45e1a342fc1 /src/Xmobar/Config/Types.hs | |
parent | ebea33e52fb71b049baf17374b88a7521de4097f (diff) | |
download | xmobar-dc5b6328b50fb4dc1a7487efd69a42db31e1082b.tar.gz xmobar-dc5b6328b50fb4dc1a7487efd69a42db31e1082b.tar.bz2 |
Fail when reading a SignalChan, parse signal from defaultConfig.
* Address code review comments on ipc-improvements.
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 3cad31c..dd5aeb8 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 _ s = [ (SignalChan Nothing, s) ] + readsPrec _ _ = fail "Trying to read a SignalChan" instance Show SignalChan where show (SignalChan (Just _)) = "SignalChan (Just <tmvar>)" |