testsuite/tests/ghc-regress/parser/unicode/1103.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE UnicodeSyntax #-}
{-
	Three kinds of Unicode tests for our purposes.
-}

module UniTest where

-- Non working Japanese Unicode test.

てすと3 ∷ IO ()
てすと3 = do
	putStrLn $ show 人間虫 where
	人間虫 = "humasect"