darcsden merge changes from multiple repos (functions)

m l|all null l=[]
   |True=x:(m$a++(xs:b))
 where
   n=filter(not.null)l
   (_,min)=minimum$zip(map head n)[0..]
   (a,((x:xs):b))=splitAt min n


getUserChanges :: BP bp => User bp -> Int -> IO ([PatchLog], Int)
getUserChanges u page = do -- R.withRepositoryDirectory YesUseCache dir $ R.RepoJob $ \dr -> do
    repos <- (getOwnerRepositories (view uName u))
    let ps = m $ map (fromPS (\np -> (P.patch2patchinfo np, P.getdeps np)) $ R.readRepo) (getOwnerRepositories (view uName u))
        patches = map toLog (paginate 30 page ps)

    prettyLog <- findUsers patches

    return
        ( prettyLog
        , ceiling ((fromIntegral (length ps) :: Double) / 30)
        )