Remove deprecated imports and dead code

lib/GEODE/Metadata/ArticleRecord.hs

@@ -7,9 +7,9 @@ module GEODE.Metadata.ArticleRecord
 
 import Data.Aeson ((.=), FromJSON(..), ToJSON(..))
 import Data.Aeson.KeyMap as KeyMap (fromList)
-import Data.Csv (FromField(..), FromNamedRecord(..), ToNamedRecord(..), ToField(..))
+import Data.Csv (FromNamedRecord(..), ToNamedRecord(..))
 import GEODE.Metadata.Record (Record(..))
-import GEODE.Metadata.Types (Has(..), ToJSONObject(..))
+import GEODE.Metadata.Types (ToJSONObject(..))
 import GEODE.Metadata.TSV.Header (DefaultFields(..), HasDefaultHeader(..))
 import GEODE.Metadata.Work (Work(..))
 import GHC.Generics (Generic)
@@ -43,13 +43,5 @@ instance Record ArticleRecord where
   relativePath (ArticleRecord {work, volume, article}) extension =
     (show work) </> ("T" <> show volume) </> (show article) <.> extension
 
-{-
-relativePath :: Has ArticleRecord a => a -> String -> FilePath
-relativePath a extension =
-  (show work) </> ("T" <> show volume) </> (show article) <.> extension
-  where
-    ArticleRecord {work, volume, article} = get a
--}
-
 instance HasDefaultHeader ArticleRecord where
   defaultFields = DefaultFields [ "work", "volume", "article" ]