let
directory path : t =
{kind =
`
Directory
; path}