ochintin-daicho 0.3.2.0 → 0.3.4.1

raw patch · 2 files changed

+54/−1 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ochintin-daicho.cabal +2/−1
• src/Business/OchintinDaicho/Person.hs +52/−0

@@ -1,5 +1,5 @@ name:                ochintin-daicho-version:             0.3.2.0+version:             0.3.4.1 synopsis:            A module to manage payroll books for Japanese companies. description:     A module to manage payroll books for Japanese companies. This enable to export data to tax withholding book, etc...@@ -17,6 +17,7 @@ library   hs-source-dirs:      src   exposed-modules:     Business.OchintinDaicho+                     , Business.OchintinDaicho.Person   build-depends:       base >= 4.9 && < 5                      , bookkeeping >= 0.4.0.1 && < 0.5                      , mono-traversable >= 1.0.0.1 && < 1.1

@@ -0,0 +1,52 @@+{-# LANGUAGE Strict #-}+{-# LANGUAGE StrictData #-}++{- |+Module      :  Business.OchintinDaicho.Person++Copyright   :  Kadzuya Okamoto 2017+License     :  MIT++Stability   :  experimental+Portability :  unknown++This module exports core functions and types for payroll books.+-}+module Business.OchintinDaicho.Person+  (+  -- * Pretty printers+    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+    ]+