"ApplicativeDo" disables -Wunused-do-binds?

In the code below, the return value of forkIO is ignored. The compiler does not warn about this. When I disable the ApplicativeDo extension, the warning appears as expected.

{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE ApplicativeDo #-}

module Example (main) where

import Control.Concurrent

main :: IO ()
main = do x <- return ()
          forkIO (putStrLn "hello")
          putStrLn $ "world" ++ show x

changed weight to 5

added Tbug Trac import labels

changed the description

added ApplicativeDo label

added Pnormal label

I would guess that ApplicativeDo probably turns

forkIO (putStrLn "hello")
putStrLn ("world" ++ show x)

into

forkIO (putStrLn "hello") *> putStrLn ("world" ++ show x)

which would no longer trigger -Wunused-do-binds.

Not sure what's the best next action.