chore: resolve binary Node instance

1 files changed, 1 insertions, 8 deletions

diff --git a/app/Issue.hs b/app/Issue.hs
index 4c5cc97..124b0d7 100644
--- a/app/Issue.hs
+++ b/app/Issue.hs
@@ -10,6 +10,7 @@ module Issue
 where
 
 import CMark qualified as D
+import CMark.Extra ()
 import Comment qualified as G
 import Data.Binary (Binary (..))
 import Data.List.NonEmpty (NonEmpty)
@@ -21,7 +22,6 @@ import GHC.Records (HasField (..))
 import Git (Author (..), Commit (..))
 import Issue.Provenance (Provenance (..))
 import Issue.Tag (Tag (..))
-import Render qualified as P
 import Prelude hiding (id)
 
 data Issue = Issue
@@ -40,13 +40,6 @@ data Issue = Issue
   }
   deriving (Show, Binary, Generic, Eq)
 
--- TODO Resolve Binary D.Node instance
---
--- @related reduce-cached-data-size
-instance Binary D.Node where
-  put = put . T.pack . show . P.render
-  get = D.commonmarkToNode [] <$> get
-
 id :: Issue -> T.Text
 id issue = toSpinalCase issue.title
   where