diff options
Diffstat (limited to 'compiler/hsSyn/Convert.hs')
| -rw-r--r-- | compiler/hsSyn/Convert.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/Convert.hs b/compiler/hsSyn/Convert.hs index 28742d46c0..6c30e2dab3 100644 --- a/compiler/hsSyn/Convert.hs +++ b/compiler/hsSyn/Convert.hs @@ -890,7 +890,7 @@ cvtLit (StringPrimL s) = do { let { s' = BS.pack s } cvtLit _ = panic "Convert.cvtLit: Unexpected literal" -- cvtLit should not be called on IntegerL, RationalL -- That precondition is established right here in - -- Convert.lhs, hence panic + -- Convert.hs, hence panic w8ToString :: [Word8] -> String w8ToString ws = map (\w -> chr (fromIntegral w)) ws |