hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Fixup for HEAD~2

pull/1/head
Lennart Spitzner 2016-08-04 19:50:31 +02:00
parent 87e81189c9
commit 9949ed7225
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Haskell/Brittany/LayoutBasics.hs
View File

@ -539,7 +539,7 @@ layoutBaseYPushCur = do
Nothing -> case (_lstate_curYOrAddNewline state, _lstate_addSepSpace state) of Nothing -> case (_lstate_curYOrAddNewline state, _lstate_addSepSpace state) of
(Left i, Just j) -> layoutBaseYPushInternal (i+j) (Left i, Just j) -> layoutBaseYPushInternal (i+j)
(Left i, Nothing) -> layoutBaseYPushInternal i (Left i, Nothing) -> layoutBaseYPushInternal i
(Right{}, _) -> return () (Right{}, _) -> layoutBaseYPushInternal $ lstate_baseY state
Just cCol -> layoutBaseYPushInternal cCol Just cCol -> layoutBaseYPushInternal cCol
layoutBaseYPop layoutBaseYPop
@ -565,7 +565,7 @@ layoutIndentLevelPop
:: (MonadMultiState LayoutState m, MonadMultiWriter (Seq String) m) => m () :: (MonadMultiState LayoutState m, MonadMultiWriter (Seq String) m) => m ()
layoutIndentLevelPop = do layoutIndentLevelPop = do
traceLocal ("layoutIndentLevelPop") traceLocal ("layoutIndentLevelPop")
layoutBaseYPop layoutBaseYPopInternal
layoutIndentLevelPopInternal layoutIndentLevelPopInternal
-- why are comment indentations relative to the previous indentation on -- why are comment indentations relative to the previous indentation on
-- the first node of an additional indentation, and relative to the outer -- the first node of an additional indentation, and relative to the outer