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 | ]) |