lukehoersten

ssl_certificate         cert.pem;
ssl_certificate_key     cert.key.pem;
ssl_trusted_certificate cert.ca.pem;
ssl_dhparam             cert.dh.pem;

ssl_protocols             TLSv1 TLSv1.1 TLSv1.2;
ssl_ciphers               FIPS@STRENGTH:!aNULL:!eNULL;
ssl_prefer_server_ciphers on;

ssl_session_cache   shared:SSL:10m;

lukehoersten

-- Uncaught exception: 'getPromise: dereferenced empty key (id 0)'


manyWithSplices :: Monad n
                => Splice n
                -- ^ Splice to be run
                -> Splices (RuntimeSplice n a -> Splice n)
                -- ^ Splices to be bound to each runtime data first
                -> RuntimeSplice n [a]
                -- ^ Runtime data needed by the above splices

lukehoersten

{-# LANGUAGE OverloadedStrings #-}

module Racemetric.Form.Datetime where

import           Control.Applicative   ((<$>), (<*>))
import           Control.Monad         (liftM2, liftM3)
import           Data.Text             (Text)
import           Data.Time.Calendar    (Day (..))
import           Data.Time.Format      (formatTime, parseTime)
import           Data.Time.LocalTime   (LocalTime (..), TimeOfDay (..),