From 1af7db8185394e9fd743e9e127c62a1837773ab4 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 20 Dec 2024 20:01:00 +0100 Subject: `$fileName` -> `$id`, drop extension --- common/src/Collection.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'common/src') 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 -- cgit v1.2.3