diff options
author | 2025-02-20 12:29:35 +0100 | |
---|---|---|
committer | 2025-02-20 18:36:23 +0100 | |
commit | caf72faccc04e647c27e1b5eef85c515949d8210 (patch) | |
tree | ec32dda7b87c12712307d2d101368fed5888d4b9 /common/src/Collection.hs | |
parent | 3c64b52017e7c16da0d017c033c77eee5d7a4340 (diff) |
consolidate `backend, cli, common` -> `acms`
Diffstat (limited to 'common/src/Collection.hs')
-rw-r--r-- | common/src/Collection.hs | 30 |
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) |