mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
🔥 a redundant type signature.
This commit is contained in:
parent
bf7b397275
commit
abe6415536
@ -45,7 +45,6 @@ liftAnalyze :: ( term ~ TermFor m
|
||||
-> SubtermAlgebra (Base term) term (t m value)
|
||||
liftAnalyze analyze term = pack1 (analyze (second unpack1 <$> term))
|
||||
where pack1 = coerce
|
||||
unpack1 :: Coercible (t m value) (m value) => t m value -> m value
|
||||
unpack1 = coerce
|
||||
|
||||
liftEvaluate :: ( term ~ TermFor m
|
||||
|
Loading…
Reference in New Issue
Block a user