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

Cosmetic

testsuite/tests/ghc-regress/th/TH_exn.hs

-{-# 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) }
+ )
+