Merge pull request #787 from ziman/reg031-sign-fix
Make reg031 char-sign-indifferent.
commitb8490418f798b60120265ccee5a3a567a6a16548
authorEdwin Brady <edwin.brady@gmail.com>
dateWed 22 Jan 2014, 02:15 (13 years ago)
parentff872b4531c9d5
test/reg031/expected+1−1
@@ -1 +1 @@
1−[10, -128, -55, -1, 10, 51, 10, 52]
1+[10, 128, 201, 255, 10, 51, 10, 52]
test/reg031/reg031.idr+5−1
@@ -1,4 +1,8 @@
11module Main
22
33main : IO ()
4−main = print . map ord . unpack $ "\x0a\x80\xC9\xFF\n3\n4"
4+main = print . map val . unpack $ "\x0a\x80\xC9\xFF\n3\n4"
5+ where
6+ -- make the values positive if the backend has signed chars
7+ val : Char -> Int
8+ val = flip mod 256 . (+256) . ord