{-# OPTIONS_GHC -Wno-orphans #-}

module Language.LSP.Protocol.Types.Orphans where

import Data.Default
import Data.Semigroup ()
import Language.LSP.Protocol.Internal.Types

instance Semigroup WorkspaceEdit where
  (WorkspaceEdit Maybe (Map Uri [TextEdit])
a Maybe
  [TextDocumentEdit |? (CreateFile |? (RenameFile |? DeleteFile))]
b Maybe (Map ChangeAnnotationIdentifier ChangeAnnotation)
c) <> :: WorkspaceEdit -> WorkspaceEdit -> WorkspaceEdit
<> (WorkspaceEdit Maybe (Map Uri [TextEdit])
a' Maybe
  [TextDocumentEdit |? (CreateFile |? (RenameFile |? DeleteFile))]
b' Maybe (Map ChangeAnnotationIdentifier ChangeAnnotation)
c') = Maybe (Map Uri [TextEdit])
-> Maybe
     [TextDocumentEdit |? (CreateFile |? (RenameFile |? DeleteFile))]
-> Maybe (Map ChangeAnnotationIdentifier ChangeAnnotation)
-> WorkspaceEdit
WorkspaceEdit (Maybe (Map Uri [TextEdit])
a forall a. Semigroup a => a -> a -> a
<> Maybe (Map Uri [TextEdit])
a') (Maybe
  [TextDocumentEdit |? (CreateFile |? (RenameFile |? DeleteFile))]
b forall a. Semigroup a => a -> a -> a
<> Maybe
  [TextDocumentEdit |? (CreateFile |? (RenameFile |? DeleteFile))]
b') (Maybe (Map ChangeAnnotationIdentifier ChangeAnnotation)
c forall a. Semigroup a => a -> a -> a
<> Maybe (Map ChangeAnnotationIdentifier ChangeAnnotation)
c')
instance Monoid WorkspaceEdit where
  mempty :: WorkspaceEdit
mempty = Maybe (Map Uri [TextEdit])
-> Maybe
     [TextDocumentEdit |? (CreateFile |? (RenameFile |? DeleteFile))]
-> Maybe (Map ChangeAnnotationIdentifier ChangeAnnotation)
-> WorkspaceEdit
WorkspaceEdit forall a. Maybe a
Nothing forall a. Maybe a
Nothing forall a. Maybe a
Nothing

instance Default ClientCapabilities where
  def :: ClientCapabilities
def = Maybe WorkspaceClientCapabilities
-> Maybe TextDocumentClientCapabilities
-> Maybe NotebookDocumentClientCapabilities
-> Maybe WindowClientCapabilities
-> Maybe GeneralClientCapabilities
-> Maybe Value
-> ClientCapabilities
ClientCapabilities forall a. Default a => a
def forall a. Default a => a
def forall a. Default a => a
def forall a. Default a => a
def forall a. Default a => a
def forall a. Maybe a
Nothing
instance Default WorkspaceClientCapabilities
instance Default TextDocumentClientCapabilities
instance Default NotebookDocumentClientCapabilities
instance Default NotebookDocumentSyncClientCapabilities
instance Default WindowClientCapabilities
instance Default GeneralClientCapabilities