Skip to content
Snippets Groups Projects
Commit b8ce2ae5 authored by sof's avatar sof
Browse files

[project @ 1998-06-18 15:33:28 by sof] 

fixed dropPS typo
parent db4486e5
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/lib/misc/PackedString.lhs
+ 1
− 1
View file @ b8ce2ae5
......@@ -714,7 +714,7 @@ takePS (I# n) ps
dropPS :: Int -> PackedString -> PackedString
dropPS (I# n) ps
| n ==# len = ps
| n ==# len = nilPS
| otherwise = substrPS# ps n (lengthPS# ps -# 1#)
where
len = lengthPS# ps
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment