From b289dee25ad8ce4c2622fadb2f4c31fb90914b39 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 29 Jan 2021 02:37:14 -0500 Subject: Lint 'return' into 'pure', replace bind operator --- Hero/Keep.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Hero/Keep.hs') diff --git a/Hero/Keep.hs b/Hero/Keep.hs index 744313b..10ef732 100644 --- a/Hero/Keep.hs +++ b/Hero/Keep.hs @@ -66,7 +66,7 @@ newComic :: Comic -> Update HeroKeep Comic newComic c = do keep <- get put <| keep {_comics = IxSet.insert c (_comics keep)} - return c + pure c getComics :: Int -> Acid.Query HeroKeep [Comic] getComics n = ask /> _comics /> IxSet.toList /> take n -- cgit v1.2.3