diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-12-23 10:04:02 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-12-23 12:34:33 +0000 |
| commit | ea8f91d3915fc41f0eeabef2c773e8250b6bccb0 (patch) | |
| tree | 6a9a657d2920839b902f2a25294a91e50a7bcde7 | |
| parent | f06b71ae2e76ec81a618bc8bb0409b3fc6a7ebbe (diff) | |
| download | haskell-ea8f91d3915fc41f0eeabef2c773e8250b6bccb0.tar.gz | |
White space only
| -rw-r--r-- | compiler/main/TidyPgm.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/main/TidyPgm.hs b/compiler/main/TidyPgm.hs index c4057fcd16..52137a4cd7 100644 --- a/compiler/main/TidyPgm.hs +++ b/compiler/main/TidyPgm.hs @@ -1255,10 +1255,10 @@ tidyTopIdInfo dflags rhs_tidy_env name orig_rhs tidy_rhs idinfo show_unfold caf_ sig = strictnessInfo idinfo final_sig | not $ isTopSig sig - = WARN( _bottom_hidden sig , ppr name ) sig - -- try a cheap-and-cheerful bottom analyser - | Just (_, nsig) <- mb_bot_str = nsig - | otherwise = sig + = WARN( _bottom_hidden sig , ppr name ) sig + -- try a cheap-and-cheerful bottom analyser + | Just (_, nsig) <- mb_bot_str = nsig + | otherwise = sig _bottom_hidden id_sig = case mb_bot_str of Nothing -> False |