{-# LANGUAGE OverloadedStrings, QuasiQuotes, TemplateHaskell, TypeFamilies, MultiParamTypeClasses, FlexibleContexts, GADTs #-} import Yesod import Yesod.Static import Data.Time (UTCTime) import System.FilePath import System.Directory (removeFile, doesFileExist) import Control.Applicative ((<$>), (<*>)) import Data.Conduit import Data.Text (unpack) import qualified Data.ByteString.Lazy as DBL impor