Current date and time can be found with getCurrentTime:
getCurrentTime
import Data.Time print =<< getCurrentTime -- 2016-08-02 12:05:08.937169 UTC
Alternatively, just the date is returned by fromGregorian:
fromGregorian
fromGregorian 1984 11 17 -- yields a Day