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.hs5
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