move Collection types to common

1 files changed, 31 insertions, 0 deletions

diff --git a/common/src/Collection.hs b/common/src/Collection.hs
new file mode 100644
index 0000000..a23fd31
--- /dev/null
+++ b/common/src/Collection.hs
@@ -0,0 +1,31 @@
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ViewPatterns #-}
+module Collection where
+
+import Data.Text qualified as T
+import Text.ParserCombinators.ReadP qualified as R
+import Text.ParserCombinators.ReadPrec qualified as R
+import Text.Read (Read (..))
+
+newtype Collection = Collection {name :: T.Text}
+  deriving (Read, Eq, Show)
+
+data CollectionItem = CollectionItem
+  { collection :: Collection,
+    itemFileName :: FilePath
+  } deriving (Eq)
+
+instance Read CollectionItem where
+  readPrec = R.lift $ do
+    (Collection . T.pack -> collection) <- R.munch (/= '/')
+    _ <- R.string "/"
+    itemFileName <- do
+      itemFileName <- R.munch (liftA2 (&&) (/= '.') (/= '/'))
+      fileExt <- R.string ".json"
+      pure (itemFileName <> fileExt)
+    pure CollectionItem {..}
+
+instance Show CollectionItem where
+  show (CollectionItem {collection = Collection cn, itemFileName}) =
+    show (cn <> "/" <> T.pack itemFileName)