Example #1
0
def haskell_type(view, filename, module_name, line, column, cabal=None):
    result = None

    if hsdev.hsdev_enabled():
        # Convert from hsdev one-based locations to sublime zero-based positions
        def to_file_pos(r):
            return FilePosition(int(r['line']) - 1, int(r['column']) - 1)

        def to_region_type(r):
            return RegionType(r['type'], to_file_pos(r['region']['from']),
                              to_file_pos(r['region']['to']))

        ts = autocomplete.hsdev_client.ghcmod_type(filename,
                                                   line + 1,
                                                   column + 1,
                                                   ghc=get_ghc_opts(filename))
        if ts:
            return [to_region_type(r) for r in ts]
        return None
    column = sublime_column_to_ghc_column(view, line, column)
    line = line + 1
    if hdevtools_enabled():
        result = hdevtools_type(filename, line, column, cabal=cabal)
    if not result and module_name and ghcmod_enabled():
        result = ghcmod_type(filename, module_name, line, column)
    return parse_type_output(view, result) if result else None
Example #2
0
def haskell_type(filename, module_name, line, column, cabal = None):
    result = None

    if hdevtools_enabled():
        result = hdevtools_type(filename, line, column, cabal = cabal)
    if not result and module_name and ghcmod_enabled():
        result = ghcmod_type(filename, module_name, line, column, cabal = cabal)
    return parse_type_output(result) if result else None
Example #3
0
def haskell_type(filename, module_name, line, column, cabal=None):
    result = None

    if hdevtools_enabled():
        result = hdevtools_type(filename, line, column, cabal=cabal)
    if not result and module_name and ghcmod_enabled():
        result = ghcmod_type(filename, module_name, line, column, cabal=cabal)
    return parse_type_output(result) if result else None
Example #4
0
def symbol_info(filename, module_name, symbol_name, cabal = None, no_ghci = False):
    result = None
    if hdevtools.hdevtools_enabled():
        result = hdevtools.hdevtools_info(filename, symbol_name, cabal = cabal)
    if not result and ghcmod.ghcmod_enabled():
        result = ghcmod.ghcmod_info(filename, module_name, symbol_name, cabal = cabal)
    if not result and not filename and not no_ghci:
        result = ghci.ghci_info(module_name, symbol_name, cabal = cabal)
    return result
Example #5
0
def symbol_info(filename, module_name, symbol_name, cabal = None, no_ghci = False):
    result = None
    if hdevtools.hdevtools_enabled():
        result = hdevtools.hdevtools_info(filename, symbol_name, cabal = cabal)
    if not result and ghcmod.ghcmod_enabled():
        result = ghcmod.ghcmod_info(filename, module_name, symbol_name, cabal = cabal)
    if not result and not filename and not no_ghci:
        result = ghci.ghci_info(module_name, symbol_name, cabal = cabal)
    return result
Example #6
0
def haskell_type(view, filename, module_name, line, column, cabal = None):
    result = None

    if hsdev.hsdev_enabled():
        # Convert from hsdev one-based locations to sublime zero-based positions
        def to_file_pos(r):
            return FilePosition(int(r['line']) - 1, int(r['column']) - 1)
        def to_region_type(r):
            return RegionType(
                r['type'],
                to_file_pos(r['region']['from']),
                to_file_pos(r['region']['to']))
        ts = autocomplete.hsdev_client.ghcmod_type(filename, line + 1, column + 1, ghc = get_ghc_opts(filename))
        if ts:
            return [to_region_type(r) for r in ts]
        return None
    column = sublime_column_to_ghc_column(view, line, column)
    line = line + 1
    if hdevtools_enabled():
        result = hdevtools_type(filename, line, column, cabal = cabal)
    if not result and module_name and ghcmod_enabled():
        result = ghcmod_type(filename, module_name, line, column)
    return parse_type_output(view, result) if result else None