modalPromptPlaceholder :: String -> String -> String -> Perch
modalPromptPlaceholder id' htitle text = 
  div ! id id' ! atr "class" "modal" $ do
    div ! atr "class" "modal-content" $ do
      if (not . null) htitle then h4 htitle else noHtml
      div $ do
        if (not . null) text then label text else noHtml
        div ! atr "class" "input-container" $ noHtml

    div ! atr "class" "modal-footer" $
        div ! id (id' ++ "closeButton") $ noHtml
modalPromptPlaceholder :: String -> String -> String -> Perch
modalPromptPlaceholder id' htitle text = 
  div ! id id' ! atr "class" "modal" $ do
    div ! atr "class" "modal-content" $ do
      if (not . null) htitle then h4 htitle else noHtml
      div $ do
        if (not . null) text then label text else noHtml
        div ! atr "class" "input-container" $ noHtml

    div ! atr "class" "modal-footer" $
        div ! id (id' ++ "closeButton") $ noHtml
modalPromptPlaceholder id' htitle text = 
  div ! id id' ! atr "class" "modal" $ do
    div ! atr "class" "modal-content" $ do
      if (not . null) htitle then h4 htitle else noHtml
      div $ do
        if (not . null) text then label text else noHtml
        div ! atr "class" "input-container" $ noHtml

    div ! atr "class" "modal-footer" $
        div ! id (id' ++ "closeButton") $ noHtml