blob: 39eec1ddd8ec987389729a17bcb16b2fc073df79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE TemplateHaskell #-}
-- Test that LINE pragmas influence type error messages correctly
module ShouldFail where
import Language.Haskell.TH
$( do p <- pragLineD 42 "virtual file"
ds <- [d| x = $(varE (mkName "doesntExist")) |]
return (p:ds) )
|