{-# LANGUAGE Strict #-}
{-# LANGUAGE StrictData #-}
module Business.OchintinDaicho.Person
(
ppr
, markdown
) where
import Business.OchintinDaicho (Person(..))
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as T
ppr :: Person -> IO ()
ppr Person {..} = do
T.putStrLn $ "氏名: " <> name
T.putStrLn $ "生年月日: " <> birthday
T.putStrLn $ "性別: " <> sex
T.putStrLn $ "住所: " <> address
T.putStrLn $ "業務の種類: " <> job
T.putStrLn $ "退職または死亡年月日: " <> left
T.putStrLn $ "退職または死亡の理由: " <> reason
T.putStrLn $ "履歴: " <> history
markdown :: Person -> Text
markdown Person {..} =
T.unlines
[ "## 氏名: " <> name
, ""
, "* 生年月日: " <> birthday
, "* 性別: " <> sex
, "* 住所: " <> address
, "* 業務の種類: " <> job
, "* 退職または死亡年月日: " <> left
, "* 退職または死亡の理由: " <> reason
, "* 履歴: " <> history
]