diff options
Diffstat (limited to 'compiler/utils/FastString.hs')
| -rw-r--r-- | compiler/utils/FastString.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index 7749c3f7c3..8f3d454a1f 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -224,6 +224,9 @@ instance Data FastString where gunfold _ _ = error "gunfold" dataTypeOf _ = mkNoRepType "FastString" +instance NFData FastString where + rnf fs = seq fs () + cmpFS :: FastString -> FastString -> Ordering cmpFS f1@(FastString u1 _ _ _) f2@(FastString u2 _ _ _) = if u1 == u2 then EQ else |