Skip to content

Instantly share code, notes, and snippets.

@ota42y

ota42y/tesh.hs

Created January 2, 2015 02:59
Show Gist options
  • Save ota42y/1cd050ce87c6406c8536 to your computer and use it in GitHub Desktop.
Save ota42y/1cd050ce87c6406c8536 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tesh.hs
type Name = String
colorName :: NamedColor -> Name
colorName c = case c of
Red -> "赤"
Green -> "緑"
Blue -> "青"
main =
print 1
-- parse error on input ‘::’
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment