Replace this temporary workaround when AST is updated with positional information.

[chuabingquan]

baby-l4/src/L4LSP.hs

Lines 182 to 185 in cbbf750

	-- TODO: #98 Replace this temporary workaround when AST is updated with positional information.
	getErrLocation :: (SRng, ErrorCause) -> SRng
	getErrLocation (_, UndeclaredVariable r _vn) = r
	getErrLocation (_, IllTypedSubExpr rngs _ _) = head rngs