Skip to content
Snippets Groups Projects
Unverified Commit 2f083f82 authored by Sebastian Graf's avatar Sebastian Graf Committed by GitHub
Browse files

Fix redundant pattern warning (#146)

parent 86c5bd13
No related branches found
No related tags found
No related merge requests found
......@@ -466,14 +466,18 @@ installHandler sig handler _maybe_mask = do
CatchOnce action -> setHandler sig (Just (const action,dyn))
CatchInfo action -> setHandler sig (Just (getinfo action,dyn))
CatchInfoOnce action -> setHandler sig (Just (getinfo action,dyn))
#if __GLASGOW_HASKELL__ < 811
_ -> error "installHandler"
#endif
let action = case handler of
Catch _ -> STG_SIG_HAN
CatchOnce _ -> STG_SIG_RST
CatchInfo _ -> STG_SIG_HAN
CatchInfoOnce _ -> STG_SIG_RST
#if __GLASGOW_HASKELL__ < 811
_ -> error "installHandler"
#endif
old_action <- stg_sig_install sig action nullPtr
-- mask is pointless, so leave it NULL
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment