projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fixing Hpc SrcSpan usage; rejecting SrcSpans that are not in the source file
[ghc-hetmet.git]
/
compiler
/
ilxGen
/
tests
/
test7.hs
1
data List a = Cons a (List a)
2
3
hdL (Cons x y) = x
4
tlL (Cons x y) = y
5
6
mk f x = f x (mk f x)
7
main = putStr (hdL (tlL (mk Cons "hello world!\n")))
8