{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DataKinds #-}

module Web.Views.NavButtonOpen where

import Text.Blaze
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A

navBtn :: H.Html
navBtn =
    H.a ! A.class_ "menu right p4" ! A.href "/nav" $ do 
        H.span mempty
        H.span mempty
        H.span mempty
