Ticket #1548: patch-sprec

File patch-sprec, 488 bytes (added by l.mai@…, 8 years ago)

patch - fix bug :2: string precision

Line 
1--- Printf-vprec.hs     2007-07-18 19:14:17.000000000 +0200
2+++ Printf-sprec.hs     2007-07-18 19:17:57.000000000 +0200
3@@ -229,7 +229,7 @@
4             'f' -> adjust' (dfmt' c prec u)
5             'g' -> adjust' (dfmt' c prec u)
6             'G' -> adjust' (dfmt' c prec u)
7-            's' -> adjust  ("", tostr u)
8+            's' -> adjust  ("", (if prec < 0 then id else take prec) $ tostr u)
9             _   -> perror ("bad formatting char " ++ [c])
10              ) ++ uprintf cs'' us''
11