Use TH for Process

Factor it out.

1 files changed, 23 insertions, 0 deletions

diff --git a/src/Application/Types/Process.hs b/src/Application/Types/Process.hs
new file mode 100644
index 0000000..2156241
--- /dev/null
+++ b/src/Application/Types/Process.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module Application.Types.Process
+  ( Process(..)
+  ) where
+
+import Prelude hiding (id)
+
+import Data.Aeson.TH (defaultOptions, deriveToJSON)
+import Data.Text.Lazy (Text)
+
+data Process = Process
+  { id :: Int
+  , user :: Text
+  , host :: Text
+  , db :: Maybe Text
+  , command :: Text
+  , time :: Int
+  , state :: Maybe Text
+  , info :: Text
+  }
+
+$(deriveToJSON defaultOptions ''Process)