Try fixing tests

Author: thomasjm

lsp-test/test/Test.hs

@@ -370,8 +370,8 @@ main = hspec $ around withDummyServer $ do
       liftIO $ do
         case regMethod `mEqClient` SWorkspaceDidChangeWatchedFiles of
           Just (Right HRefl) ->
-            regOpts `shouldBe` (DidChangeWatchedFilesRegistrationOptions $ List
-                                [ FileSystemWatcher "*.watch" (Just (WatchKind True True True)) ])
+            regOpts `shouldBe` (Just (DidChangeWatchedFilesRegistrationOptions $ List
+                                      [ FileSystemWatcher "*.watch" (Just (WatchKind True True True)) ]))
           _ -> expectationFailure "Registration wasn't on workspace/didChangeWatchedFiles"
 
       -- now unregister it by sending a specific createDoc

lsp-types/test/ServerCapabilitiesSpec.hs

@@ -34,7 +34,7 @@ spec = describe "server capabilities" $ do
           Just registrationParams = decode input :: Maybe RegistrationParams
         in registrationParams ^. registrations `shouldBe`
              List [SomeRegistration $ Registration "4a56f5ca-7188-4f4c-a366-652d6f9d63aa"
-                                      SWorkspaceDidChangeConfiguration Empty]
+                                      SWorkspaceDidChangeConfiguration (Just Empty)]
   where
     documentFilters = List [DocumentFilter (Just "haskell") Nothing Nothing]
     documentFiltersJson = "[{\"language\": \"haskell\"}]"