好きな書き方で書けば良いよ

if y /= 0 then Just (x / y) else Nothing

do { guard (y /= 0); return (x / y) }

guard (y /= 0) >> return (x / y)

[x / y | y /= 0]