openProjectModal :: Perch
openProjectModal =
    div ! id "openProjectModal" ! atr "class" "modal modal-fixed-footer" $ do
        div ! atr "class" "modal-content" $ do
            h4 ("Open project" :: String)
            div $ do
                b ("Path to Stack project" :: String)
                div ! id "pathInput" $ noHtml
                p ! atr "class" "grey-text lighten-4" $ ("Path must be absolute, without ~ or environment variables." :: String)
                div ! id "creationDisplay" $ noHtml
                ul ! atr "class" "fs-tree collection" $ do
                  div ! atr "class" "collection-item row" $
                    li ! id "fsTree-tools" $ noHtml
                  div ! id "fsTree" $ noHtml

        div ! atr "class" "modal-footer" $
            div ! id "closeModalButton" $ noHtml
openProjectModal :: Perch
openProjectModal =
    div ! id "openProjectModal" ! atr "class" "modal modal-fixed-footer" $ do
        div ! atr "class" "modal-content" $ do
            h4 ("Open project" :: String)
            div $ do
                b ("Path to Stack project" :: String)
                div ! id "pathInput" $ noHtml
                p ! atr "class" "grey-text lighten-4" $ ("Path must be absolute, without ~ or environment variables." :: String)
                div ! id "creationDisplay" $ noHtml
                ul ! atr "class" "fs-tree collection" $ do
                  div ! atr "class" "collection-item row" $
                    li ! id "fsTree-tools" $ noHtml
                  div ! id "fsTree" $ noHtml

        div ! atr "class" "modal-footer" $
            div ! id "closeModalButton" $ noHtml
openProjectModal =
    div ! id "openProjectModal" ! atr "class" "modal modal-fixed-footer" $ do
        div ! atr "class" "modal-content" $ do
            h4 ("Open project" :: String)
            div $ do
                b ("Path to Stack project" :: String)
                div ! id "pathInput" $ noHtml
                p ! atr "class" "grey-text lighten-4" $ ("Path must be absolute, without ~ or environment variables." :: String)
                div ! id "creationDisplay" $ noHtml
                ul ! atr "class" "fs-tree collection" $ do
                  div ! atr "class" "collection-item row" $
                    li ! id "fsTree-tools" $ noHtml
                  div ! id "fsTree" $ noHtml

        div ! atr "class" "modal-footer" $
            div ! id "closeModalButton" $ noHtml