Exposing formatting providers to ormolu test suite

Author: DavSanchez

test/functional/FormatSpec.hs

@@ -94,6 +94,10 @@ spec = do
 
 -- Work in progress
   describe "ormolu" $ do
+    let formatLspConfig provider =
+          object [ "languageServerHaskell" .= object ["formattingProvider" .= (provider :: Value)] ]
+        formatConfig provider = defaultConfig { lspConfig = Just (formatLspConfig provider) }
+        
     it "formats correctly" $ runSession hieCommand fullCaps "test/testdata" $ do
       sendNotification WorkspaceDidChangeConfiguration (DidChangeConfigurationParams (formatLspConfig "ormolu"))
       doc <- openDoc "Format.hs" "haskell"