getFileFromUser :: PullUData -> ApiResponse File
getFileFromUser (Just user, fName) =
    case filter ((==fName) . fileName) $ iUserFiles user of
      [file] -> success file
      _ -> failure $ NoSuchFile fName
getFileFromUser :: PullUData -> ApiResponse File
getFileFromUser (Just user, fName) =
    case filter ((==fName) . fileName) $ iUserFiles user of
      [file] -> success file
      _ -> failure $ NoSuchFile fName
getFileFromUser (Just user, fName) =
    case filter ((==fName) . fileName) $ iUserFiles user of
      [file] -> success file
      _ -> failure $ NoSuchFile fName