mirror of
https://github.com/github/semantic.git
synced 2024-12-25 07:55:12 +03:00
Not using these vars
This commit is contained in:
parent
071d91f494
commit
dea20b884f
@ -35,7 +35,7 @@ step (Defer el cs) = case (el, cs) of
|
||||
(TOpen, TIf:_) -> pure $ emit "if" <> space
|
||||
(TThen, TIf:_) -> pure $ emit ":"
|
||||
(TElse, TIf:xs) -> pure $ endContext (depth xs) <> emit "else:"
|
||||
(TClose, TIf:xs) -> pure mempty
|
||||
(TClose, TIf:_) -> pure mempty
|
||||
|
||||
-- Booleans
|
||||
(Truth True, _) -> pure $ emit "True"
|
||||
@ -58,7 +58,7 @@ step (Defer el cs) = case (el, cs) of
|
||||
(TClose, [Imperative]) -> pure $ layout HardWrap -- but end the program with a newline.
|
||||
(TOpen, Imperative:xs) -> pure $ layout HardWrap <> indent (depth xs)
|
||||
(TSep, Imperative:xs) -> pure $ layout HardWrap <> indent (depth xs)
|
||||
(TClose, Imperative:xs) -> pure mempty -- $ indent (pred (depth xs))
|
||||
(TClose, Imperative:_) -> pure mempty
|
||||
|
||||
_ -> throwError (NoTranslation el cs)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user