From da3ab0a0092f9433c0b6a88666881355c240914b Mon Sep 17 00:00:00 2001 From: Mistivia Date: Tue, 27 May 2025 17:05:01 +0800 Subject: use dot for filling spaces --- lib/Shupai.hs | 6 +++--- 1 file 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 , ('|', '｜') , ('}', '｝') , ('~', '～') - , (' ', 'ㅤ') + , (' ', '・') ] -- cgit v1.0