-- trac #1709

module FileDialog where

import Simpl020_A

createFolder :: ()
createFolder = geometry 0