old_contents: #
  # linter.py
  # Linter for SublimeLinter3, a code checking framework for Sublime Text 3
  #
  # Written by Jon Surrell
  # Copyright (c) 2013 Jon Surrell
  #
  # License: MIT
  #
  
  """This module exports the Ghc plugin class."""
  
  from SublimeLinter.lint import Linter, util
  from os.path import basename
  
  class Ghc(Linter):
  
      """Provides an interface to ghc."""
  
      def split_match(self, match):
          """
          Override to ignore errors reported in imported files.
          """
          match, line, col, error, warning, message, near = super().split_match(match)
  
          match_filename = basename(match.groupdict()['filename'])
          linted_filename = basename(self.filename)
  
          if match_filename != linted_filename:
              return None, None, None, None, None, '', None
  
          return match, line, col, error, warning, message, near
  
      syntax = ('haskell', 'haskell-sublimehaskell', 'literate haskell')
      cmd = ('ghc', '-fno-code', '-Wall', '-Wwarn', '-fno-helpful-errors')
      regex = r'^(?P<filename>.+):(?P<line>\d+):(?P<col>\d+):\s+(?P<warning>Warning:\s+)?(?P<message>.+)$'
      multiline = True
  
      # No stdin
      tempfile_suffix = {
          'haskell': 'hs',
          'haskell-sublimehaskell': 'hs',
          'literate haskell': 'lhs'
      }
  
      # ghc writes errors to STDERR
      error_stream = util.STREAM_STDERR
  
new_contents: #
  # linter.py
  # Linter for SublimeLinter3, a code checking framework for Sublime Text 3
  #
  # Written by Jon Surrell
  # Copyright (c) 2013 Jon Surrell
  #
  # License: MIT
  #
  
  """This module exports the Ghc plugin class."""
  
  from SublimeLinter.lint import Linter, util
  from os.path import basename
  
  
  class Ghc(Linter):
  
      """Provides an interface to ghc."""
  
      def split_match(self, match):
          """Override to ignore errors reported in imported files."""
          match, line, col, error, warning, message, near = (
              super().split_match(match)
          )
  
          match_filename = basename(match.groupdict()['filename'])
          linted_filename = basename(self.filename)
  
          if match_filename != linted_filename:
              return None, None, None, None, None, '', None
  
          return match, line, col, error, warning, message, near
  
      syntax = ('haskell', 'haskell-sublimehaskell', 'literate haskell')
      cmd = ('ghc', '-fno-code', '-Wall', '-Wwarn', '-fno-helpful-errors')
      regex = (
          r'^(?P<filename>.+):'
          r'(?P<line>\d+):(?P<col>\d+):'
          r'\s+(?P<warning>Warning:\s+)?(?P<message>.+)$'
      )
      multiline = True
  
      # No stdin
      tempfile_suffix = {
          'haskell': 'hs',
          'haskell-sublimehaskell': 'hs',
          'literate haskell': 'lhs'
      }
  
      # ghc writes errors to STDERR
      error_stream = util.STREAM_STDERR
  
subject: fix lint problems (line length