src/Application/Types/Process.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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)