Null on Hover result

[UnrealKonnord]

Hello.

Currently i'm trying to create a lsp cli client for my student project. I'm dialoging with the clang language server clangd. I'm trying using your lsp types libraries but when i'm trying to get a hover result from the language server. I'm getting a null value but the language server give a result.

{
  "id":4,
  "jsonrpc":"2.0",
  "result":{
      "contents":{
          "kind":"plaintext",
          "value":"Declared in global namespace\n\nint square(int x)"
      }
   }
}

I found the result given by clangd on my request and i found out the data Hover doesn't match the case where contents is MarkupContent.

interface Hover {
	contents: MarkedString | MarkedString[] | MarkupContent;
	range?: Range;
}

I create an edited hover data type to match this case.

data Hover = Hover {
        _contents :: Either (List MarkedString) MarkupContent,
        _range    :: Maybe Range
    } deriving (Read, Show, Eq)

instance FromJSON Hover where
    parseJSON = withObject "object" $ \o -> do
        Hover <$> ( (Left  <$>  o .:  "contents") <|>
                            (Right <$> o .:  "contents") )
    
              <*>   o .:? "range"

I want to know if it's the right way to make it ?
Thank you.