defaultTree :: Word -> FilePath -> Int -> [Corner] -> [(Int, Text)] -> Tree
defaultTree pattern path ln all_corners source
  = Tree {
      _primary_word = Nothing,
      _search_word = pattern,
      _fname = path,
      _lnum = ln,
      _corners = all_corners,
      _around_text = source,
      _is_action = False,
      _is_filter_def = False,
      _children = []
    }
defaultTree :: Word -> FilePath -> Int -> [Corner] -> [(Int, Text)] -> Tree
defaultTree pattern path ln all_corners source
  = Tree {
      _primary_word = Nothing,
      _search_word = pattern,
      _fname = path,
      _lnum = ln,
      _corners = all_corners,
      _around_text = source,
      _is_action = False,
      _is_filter_def = False,
      _children = []
    }
defaultTree pattern path ln all_corners source
  = Tree {
      _primary_word = Nothing,
      _search_word = pattern,
      _fname = path,
      _lnum = ln,
      _corners = all_corners,
      _around_text = source,
      _is_action = False,
      _is_filter_def = False,
      _children = []
    }