diff options
Diffstat (limited to 'compiler/GHC/StgToCmm/TagCheck.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/TagCheck.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/StgToCmm/TagCheck.hs b/compiler/GHC/StgToCmm/TagCheck.hs index afa3fef426..c83b4de5d4 100644 --- a/compiler/GHC/StgToCmm/TagCheck.hs +++ b/compiler/GHC/StgToCmm/TagCheck.hs @@ -73,7 +73,7 @@ whenCheckTags act = do when check_tags act -- | Call barf if we failed to predict a tag correctly. --- This is immensly useful when debugging issues in tag inference +-- This is immensely useful when debugging issues in tag inference -- as it will result in a program abort when we encounter an invalid -- call/heap object, rather than leaving it be and segfaulting arbitrary -- or producing invalid results. @@ -174,6 +174,6 @@ checkArgStatic msg MarkedStrict arg = whenCheckTags $ info <- getCgIdInfo v if taggedCgInfo info then return () - else pprPanic "Arg not tagged as expectd" (ppr msg <+> ppr arg) + else pprPanic "Arg not tagged as expected" (ppr msg <+> ppr arg) |