Statistics
| Branch: | Tag: | Revision:

root / src / Ganeti / Storage / Diskstats / Types.hs @ fa7f3e26

History | View | Annotate | Download (1.7 kB)

1
{-# LANGUAGE TemplateHaskell #-}
2
{-| Diskstats data types
3

    
4
This module holds the definition of the data types describing the status of the
5
disks according to the information contained in @/proc/diskstats@.
6

    
7
-}
8
{-
9

    
10
Copyright (C) 2013 Google Inc.
11

    
12
This program is free software; you can redistribute it and/or modify
13
it under the terms of the GNU General Public License as published by
14
the Free Software Foundation; either version 2 of the License, or
15
(at your option) any later version.
16

    
17
This program is distributed in the hope that it will be useful, but
18
WITHOUT ANY WARRANTY; without even the implied warranty of
19
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
20
General Public License for more details.
21

    
22
You should have received a copy of the GNU General Public License
23
along with this program; if not, write to the Free Software
24
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
25
02110-1301, USA.
26

    
27
-}
28
module Ganeti.Storage.Diskstats.Types
29
  ( Diskstats(..)
30
  ) where
31

    
32
import Ganeti.THH
33

    
34

    
35
-- | This is the format of the report produced by each data collector.
36
$(buildObject "Diskstats" "ds"
37
  [ simpleField "major"        [t| Int |]
38
  , simpleField "minor"        [t| Int |]
39
  , simpleField "name"         [t| String |]
40
  , simpleField "readsNum"        [t| Int |]
41
  , simpleField "mergedReads"  [t| Int |]
42
  , simpleField "secRead"      [t| Int |]
43
  , simpleField "timeRead"     [t| Int |]
44
  , simpleField "writes"       [t| Int |]
45
  , simpleField "mergedWrites" [t| Int |]
46
  , simpleField "secWritten"   [t| Int |]
47
  , simpleField "timeWrite"    [t| Int |]
48
  , simpleField "ios"          [t| Int |]
49
  , simpleField "timeIO"       [t| Int |]
50
  , simpleField "wIOmillis"    [t| Int |]
51
  ])