Implement Work.findByIswc

src/MusicBrainz/Data/Work.hs

@@ -8,6 +8,7 @@ should see the documentation on the 'Work' type and notice all the type class
 instances. -}
 module MusicBrainz.Data.Work
     ( findByArtist
+    , findByIswc
 
       -- * ISWCs
     , findIswcs
@@ -234,3 +235,26 @@ findByArtist artistId = query q (artistId, artistId)
           ORDER BY
             musicbrainz_collate(name.name)
         |]
+
+
+--------------------------------------------------------------------------------
+findByIswc :: (Functor m, MonadIO m) => ISWC -> MusicBrainzT m [CoreEntity Work]
+findByIswc iswc = query q (Only iswc)
+  where
+    q = [sql|
+          SELECT work_id, revision_id,
+            name.name, comment, work_type_id, language_id
+          FROM (
+            SELECT DISTINCT work_id, work_revision.revision_id, work_tree_id
+            FROM work
+            JOIN work_revision USING (work_id)
+            JOIN iswc USING (work_tree_id)
+            WHERE iswc.iswc = ?
+              AND work_revision.revision_id = work.master_revision_id
+          ) q
+          JOIN work_tree USING (work_tree_id)
+          JOIN work_data USING (work_data_id)
+          JOIN work_name name ON (work_data.name = name.id)
+          ORDER BY
+            musicbrainz_collate(name.name)
+        |]

test/suite/MusicBrainz/Data/Work/Tests.hs

@@ -33,6 +33,7 @@ tests = [ testCreateFindLatest
         , testResolveRevisionReference
         , testFindIswcs
         , testFindByArtist
+        , testFindByIswc
         ]
 
 
@@ -114,6 +115,19 @@ testIswc = testCase "Can add and remove ISWCs" $
     withIswc x = x { workIswcs = Set.singleton expected }
 
 
+--------------------------------------------------------------------------------
+testFindByIswc :: Test
+testFindByIswc = testCase "Can find works by ISWCs" $ do
+    editor <- entityRef <$> register acid2
+    createEdit $ do
+      work <- viewRevision =<< create editor (withIswc honeysuckleRose)
+      actual <- findByIswc expected
+      actual @?= [ work ]
+  where
+    expected = "T-070.116.442-2" ^?! iswc
+    withIswc x = x { workIswcs = Set.singleton expected }
+
+
 --------------------------------------------------------------------------------
 testResolveRevisionReference :: Test
 testResolveRevisionReference = testCase "Resolve revision reference" $ do