diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-12-20 20:01:00 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-02-19 19:02:11 +0100 |
| commit | 1af7db8185394e9fd743e9e127c62a1837773ab4 (patch) | |
| tree | b4a2a34f32930c8770c9542d8a622e6a9a585cfd /common/src/Collection.hs | |
| parent | 41836618067348df941df48145d8e4f8e6251f64 (diff) | |
`$fileName` -> `$id`, drop extension
Diffstat (limited to 'common/src/Collection.hs')
| -rw-r--r-- | common/src/Collection.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/common/src/Collection.hs b/common/src/Collection.hs index 25cdec7..418278d 100644 --- a/common/src/Collection.hs +++ b/common/src/Collection.hs @@ -22,10 +22,7 @@ instance Read CollectionItem where readPrec = R.lift $ do (Collection . toMisoString -> collection) <- R.munch (/= '/') _ <- R.string "/" - itemFileName <- do - itemFileName <- R.munch (liftA2 (&&) (/= '.') (/= '/')) - fileExt <- R.string ".json" - pure (itemFileName <> fileExt) + itemFileName <- R.munch (const True) pure CollectionItem {..} instance Show CollectionItem where |