module LambdaCms.Core.Settings
( widgetFile
, generateUUID
, generateActivationToken
) where
import Data.Default (def)
import Data.Text (Text)
import Data.Text (pack)
import Data.UUID
import Data.UUID.V4
import Language.Haskell.TH.Syntax
import Prelude
import Text.Hamlet
import Yesod.Default.Util
widgetFileSettings :: WidgetFileSettings
widgetFileSettings = def
{ wfsHamletSettings = defaultHamletSettings
{ hamletNewlines = AlwaysNewlines
}
}
widgetFile :: String -> Q Exp
widgetFile = widgetFileNoReload widgetFileSettings
generateUUID :: IO Text
generateUUID = nextRandom >>= return . pack . toString
generateActivationToken :: IO Text
generateActivationToken = generateUUID