From 6c170513a69bd4c49b006d0672637a48eb449884 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 26 Jan 2025 10:17:33 +0100 Subject: tea-cleaner: Add command line parser --- tea-cleaner/TeaCleaner/Types.hs | 53 ----------------------------------------- 1 file changed, 53 deletions(-) delete mode 100644 tea-cleaner/TeaCleaner/Types.hs (limited to 'tea-cleaner/TeaCleaner/Types.hs') diff --git a/tea-cleaner/TeaCleaner/Types.hs b/tea-cleaner/TeaCleaner/Types.hs deleted file mode 100644 index 786dedb..0000000 --- a/tea-cleaner/TeaCleaner/Types.hs +++ /dev/null @@ -1,53 +0,0 @@ -module TeaCleaner.Types - ( Activity(..) - , User(..) - ) where - -import TeaCleaner.Options (jsonOptions) -import Data.Int (Int64) -import Data.Text (Text) -import qualified Data.Aeson.TH as Aeson -import Data.Time (ZonedTime(..)) - -data User = User - { id :: Int64 - , login :: Text - , loginName :: Text - , fullName :: Text - , email :: Text - , avatarUrl :: Text - , language :: Text - , isAdmin :: Bool - , lastLogin :: ZonedTime - , created :: ZonedTime - , restricted :: Bool - , active :: Bool - , prohibitLogin :: Bool - , location :: Text - , website :: Text - , description :: Text - , visibility :: Text - , followersCount :: Int - , followingCount :: Int - , starredReposCount :: Int - , username :: Text - } deriving (Show) - -$(Aeson.deriveJSON jsonOptions ''User) - -data Activity = Activity - { actUserId :: Int64 - -- , comment Comment - , commentId :: Int64 - , content :: Text - , created :: ZonedTime - , id :: Int64 - , isPrivate :: Bool - , opType :: Text - , refName :: Text - -- repo Repository{...} - , repoId :: Int64 - , userId :: Int64 - } deriving (Show) - -$(Aeson.deriveJSON jsonOptions ''Activity) -- cgit v1.2.3