diff options
| -rw-r--r-- | compiler/utils/FastString.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index 40c3882b87..407c185ee8 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -513,7 +513,7 @@ appendFS fs1 fs2 = mkFastStringByteString (fastStringToByteString fs2) concatFS :: [FastString] -> FastString -concatFS ls = mkFastString (Prelude.concat (map unpackFS ls)) -- ToDo: do better +concatFS = mkFastStringByteString . BS.concat . map fs_bs headFS :: FastString -> Char headFS (FastString _ 0 _ _) = panic "headFS: Empty FastString" |