convert_to_epoch.hs

-- Given a timestamp from a JSON API call
-- Need to convert to Epoch

import Control.Applicative ((<$>))
import Control.Monad (liftM)
import Data.Time
import Data.Time.Clock.POSIX
import System.Locale

main = do
    let givenTimeStamp = "2013-09-29 16:36:30"
        tsFormat = "%F %T"
        tsAsUTCTime = parseTime defaultTimeLocale tsFormat givenTimeStamp :: Maybe UTCTime
        tsAsEpoch = (*1000) <$> (utcTimeToPOSIXSeconds `liftM` tsAsUTCTime)
    print tsAsEpoch