def run(self):
current_project_dir, current_project_name = get_cabal_project_dir_and_name_of_view(self.window.active_view())
if current_project_name and current_project_dir:
build_mode = get_setting('auto_build_mode')
build_command = {
'normal': 'build',
'normal-then-warnings': 'build_then_warnings',
'typecheck': 'typecheck',
'typecheck-then-warnings': 'typecheck_then_warnings',
}.get(build_mode)
if not build_command:
output_error(self.window, "SublimeHaskell: invalid auto_build_mode '%s'" % build_mode)
run_build(self.window.active_view(), current_project_name, current_project_dir, build_command, None)
def show_errors(self, window, error_text):
sublime.set_timeout(lambda: sublime.status_message('Compiling Haskell ModuleInspector' + u" \u2717"), 0)
sublime.set_timeout(lambda: output_error(window, error_text), 0)
