mirror of
https://github.com/github/semantic.git
synced 2024-12-24 15:35:14 +03:00
Use ConfigurationFor to tidy up Tracing.
This commit is contained in:
parent
2467e5f41c
commit
1c00a35d3c
@ -28,7 +28,7 @@ evaluateTrace :: forall trace value term
|
||||
, Ord term
|
||||
, Ord value
|
||||
, Recursive term
|
||||
, Reducer (Configuration (LocationFor value) term value) trace
|
||||
, Reducer (ConfigurationFor term value) trace
|
||||
, MonadAddressable (LocationFor value) value (TracingAnalysis trace term value (TracingEffects trace term value))
|
||||
, MonadValue term value (TracingAnalysis trace term value (TracingEffects trace term value))
|
||||
, Semigroup (Cell (LocationFor value) value)
|
||||
@ -52,7 +52,7 @@ instance ( Corecursive term
|
||||
, MonadAddressable (LocationFor value) value (TracingAnalysis trace term value effects)
|
||||
, MonadValue term value (TracingAnalysis trace term value effects)
|
||||
, Recursive term
|
||||
, Reducer (Configuration (LocationFor value) term value) trace
|
||||
, Reducer (ConfigurationFor term value) trace
|
||||
, Semigroup (Cell (LocationFor value) value)
|
||||
)
|
||||
=> MonadAnalysis term value (TracingAnalysis trace term value effects) where
|
||||
|
Loading…
Reference in New Issue
Block a user