aboutsummaryrefslogtreecommitdiffstats
path: root/common/src/Collection.hs
diff options
context:
space:
mode:
Diffstat (limited to 'common/src/Collection.hs')
-rw-r--r--common/src/Collection.hs30
1 files changed, 0 insertions, 30 deletions
diff --git a/common/src/Collection.hs b/common/src/Collection.hs
deleted file mode 100644
index 418278d..0000000
--- a/common/src/Collection.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE ViewPatterns #-}
-
-module Collection where
-
-import Miso.String (MisoString, toMisoString)
-import Text.ParserCombinators.ReadP qualified as R
-import Text.ParserCombinators.ReadPrec qualified as R
-import Text.Read (Read (..))
-
-newtype Collection = Collection {name :: MisoString}
- deriving (Read, Eq, Show)
-
-data CollectionItem = CollectionItem
- { collection :: Collection,
- itemFileName :: FilePath
- }
- deriving (Eq)
-
-instance Read CollectionItem where
- readPrec = R.lift $ do
- (Collection . toMisoString -> collection) <- R.munch (/= '/')
- _ <- R.string "/"
- itemFileName <- R.munch (const True)
- pure CollectionItem {..}
-
-instance Show CollectionItem where
- show (CollectionItem {collection = Collection cn, itemFileName}) =
- show (cn <> "/" <> toMisoString itemFileName)