mirror of
https://github.com/github/semantic.git
synced 2025-01-06 23:46:21 +03:00
clean up formatting
This commit is contained in:
parent
ca687a66a7
commit
53924d1a15
@ -87,10 +87,9 @@ instance Carrier sig m
|
|||||||
instance Carrier sig m
|
instance Carrier sig m
|
||||||
=> Carrier (Abstract.String Abstract :+: sig) (StringC Abstract m) where
|
=> Carrier (Abstract.String Abstract :+: sig) (StringC Abstract m) where
|
||||||
ret = StringC . ret
|
ret = StringC . ret
|
||||||
eff = StringC . handleSum
|
eff = StringC . handleSum (eff . handleCoercible) (\case
|
||||||
(eff . handleCoercible) (\case
|
Abstract.String _ k -> runStringC (k Abstract)
|
||||||
Abstract.String _ k -> runStringC (k Abstract)
|
AsString _ k -> runStringC (k ""))
|
||||||
AsString _ k -> runStringC (k ""))
|
|
||||||
|
|
||||||
instance Ord address => ValueRoots address Abstract where
|
instance Ord address => ValueRoots address Abstract where
|
||||||
valueRoots = mempty
|
valueRoots = mempty
|
||||||
|
Loading…
Reference in New Issue
Block a user