gistfile1.txt

-- bad: everything in ... is nested
do
    v <- foo
    case v of
        Matches v' -> ...
        _ -> throwError "doesn't match"

-- good: ... is not nested
do
    v <- foo
    v' <- case v of
        Matches v' -> return v'
        _ -> throwError "doesn't match"
    ...