@@ -2,7 +2,7 @@ module Language.Reflection.Errors
3import Language.Reflection
3import Language.Reflection
5−record SourceLocation : Type where
5+data SourceLocation : Type where
6 FileLoc : (filename : String) -> (line : Int) -> (col : Int) -> SourceLocation
6 FileLoc : (filename : String) -> (line : Int) -> (col : Int) -> SourceLocation
8%name SourceLocation loc
8%name SourceLocation loc