this :: Id -> Annotate Symbol SrcPos
this name =
  Annotate {
    content = Symbol {
                symbolName = "this",
                symbolType = TRecord (Just name) [],
                symbolConstValue = Nothing,
                symbolContext = Outside,
                symbolIndex = 0,
                symbolDefLine = 0,
                symbolDefCol = 0
              },
    annotation = SrcPos 0 0
  }
this :: Id -> Annotate Symbol SrcPos
this name =
  Annotate {
    content = Symbol {
                symbolName = "this",
                symbolType = TRecord (Just name) [],
                symbolConstValue = Nothing,
                symbolContext = Outside,
                symbolIndex = 0,
                symbolDefLine = 0,
                symbolDefCol = 0
              },
    annotation = SrcPos 0 0
  }
this name =
  Annotate {
    content = Symbol {
                symbolName = "this",
                symbolType = TRecord (Just name) [],
                symbolConstValue = Nothing,
                symbolContext = Outside,
                symbolIndex = 0,
                symbolDefLine = 0,
                symbolDefCol = 0
              },
    annotation = SrcPos 0 0
  }