diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-03-04 22:48:50 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-03-05 00:25:16 +0100 |
| commit | 91a6a9cb94172a4c2235e6b2f9001df982bed4cc (patch) | |
| tree | 6f4fa2e8a27051d6edd155fb0b563495d8970b5b /compiler/utils/FastString.hs | |
| parent | aea1e5dbfd841edf546e789df496e77389d26f65 (diff) | |
| download | haskell-91a6a9cb94172a4c2235e6b2f9001df982bed4cc.tar.gz | |
Add Monoid instance for FastString
Diffstat (limited to 'compiler/utils/FastString.hs')
| -rw-r--r-- | compiler/utils/FastString.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index ea95d84763..27bb510299 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -192,6 +192,10 @@ instance Ord FastString where | otherwise = y compare a b = cmpFS a b +instance Monoid FastString where + mempty = nilFS + mappend = appendFS + instance Show FastString where show fs = show (unpackFS fs) |