use dot for filling spacesHEADmaster

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
   , ('|', '｜')
   , ('}', '｝')
   , ('~', '～')
-  , (' ', 'ㅤ')
+  , (' ', '・')
   ]