mirror of
https://github.com/polysemy-research/polysemy.git
synced 2024-12-12 02:13:15 +03:00
loopbreak nondet
This commit is contained in:
parent
df7c9be46d
commit
9dd70fa096
@ -1,4 +1,5 @@
|
||||
{-# LANGUAGE DeriveAnyClass #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
|
||||
module Polysemy.NonDet
|
||||
( NonDet (..)
|
||||
@ -47,12 +48,14 @@ instance Monad (NonDetC m) where
|
||||
{-# INLINE (>>=) #-}
|
||||
|
||||
|
||||
runNonDet :: Alternative f => Semantic (NonDet ': r) a -> Semantic r (f a)
|
||||
runNonDet (Semantic m) = Semantic $ \k -> runNonDetC $ m $ \u ->
|
||||
case decomp u of
|
||||
Left x -> NonDetC $ \cons nil -> do
|
||||
z <- k $ weave [()] (fmap concat . traverse runNonDet) x
|
||||
foldr cons nil z
|
||||
Right Empty -> empty
|
||||
Right (Choose ek) -> pure (ek True) <|> pure (ek False)
|
||||
inlineRecursiveCalls [d|
|
||||
runNonDet :: Alternative f => Semantic (NonDet ': r) a -> Semantic r (f a)
|
||||
runNonDet (Semantic m) = Semantic $ \k -> runNonDetC $ m $ \u ->
|
||||
case decomp u of
|
||||
Left x -> NonDetC $ \cons nil -> do
|
||||
z <- k $ weave [()] (fmap concat . traverse runNonDet) x
|
||||
foldr cons nil z
|
||||
Right Empty -> empty
|
||||
Right (Choose ek) -> pure (ek True) <|> pure (ek False)
|
||||
|]
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user