From ef5f4581f31ec35a4b2afefbafac56f175566879 Mon Sep 17 00:00:00 2001 From: Fabian Kirchner Date: Sat, 14 Oct 2023 12:11:38 +0200 Subject: add basic caching of Issue's --- app/TreeGrepper/Match.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'app/TreeGrepper/Match.hs') diff --git a/app/TreeGrepper/Match.hs b/app/TreeGrepper/Match.hs index 7b8cde8..1072fbd 100644 --- a/app/TreeGrepper/Match.hs +++ b/app/TreeGrepper/Match.hs @@ -1,4 +1,5 @@ {-# LANGUAGE OverloadedRecordDot #-} +{-# LANGUAGE DeriveAnyClass #-} module TreeGrepper.Match ( Match (..), @@ -16,6 +17,7 @@ import Data.Ord (comparing) import Data.Text (Text) import Data.Text qualified as T import GHC.Generics (Generic) +import Data.Binary (Binary) data Match = Match { kind :: String, @@ -32,7 +34,7 @@ data Position = Position { row :: Int, column :: Int } - deriving (Eq, Show, Generic) + deriving (Eq, Show, Generic, Binary) instance Ord Position where compare = compare `on` (\p -> (p.row, p.column)) -- cgit v1.2.3