21 lines
565 B
Haskell
21 lines
565 B
Haskell
{-# LANGUAGE CPP #-}
|
|
-- | Web handler utilities. More of these are in Foundation.hs, where
|
|
-- they can be used in the default template.
|
|
|
|
module Handler.Utils where
|
|
|
|
import Prelude
|
|
import Data.Time.Calendar
|
|
import Data.Time.Clock
|
|
import Data.Time.Format
|
|
#if !(MIN_VERSION_time(1,5,0))
|
|
import System.Locale (defaultTimeLocale)
|
|
#endif
|
|
|
|
numbered :: [a] -> [(Int,a)]
|
|
numbered = zip [1..]
|
|
|
|
dayToJsTimestamp :: Day -> Integer
|
|
dayToJsTimestamp d = read (formatTime defaultTimeLocale "%s" t) * 1000 -- XXX read
|
|
where t = UTCTime d (secondsToDiffTime 0)
|