msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

RlpcError -> IsRlpcError

Browse Source
This commit is contained in:
crumbtoo
2024-01-21 11:53:41 -07:00
parent f47f325e34
commit 257d02da87
4 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Compiler/RLPC.hs
View File

@@ -16,6 +16,7 @@ module Compiler.RLPC
, RLPCT(..)
, RLPCIO
, RLPCOptions(RLPCOptions)
, IsRlpcError(..)
, RlpcError(..)
, addFatal
, addWound
@@ -56,8 +57,7 @@ import Lens.Micro.TH
----------------------------------------------------------------------------------
newtype RLPCT m a = RLPCT {
runRLPCT :: forall e. (RlpcError e)
=> ReaderT RLPCOptions (ErrorfulT e m) a
runRLPCT :: ReaderT RLPCOptions (ErrorfulT RlpcError m) a
}
type RLPC = RLPCT Identity
@@ -72,7 +72,7 @@ evalRLPC = undefined
evalRLPCT = undefined
evalRLPCIO = undefined
liftErrorful :: (RlpcError e) => ErrorfulT e m a -> RLPCT m a
liftErrorful :: ErrorfulT e m a -> RLPCT m a
liftErrorful e = undefined
data RLPCOptions = RLPCOptions