Fix UTF8 encoding more multi byte encoding (continuation byte)

fix #35 -- issue found by Andri Möll
vincenthz · Mar 24, 2020 · f2facd0 · f2facd0
1 parent f77c602
commit f2facd0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/stack.yaml b/stack.yaml
@@ -1,3 +1,3 @@
 # ~*~ auto-generated by haskell-ci with config : acd425cd61984b281e076f791e485a5cf28891a29d476fce3b6faa7e08deaeed ~*~
-{ resolver: nightly-2019-09-29, packages: [ encoding, parse, types ], extra-deps: [], flags: {} }
+{ resolver: lts-15.5, packages: [ encoding, parse, types ], extra-deps: [], flags: {} }
 
diff --git a/types/Data/ASN1/Types/String.hs b/types/Data/ASN1/Types/String.hs
@@ -123,7 +123,7 @@ encodeUTF8 s = B.pack $ concatMap (toUTF8 . fromEnum) s
                               , toCont (e `shiftR` 6)
                               , toCont e]
             | otherwise     = error "not a valid value"
-        toCont v = fromIntegral (0xc0 .&. (v .&. 0x3f))
+        toCont v = fromIntegral (0x80 .|. (v .&. 0x3f))
 
 decodeASCII :: ByteString -> String
 decodeASCII = BC.unpack