-- | get a user's last file 
getLastFile :: InternalUser -> FileName
getLastFile = fileName . head . iUserFiles
getLastFile :: InternalUser -> FileName
getLastFile = fileName . head . iUserFiles
getLastFile = fileName . head . iUserFiles