[project @ 1997-12-17 14:10:59 by simonm]

[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}