+rootDir :: [B.ByteString] -> FilePath
+rootDir msgs = case decode (head msgs) :: Maybe InitializeRequest of
+ Just req -> fromMaybe (error "Couldn't convert root dir") $ do
+ rootUri <- req ^. params . rootUri
+ uriToFilePath rootUri
+ Nothing -> error "Couldn't find root dir"
+