{-# LANGUAGE TemplateHaskell #-}

 import Prelude hiding (error)
 import ErrorLoc

 main :: IO ()
 main = $error "Oh no!"

 test.hs:7:10: Oh no!