Brittany.hs

provider :: FormattingProvider
provider uri formatType opts = pluginGetFile "brittanyCmd: " uri $ \file -> do
  confFile <- liftIO $ getConfFile file
  mtext <- readVFS uri
  case mtext of
    Nothing -> return $ IdeResultFail (IdeError InternalError "File was not open" Null)
    Just text -> case formatType of
      FormatRange r -> do
        res <- liftIO $ runBrittany tabSize confFile $ extractRange r text
        case res of
          Left err -> return $ IdeResultFail (IdeError PluginError
                      (T.pack $ "brittanyCmd: " ++ unlines (map showErr err)) Null)
          Right newText -> do
            let textEdit = J.TextEdit (normalize r) newText
            return $ IdeResultOk [textEdit]
      FormatDocument -> do
        res <- liftIO $ runBrittany tabSize confFile text
        case res of
          Left err -> return $ IdeResultFail (IdeError PluginError
                      (T.pack $ "brittanyCmd: " ++ unlines (map showErr err)) Null)
          Right newText ->
            return $ IdeResultOk [J.TextEdit (fullRange text) newText]
  where tabSize = opts ^. J.tabSize