File: bug608.scala

package info (click to toggle)
scala 2.7.7.dfsg-4
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 75,804 kB
  • ctags: 1,852
  • sloc: java: 7,762; xml: 6,608; sh: 1,723; cs: 158; makefile: 9; ansic: 6
file content (17 lines) | stat: -rw-r--r-- 425 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
trait CrashDueToTypeError {
	def id[a](x :a) :a = x

	trait Bifunctor {
		type a; //	 content 
		type s <: Bifunctor

		// uncomment        this-vvvvvvvvvvvvvvvvvvvvvvvvvvvv, and it compiles 
		def bimap[c](f :a=>c) :s{/*type s=Bifunctor.this.s;*/type a=c; }
	}

	def hylo[hs <: Bifunctor,ha,hb,hc]
	    (f :hb=>hs{type s=hs; type a=ha}, 
	     g :hs{type s=hs; type a=ha}=>hc)(x :hb) 
	     :hc 
	     = g(f(x).bimap(id))
}