root / src / Ganeti / Block / Diskstats / Types.hs @ 92070017
History | View | Annotate | Download (1.7 kB)
1 | c6bca2d1 | Michele Tartara | {-# LANGUAGE TemplateHaskell #-} |
---|---|---|---|
2 | c6bca2d1 | Michele Tartara | {-| Diskstats data types |
3 | c6bca2d1 | Michele Tartara | |
4 | c6bca2d1 | Michele Tartara | This module holds the definition of the data types describing the status of the |
5 | c6bca2d1 | Michele Tartara | disks according to the information contained in @/proc/diskstats@. |
6 | c6bca2d1 | Michele Tartara | |
7 | c6bca2d1 | Michele Tartara | -} |
8 | c6bca2d1 | Michele Tartara | {- |
9 | c6bca2d1 | Michele Tartara | |
10 | c6bca2d1 | Michele Tartara | Copyright (C) 2013 Google Inc. |
11 | c6bca2d1 | Michele Tartara | |
12 | c6bca2d1 | Michele Tartara | This program is free software; you can redistribute it and/or modify |
13 | c6bca2d1 | Michele Tartara | it under the terms of the GNU General Public License as published by |
14 | c6bca2d1 | Michele Tartara | the Free Software Foundation; either version 2 of the License, or |
15 | c6bca2d1 | Michele Tartara | (at your option) any later version. |
16 | c6bca2d1 | Michele Tartara | |
17 | c6bca2d1 | Michele Tartara | This program is distributed in the hope that it will be useful, but |
18 | c6bca2d1 | Michele Tartara | WITHOUT ANY WARRANTY; without even the implied warranty of |
19 | c6bca2d1 | Michele Tartara | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
20 | c6bca2d1 | Michele Tartara | General Public License for more details. |
21 | c6bca2d1 | Michele Tartara | |
22 | c6bca2d1 | Michele Tartara | You should have received a copy of the GNU General Public License |
23 | c6bca2d1 | Michele Tartara | along with this program; if not, write to the Free Software |
24 | c6bca2d1 | Michele Tartara | Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
25 | c6bca2d1 | Michele Tartara | 02110-1301, USA. |
26 | c6bca2d1 | Michele Tartara | |
27 | c6bca2d1 | Michele Tartara | -} |
28 | c6bca2d1 | Michele Tartara | module Ganeti.Block.Diskstats.Types |
29 | c6bca2d1 | Michele Tartara | ( Diskstats(..) |
30 | c6bca2d1 | Michele Tartara | ) where |
31 | c6bca2d1 | Michele Tartara | |
32 | c6bca2d1 | Michele Tartara | import Ganeti.THH |
33 | c6bca2d1 | Michele Tartara | |
34 | c6bca2d1 | Michele Tartara | |
35 | c6bca2d1 | Michele Tartara | -- | This is the format of the report produced by each data collector. |
36 | c6bca2d1 | Michele Tartara | $(buildObject "Diskstats" "ds" |
37 | c6bca2d1 | Michele Tartara | [ simpleField "major" [t| Int |] |
38 | c6bca2d1 | Michele Tartara | , simpleField "minor" [t| Int |] |
39 | c6bca2d1 | Michele Tartara | , simpleField "name" [t| String |] |
40 | 92070017 | Michele Tartara | , simpleField "readsNum" [t| Int |] |
41 | c6bca2d1 | Michele Tartara | , simpleField "mergedReads" [t| Int |] |
42 | c6bca2d1 | Michele Tartara | , simpleField "secRead" [t| Int |] |
43 | c6bca2d1 | Michele Tartara | , simpleField "timeRead" [t| Int |] |
44 | c6bca2d1 | Michele Tartara | , simpleField "writes" [t| Int |] |
45 | c6bca2d1 | Michele Tartara | , simpleField "mergedWrites" [t| Int |] |
46 | c6bca2d1 | Michele Tartara | , simpleField "secWritten" [t| Int |] |
47 | c6bca2d1 | Michele Tartara | , simpleField "timeWrite" [t| Int |] |
48 | c6bca2d1 | Michele Tartara | , simpleField "ios" [t| Int |] |
49 | c6bca2d1 | Michele Tartara | , simpleField "timeIO" [t| Int |] |
50 | c6bca2d1 | Michele Tartara | , simpleField "wIOmillis" [t| Int |] |
51 | c6bca2d1 | Michele Tartara | ]) |