rlp2core base

2024-02-02 15:10:04 -07:00
parent c9d1ca51f5
commit 38d1044f5d
3 changed files with 59 additions and 16 deletions
--- a/src/Rlp/Parse/Types.hs
+++ b/src/Rlp/Parse/Types.hs
@@ -31,6 +31,7 @@ import Core.Syntax                  (Name)
 import Control.Monad
 import Control.Monad.State.Strict
 import Control.Monad.Errorful
+import Control.Comonad              (extract)
 import Compiler.RlpcError
 import Data.Text                    (Text)
 import Data.Maybe
@@ -73,6 +74,12 @@ type instance XOAppE RlpcPs = ()

 type PsName = Text

+instance MapXRec RlpcPs where
+    mapXRec = fmap
+
+instance UnXRec RlpcPs where
+    unXRec = extract
+
 --------------------------------------------------------------------------------

 spanFromPos :: Position -> Int -> SrcSpan