Remove redundant constraint on signal 'connect_'.

Thanks -Wsimplifiable-class-constraints.
parent 53dabdd8
......@@ -43,7 +43,7 @@ connect = flip internalConnectSignal
-- | Registers a handler function to listen to a signal an object emits, via
-- 'connect'. If the connection fails, then the program aborts.
connect_ :: Show (Signal object handler) => object -> Signal object handler -> handler -> IO ()
connect_ :: object -> Signal object handler -> handler -> IO ()
connect_ object signal handler = do
success <- connect object signal handler
unless success $ fail $ "connect_: Failed to connect signal " ++ show signal ++ "."
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment