diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-08-10 21:55:57 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-08-10 21:55:57 -0400 |
| commit | 5b8ab566cd91cfef8af02f5b5885e14f47249c90 (patch) | |
| tree | b190a4bcd61faa01f7a6571bf3ed642b74446077 /compiler/GHC/Data/FastString.hs | |
| parent | 61cede993049cacb846b5d5edd4522c43ca0db55 (diff) | |
| download | haskell-wip/unique64.tar.gz | |
64-bit Uniqueswip/unique64
Diffstat (limited to 'compiler/GHC/Data/FastString.hs')
| -rw-r--r-- | compiler/GHC/Data/FastString.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Data/FastString.hs b/compiler/GHC/Data/FastString.hs index 98ca34c249..6ba6ac469a 100644 --- a/compiler/GHC/Data/FastString.hs +++ b/compiler/GHC/Data/FastString.hs @@ -623,8 +623,8 @@ unconsFS fs = [] -> Nothing (chr : str) -> Just (chr, mkFastString str) -uniqueOfFS :: FastString -> Int -uniqueOfFS fs = uniq fs +uniqueOfFS :: FastString -> Int64 +uniqueOfFS fs = fromIntegral (uniq fs) nilFS :: FastString nilFS = mkFastString "" |