module Directory (Permissions(..),fromPerm,toPerm) where data Permissions = Permissions { readable, writable, executable, searchable :: Bool } deriving (Eq, Ord, Read, Show) fromPerm (Permissions r w x s) = (r, w, x, s) toPerm (r, w, x, s) = (Permissions r w x s)