chatwork-0.1.1.0: test/ChatWork/Test/Values/Me.hs

{-# LANGUAGE OverloadedStrings #-}

module ChatWork.Test.Values.Me
    ( me
    ) where

import           ChatWork.Types (Me (..))

me :: Me
me = Me 123
        322
        "John Smith"
        "tarochatworkid"
        101
        "Hello Company"
        "Marketing"
        "CMO"
        "http://mycompany.com"
        "Self Introduction"
        "taro@example.com"
        "XXX-XXXX-XXXX"
        "YYY-YYYY-YYYY"
        "ZZZ-ZZZZ-ZZZZ"
        "myskype_id"
        "myfacebook_id"
        "mytwitter_id"
        "https://example.com/abc.png"