From dc5b6328b50fb4dc1a7487efd69a42db31e1082b Mon Sep 17 00:00:00 2001 From: John Soo Date: Wed, 20 Oct 2021 14:49:34 -0700 Subject: Fail when reading a SignalChan, parse signal from defaultConfig. * Address code review comments on ipc-improvements. --- src/Xmobar/Config/Types.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Xmobar/Config/Types.hs') 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 )" -- cgit v1.2.3