From 8015bdc11b63e46ff4685075e90bb49197076653 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 10 Nov 2023 11:14:45 +0100 Subject: @backlog issues, remove @scheduled --- app/History.hs | 1 + app/Issue/Filter.hs | 2 ++ app/Main.hs | 18 ++++++++++++++++-- app/TreeGrepper/Comment.hs | 2 ++ 4 files changed, 21 insertions(+), 2 deletions(-) diff --git a/app/History.hs b/app/History.hs index efb7015..48dbbc7 100644 --- a/app/History.hs +++ b/app/History.hs @@ -24,6 +24,7 @@ import Prelude hiding (id, lines) -- complete issue text and parse it. -- -- @topic caching +-- @backlog getHistory :: IO ([Issue], [(CommitHash, [IssueEvent])]) getHistory = do diff --git a/app/Issue/Filter.hs b/app/Issue/Filter.hs index 7501e35..e8209a7 100644 --- a/app/Issue/Filter.hs +++ b/app/Issue/Filter.hs @@ -41,6 +41,8 @@ import Options.Applicative qualified as O -- -- [1] Not in the sense that it is rejected, but in the sense that the negation -- is not parsed. It is just the literal value `!/` which returns `anissue -- list` as `GET ///` which returns `anissue show`. -- All command line arguments are exposed via query parameters. +-- +-- @backlog module Main where diff --git a/app/TreeGrepper/Comment.hs b/app/TreeGrepper/Comment.hs index c912e27..1a6aed2 100644 --- a/app/TreeGrepper/Comment.hs +++ b/app/TreeGrepper/Comment.hs @@ -64,6 +64,8 @@ treeGrepperLanguage ext = -- -- tree-grepper supported files can be listed through `tree-grepper -- --languages`. + -- + -- @backlog case ext of ".elm" -> "elm" ".hs" -> "haskell" -- cgit v1.2.3