diff options
| -rw-r--r-- | lib/Shupai.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Shupai.hs b/lib/Shupai.hs index b92b950..cca8f30 100644 --- a/lib/Shupai.hs +++ b/lib/Shupai.hs @@ -54,7 +54,7 @@ fillSpace [x] = [x] fillSpace ls = go ls $ length (head ls) where go :: [String] -> Int -> [String] go [] _ = [] - go [x] len = [x ++ replicate (len - length x) 'ㅤ'] + go [x] len = [x ++ replicate (len - length x) '・'] go (x:xs) len = x : go xs len @@ -76,7 +76,7 @@ fullWidthMap = Map.fromList , ('+', '＋') , (',', '，') , ('-', '－') - , ('.', '．') + , ('.', '。') , ('/', '／') , ('0', '０') , ('1', '１') @@ -157,5 +157,5 @@ fullWidthMap = Map.fromList , ('|', '｜') , ('}', '｝') , ('~', '～') - , (' ', 'ㅤ') + , (' ', '・') ] |