local

ejconlon · Jan 13, 2024 · 12c16dd · 12c16dd
1 parent 27441a5
commit 12c16dd
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/minipat/src/Minipat/Proc.hs b/minipat/src/Minipat/Proc.hs
@@ -5,7 +5,6 @@ module Minipat.Proc
   , askPM
   , asksPM
   , pushPM
-  , localPM
   , throwPM
   , bottomUpPM
   )
@@ -60,8 +59,8 @@ asksPM f = ProcM (asks (f . procEnvKey))
 pushPM :: c -> ProcM e b c a -> ProcM e b c a
 pushPM c (ProcM m) = ProcM (local (pushProcEnv c) m)
 
-localPM :: (c -> c) -> ProcM e b c a -> ProcM e b c a
-localPM f m = askPM >>= \c -> pushPM (f c) m
+-- localPM :: (c -> c) -> ProcM e b c a -> ProcM e b c a
+-- localPM f m = askPM >>= \c -> pushPM (f c) m
 
 throwPM :: e -> ProcM e b c a
 throwPM e = ProcM (asks procEnvPath) >>= \bs -> ProcM (throwError (ProcErr bs e))