toFileList :: ListData -> ApiResponse FileList
toFileList (Just user, groups) = success $
    FileList (map fileName $ iUserFiles user)
        (map toGroupFileList groups)
toFileList :: ListData -> ApiResponse FileList
toFileList (Just user, groups) = success $
    FileList (map fileName $ iUserFiles user)
        (map toGroupFileList groups)
toFileList (Just user, groups) = success $
    FileList (map fileName $ iUserFiles user)
        (map toGroupFileList groups)