testsuite/tests/th/TH_exn2.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell #-}

-- Test error message when the code in a splice
-- fails in a lazy fashion (e.g. a (head [])
-- thunk is embedded in the returned structure).

module TH where

$( do { ds <- [d| |] 
      ; return (tail ds) }
 )