From 4adb99e683b81df9d572c05db06e6fb688fb007a Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Wed, 4 Oct 2023 10:01:50 +0200 Subject: bring issue extraction on-par with shell script --- app/TreeGrepper/Result.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 app/TreeGrepper/Result.hs (limited to 'app/TreeGrepper/Result.hs') diff --git a/app/TreeGrepper/Result.hs b/app/TreeGrepper/Result.hs new file mode 100644 index 0000000..856871a --- /dev/null +++ b/app/TreeGrepper/Result.hs @@ -0,0 +1,15 @@ +module TreeGrepper.Result (Result (..)) where + +import Data.Aeson (FromJSON) +import GHC.Generics (Generic) +import TreeGrepper.FileType (FileType) +import TreeGrepper.Match (Match) + +data Result = Result + { file :: String, + file_type :: FileType, + matches :: [Match] + } + deriving (Show, Generic) + +instance FromJSON Result -- cgit v1.2.3