Hmmm... I think I should have said:
toCycle :: Int -> c
toCycle = toEnum
. (+ (fromEnum (minBound::c)))
. (`mod` (cyclePeriod (undefined::c)))
_______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
