toDayFromDateStuff :: DateStuff -> Day
toDayFromDateStuff (DateStuff (y,m,d)) = 
    fromGregorian (read y :: Integer)
                  (read m :: Int)
                  (read d :: Int)
toDayFromDateStuff :: DateStuff -> Day
toDayFromDateStuff (DateStuff (y,m,d)) = 
    fromGregorian (read y :: Integer)
                  (read m :: Int)
                  (read d :: Int)
toDayFromDateStuff (DateStuff (y,m,d)) = 
    fromGregorian (read y :: Integer)
                  (read m :: Int)
                  (read d :: Int)