diff options
| author | Austin Seipp <aseipp@pobox.com> | 2013-06-18 18:45:31 -0500 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2013-06-18 21:26:21 -0500 |
| commit | d8ee2b06f3a47ed08239e4f52cec8aa8e49b6ef6 (patch) | |
| tree | 57c80577f2c66e4f6853a4525a7e0043151ebc71 /ghc/InteractiveUI.hs | |
| parent | 232737a0260a04c6c274a4a619589aa078145416 (diff) | |
| download | haskell-d8ee2b06f3a47ed08239e4f52cec8aa8e49b6ef6.tar.gz | |
Fix many ASSERT uses under Clang.
Clang doesn't like whitespace between macro and arguments.
Signed-off-by: Austin Seipp <aseipp@pobox.com>
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index a30410b6a8..7aaa1f1571 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -2466,7 +2466,7 @@ enclosingTickSpan _ (UnhelpfulSpan _) = panic "enclosingTickSpan UnhelpfulSpan" enclosingTickSpan md (RealSrcSpan src) = do ticks <- getTickArray md let line = srcSpanStartLine src - ASSERT (inRange (bounds ticks) line) do + ASSERT(inRange (bounds ticks) line) do let toRealSrcSpan (UnhelpfulSpan _) = panic "enclosingTickSpan UnhelpfulSpan" toRealSrcSpan (RealSrcSpan s) = s enclosing_spans = [ pan | (_,pan) <- ticks ! line |