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/utils | |
| 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/utils')
| -rw-r--r-- | compiler/utils/Binary.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 332bfc8e0c..e9b71236f2 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -707,14 +707,13 @@ getBS bh = do l <- get bh fp <- mallocForeignPtrBytes l withForeignPtr fp $ \ptr -> do - let - go n | n == l = return $ BS.fromForeignPtr fp 0 l + let go n | n == l = return $ BS.fromForeignPtr fp 0 l | otherwise = do b <- getByte bh pokeElemOff ptr n b go (n+1) - -- - go 0 + -- + go 0 instance Binary ByteString where put_ bh f = putBS bh f |