diff options
Diffstat (limited to 'ghc/compiler/utils/StringBuffer.lhs')
| -rw-r--r-- | ghc/compiler/utils/StringBuffer.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs index d5ea832a82..d89b9386c2 100644 --- a/ghc/compiler/utils/StringBuffer.lhs +++ b/ghc/compiler/utils/StringBuffer.lhs @@ -523,7 +523,7 @@ lexemeToByteArray (StringBuffer fo _ start_pos# current#) = lexemeToFastString :: StringBuffer -> FastString lexemeToFastString (StringBuffer fo l# start_pos# current#) = if start_pos# ==# current# then - mkFastCharString2 (A# fo) (I# 0#) + mkFastString "" else mkFastSubString (A# fo) (I# start_pos#) (I# (current# -# start_pos#)) |