testsuite/tests/th/TH_linePragma.hs


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) )