Le 26/04/2015 15:20, martin a écrit :

I was trying to implement >>= (tBind) on my "Temporal" data type and found that it hangs on an operation like

	takeInitialPart $ infiniteTemporal >>= (\x -> finiteTemporal)

I am pretty sure the result is well defined and by no means infinite. Also the code works on finite Temporals.

I am not sure about this...
I replaced [5,10 ..] by [5,10 .. 100], so outer becomes

Temporal [(DPast,0),(T 5,5),(T 10,10),(T 15,15),(T 20,20),(T 25,25),(T 30,30),(T 35,35),(T 40,40),(T 45,45),(T 50,50),(T 55,55),(T 60,60),(T 65,65),(T 70,70),(T 75,75),(T 80,80),(T 85,85),(T 90,90),(T 95,95),(T 100,100)]

and GHCi says:

*Main> ex10
*** Exception: Prelude.head: empty list

==

Jerzy Karczmarczuk