White space only
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 23 Dec 2016 10:04:02 +0000 (10:04 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 23 Dec 2016 12:34:33 +0000 (12:34 +0000)
compiler/main/TidyPgm.hs

index c4057fc..52137a4 100644 (file)
@@ -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
 
     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
 
     _bottom_hidden id_sig = case mb_bot_str of
                                   Nothing         -> False