Commit 0b3c43cf authored by simonpj's avatar simonpj
Browse files

[project @ 2006-01-06 16:03:25 by simonpj]

Cosmetic
parent 065d2c3e
{-# OPTIONS -fth #-}
-- This one generates an exception in the TH
-- code which should be caught in a civilised way
module TH where
$( [d| |] >>= return.tail)
{-# OPTIONS -fth #-}
-- A (head []) failure within a TH splice
-- This one generates an exception in the TH
-- code which should be caught in a civilised way
module TH where
$( do { ds <- [d| |]
; return (tail ds) }
)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment