RosettaCodeData/Task/Detect-division-by-zero/Haskell/detect-division-by-zero.hs

import qualified Control.Exception as C
check x y = C.catch (x `div` y `seq` return False)
                    (\_ -> return True)