Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

really really obvious bug...

  • Loading branch information...
commit b01940033c536b62d50b9f3cb21bb734de27e615 1 parent 093265f
@andrew-wja authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  music-sorter-outer.hs
View
2  music-sorter-outer.hs
@@ -33,7 +33,7 @@ albumsToImport libold libnew =
artsToAdd = filter (not . Sanity.libraryHasArtist libold . Lib.artistName) artsNew
leftoverNewArts = filter (\x -> (not (x `elem` artsToAdd))) artsNew --artists who were already there
leftoverNewAlbs = concatMap (\x -> map ((Lib.artistName x),) $ Lib.artistAlbums x) leftoverNewArts
- albPairsToAdd = filter (\(name,alb) -> Sanity.libraryHasAlbumByArtist libold name (Lib.albumName alb)) leftoverNewAlbs
+ albPairsToAdd = filter (\(name,alb) -> not $ Sanity.libraryHasAlbumByArtist libold name (Lib.albumName alb)) leftoverNewAlbs
in
show $ (concatMap Lib.artistAlbums artsToAdd) ++ (map snd albPairsToAdd)

0 comments on commit b019400

Please sign in to comment.
Something went wrong with that request. Please try again.