Commit 5fbf3aa6 authored by Steffen Michels's avatar Steffen Michels

added missing strictness annotations

parent 03ce005c
Pipeline #8080 passed with stage
in 1 minute and 45 seconds
......@@ -10,12 +10,12 @@ import Text.Unicode
instance fromUnicode UTF8
where
fromUnicode :: UString -> UTF8
fromUnicode :: !UString -> UTF8
fromUnicode ustr = UTF8 (encodeString ustr)
instance toUnicode UTF8
where
toUnicode :: UTF8 -> UString
toUnicode :: !UTF8 -> UString
toUnicode (UTF8 str) = decodeString str
instance fromString UTF8
......@@ -102,4 +102,4 @@ decode` [c:cs]
\ No newline at end of file
Markdown is supported
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