Qualified Do is Removed on Format

[NathanielB123]

Problem

The module name before the do keyword when using the -XQualifiedDo language extension is incorrectly removed by Hindent.

Input haskell

{-# LANGUAGE QualifiedDo #-}

module Main where

foo :: ()
foo = Main.do 
  ()

Expected output haskell

{-# LANGUAGE QualifiedDo #-}

module Main where

foo :: ()
foo = Main.do 
  ()

Actual output haskell

{-# LANGUAGE QualifiedDo #-}

module Main where

foo :: ()
foo = do
  ()

[NathanielB123]

I created a pull request with an attempted fix: #696
First time creating a pull request on a public repo, so apologies if I did anything wrong