Minor reformatting

This commit is contained in:
John Wiegley 2018-08-05 10:40:28 -04:00
parent 719ddc44cc
commit bef6db5beb
No known key found for this signature in database
GPG key ID: C144D8F4F19FE630

View file

@ -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) =