{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell   #-}

module HAR.PageTimings
       (
         PageTimings(..)
       ) where

import           Data.Aeson.TH
import           Data.Text     (Text)

data PageTimings = PageTimings { onContentLoad :: Maybe Integer
                               , onLoad        :: Maybe Integer
                               , comment       :: Maybe Text
                               } deriving (Show)

$(deriveJSON defaultOptions ''PageTimings)