From 410a2006873f7b4ab603b5629f06b65256fb16b0 Mon Sep 17 00:00:00 2001
From: Alice BRENON <alice.brenon@ens-lyon.fr>
Date: Fri, 22 Dec 2023 14:25:42 +0100
Subject: [PATCH] Remove deprecated imports and dead code
---
lib/GEODE/Metadata/ArticleRecord.hs | 12 ++----------
1 file changed, 2 insertions(+), 10 deletions(-)
diff --git a/lib/GEODE/Metadata/ArticleRecord.hs b/lib/GEODE/Metadata/ArticleRecord.hs
index 23eac89..b78b70a 100644
--- a/lib/GEODE/Metadata/ArticleRecord.hs
+++ b/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" ]
--
GitLab