{-# LANGUAGE PartialTypeSignatures #-}
{-# LANGUAGE OverloadedStrings #-}

module Web.Views.CenteredSplit where

import Control.Monad
import Data.Text
import Text.Blaze
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A

centeredSplit :: H.Html -> H.Html -> H.Html
centeredSplit left right =
    H.div ! A.class_ "f f-w f-sa fi-center p4" $ do
        H.div ! A.class_ "p4" $ left
        H.div ! A.class_ "p4" $ right
