diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-05-15 09:51:51 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-05-15 10:18:02 +0200 |
| commit | e199891f199795468cdcf977d5395d3c846cad72 (patch) | |
| tree | 25ea75c90079b8e9ad30dfff28f91b94fae0032b /compiler/main/HeaderInfo.hs | |
| parent | 2dd80f6913d05e0b170e4ab39d3fbf6fb6a8bf2f (diff) | |
| download | haskell-e199891f199795468cdcf977d5395d3c846cad72.tar.gz | |
Avoid trivial cases of NondecreasingIndentation
This cleanup allows the following refactoring commit to avoid adding a
few `{-# LANGUAGE NondecreasingIndentation #-}` pragmas.
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'compiler/main/HeaderInfo.hs')
| -rw-r--r-- | compiler/main/HeaderInfo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index a083f4fcd8..3e1edc3adf 100644 --- a/compiler/main/HeaderInfo.hs +++ b/compiler/main/HeaderInfo.hs @@ -185,8 +185,8 @@ lazyGetToks dflags filename handle = do -- large module names (#5981) nextbuf <- hGetStringBufferBlock handle new_size if (len nextbuf == 0) then lazyLexBuf handle state True new_size else do - newbuf <- appendStringBuffers (buffer state) nextbuf - unsafeInterleaveIO $ lazyLexBuf handle state{buffer=newbuf} False new_size + newbuf <- appendStringBuffers (buffer state) nextbuf + unsafeInterleaveIO $ lazyLexBuf handle state{buffer=newbuf} False new_size getToks :: DynFlags -> FilePath -> StringBuffer -> [Located Token] |