[project @ 2000-04-14 15:11:25 by sewardj]

[ghc-hetmet.git] / ghc / tests / programs / cvh_unboxing / Main.lhs

\begin{code}
import PrelBase
import Types
import Append

main = putStr (show (append_FC_L_L (FC2 a_ a_) []))
   where a_ = case 'a' of { C# x -> x }
\end{code}