1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00

Not using these vars

This commit is contained in:
Timothy Clem 2018-08-28 10:38:51 -07:00
parent 071d91f494
commit dea20b884f

View File

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