Minor reformatting
This commit is contained in:
parent
719ddc44cc
commit
bef6db5beb
|
@ -215,9 +215,10 @@ evalBinds recursive binds = do
|
|||
scope <- currentScopes @_ @t
|
||||
buildResult scope . concat =<< mapM (go scope) (moveOverridesLast binds)
|
||||
where
|
||||
moveOverridesLast = (uncurry (++)) .
|
||||
partition (\case NamedVar (StaticKey "__overrides" :| []) _ _pos -> False
|
||||
_ -> True)
|
||||
moveOverridesLast = uncurry (++) .
|
||||
partition (\case
|
||||
NamedVar (StaticKey "__overrides" :| []) _ _pos -> False
|
||||
_ -> True)
|
||||
|
||||
go :: Scopes m t -> Binding (m v) -> m [([Text], SourcePos, m v)]
|
||||
go _ (NamedVar (StaticKey "__overrides" :| []) finalValue pos) =
|
||||
|
|
Loading…
Reference in a new issue