From 0ebdeb4b99e3db2868b55f5d71117a9489e67d07 Mon Sep 17 00:00:00 2001
From: Julien Moutinho <julm@sourcephile.fr>
Date: Thu, 5 Mar 2020 03:07:34 +0100
Subject: [PATCH] parser: add instance Functor OnHandle

---
 Symantic/CLI/Parser.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Symantic/CLI/Parser.hs b/Symantic/CLI/Parser.hs
index 5538404..a92bdaf 100644
--- a/Symantic/CLI/Parser.hs
+++ b/Symantic/CLI/Parser.hs
@@ -293,6 +293,8 @@ instance Outputable (Doc.Plain TLB.Builder) where
 
 -- ** Type 'OnHandle'
 data OnHandle a = OnHandle IO.Handle a
+instance Functor OnHandle where
+	fmap f (OnHandle h a) = OnHandle h (f a)
 instance IOType a => IOType (OnHandle a) where
 	ioType = ioType @a
 instance Outputable (OnHandle ()) where
-- 
2.47.2