diff options
| author | Eric Lindblad <lindblad@gmx.us> | 2022-09-13 10:31:23 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-09-14 03:13:56 -0400 |
| commit | 646d15ad8f1119f339998ee8dd79ea96cfd1d165 (patch) | |
| tree | 84bc30035fb31ea0f418384b2399400d53539cbf /compiler/GHC/Unit/State.hs | |
| parent | dc6af9ed87e619d754bfc385df931c81cba6d93a (diff) | |
| download | haskell-646d15ad8f1119f339998ee8dd79ea96cfd1d165.tar.gz | |
Fix typos
This fixes various typos and spelling mistakes
in the compiler.
Fixes #21891
Diffstat (limited to 'compiler/GHC/Unit/State.hs')
| -rw-r--r-- | compiler/GHC/Unit/State.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs index d7edd1268c..17d39d1590 100644 --- a/compiler/GHC/Unit/State.hs +++ b/compiler/GHC/Unit/State.hs @@ -538,13 +538,13 @@ lookupUnitId' :: UnitInfoMap -> UnitId -> Maybe UnitInfo lookupUnitId' db uid = Map.lookup uid db --- | Looks up the given unit in the unit state, panicing if it is not found +-- | Looks up the given unit in the unit state, panicking if it is not found unsafeLookupUnit :: HasDebugCallStack => UnitState -> Unit -> UnitInfo unsafeLookupUnit state u = case lookupUnit state u of Just info -> info Nothing -> pprPanic "unsafeLookupUnit" (ppr u) --- | Looks up the given unit id in the unit state, panicing if it is not found +-- | Looks up the given unit id in the unit state, panicking if it is not found unsafeLookupUnitId :: HasDebugCallStack => UnitState -> UnitId -> UnitInfo unsafeLookupUnitId state uid = case lookupUnitId state uid of Just info -> info |