Ormolu accepts multiple possible orderings of pragmas and imports

[mrkkrp]

Both these combinations are not re-ordered by Ormolu:

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TupleSections #-}

{-# LANGUAGE TupleSections #-}
{-# LANGUAGE TypeFamilies #-}

I do not remember a reason why it would be like this. It is probably a bug.

[mrkkrp]

Similarly this import section stays unaltered:

import qualified Codec.Archive.Zip.Internal as I
import Codec.Archive.Zip.Type
import Conduit (PrimMonad)
import Control.Monad
import Control.Monad.Base (MonadBase (..))
import Control.Monad.Catch
import Control.Monad.State.Strict
import Control.Monad.Trans.Control (MonadBaseControl (..))
import Control.Monad.Trans.Resource (MonadResource, ResourceT)
import Data.ByteString (ByteString)
import Data.Conduit (ConduitT, (.|))
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.List as CL
import qualified Data.DList as DList
import Data.Map.Strict (Map, (!))
import qualified Data.Map.Strict as M
import Data.Sequence (Seq, (|>))
import qualified Data.Sequence as S
import qualified Data.Set as E
import Data.Text (Text)
import Data.Time.Clock (UTCTime)
import Data.Void
import Data.Word (Word16, Word32)
import System.Directory
import System.FilePath ((</>))
import qualified System.FilePath as FP
import System.IO.Error (isDoesNotExistError)

as well as this one:

import qualified Codec.Archive.Zip.Internal as I
import Codec.Archive.Zip.Type
import Conduit (PrimMonad)
import Control.Monad
import Control.Monad.Base (MonadBase (..))
import Control.Monad.Catch
import Control.Monad.State.Strict
import Control.Monad.Trans.Control (MonadBaseControl (..))
import Control.Monad.Trans.Resource (MonadResource, ResourceT)
import Data.ByteString (ByteString)
import Data.Conduit (ConduitT, (.|))
import Data.Map.Strict (Map, (!))
import qualified Data.Conduit as C
import qualified Data.Conduit.Binary as CB
import qualified Data.Conduit.List as CL
import qualified Data.DList as DList
import Data.Sequence (Seq, (|>))
import Data.Text (Text)
import Data.Time.Clock (UTCTime)
import Data.Void
import Data.Word (Word16, Word32)
import qualified Data.Map.Strict as M
import System.Directory
import System.FilePath ((</>))
import qualified Data.Sequence as S
import qualified Data.Set as E
import System.IO.Error (isDoesNotExistError)
import qualified System.FilePath as FP

[mrkkrp]

Seems to be a bug in haskell-language-server. I cannot reproduce the problem with the normal Ormolu executable.