Konvertierung eines Datums in ein Int in Haskell

Question

Ich habe ein kleines Problem mit der Konvertierung der Ausgabe dieser Funktionen unten in eine Int

date :: IO (Integer,Int,Int)
date = getCurrentTime >>= return . toGregorian . utctDay

date' :: IO Integer
date' = getCurrentTime >>= return . toModifiedJulianDay . utctDay

Grundsätzlich möchte ich die Ausgabe von entweder (nicht fussed, die so lange wie es möglich ist) und verwandeln es in eine int. z.B. Heute ist der 20/4/11 so date geben würde (2011,4,20) y date' geben würde 55671 .

In einer idealen Welt möchte ich ein paar Funktionen, um diese IO-Funktionen zu reduzieren, um eine Int - (2011,4,20) a 2011420 y 55671 (derzeit vom Typ IO Integer) zu 55671 als Int

Bitte teilen Sie mir mit, ob es bessere Möglichkeiten gibt, dies zu erledigen!

edit: Sorry, wenn es nicht klar war, ich meinte, wie kann man die Ausgabe von Datum konvertieren (2011,4,20) :: IO (Integer,Int,Int) a 20110420 :: Int