-- |
-- Module     : Simulation.Aivika.GPSS.Trans.Results.Locale
-- Copyright  : Copyright (c) 2017, David Sorokin <david.sorokin@gmail.com>
-- License    : BSD3
-- Maintainer : David Sorokin <david.sorokin@gmail.com>
-- Stability  : experimental
-- Tested with: GHC 8.0.2
--
-- The module defines locales for the simulation results.
--
module Simulation.Aivika.Trans.GPSS.Results.Locale where

import qualified Data.Map as M

import Simulation.Aivika.Trans

import qualified Simulation.Aivika.Trans.GPSS.Queue as Q
import Simulation.Aivika.Trans.GPSS.Facility
import Simulation.Aivika.Trans.GPSS.Storage

-- | The queue identifier.
queueId :: ResultId
queueId :: ResultId
queueId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"очередь"),
           (ResultLocale
englishResultLocale, ResultLocale
"the queue")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"очередь"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue")]

-- | Property 'Q.queueNull'.
queueNullId :: ResultId
queueNullId :: ResultId
queueNullId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"очередь пуста?"),
           (ResultLocale
englishResultLocale, ResultLocale
"is the queue empty?")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"очередь пуста?"),
           (ResultLocale
englishResultLocale, ResultLocale
"empty queue?")]

-- | Property 'Q.queueContent'.
queueContentId :: ResultId
queueContentId :: ResultId
queueContentId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"текущее содержимое очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current queue content")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"содержимое очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue content")]

-- | Property 'Q.queueContentStats'.
queueContentStatsId :: ResultId
queueContentStatsId :: ResultId
queueContentStatsId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"статистика по содержимому очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"the queue content statistics")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"стат. по содержимому очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue content stats")]

-- | Property 'Q.enqueueCount'.
enqueueCountId :: ResultId
enqueueCountId :: ResultId
enqueueCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"количество добавленных транзактов"),
           (ResultLocale
englishResultLocale, ResultLocale
"the number of enqueued transacts")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"кол-во добавлений"),
           (ResultLocale
englishResultLocale, ResultLocale
"enqueue count")]

-- | Property 'Q.enqueueZeroEntryCount'.
enqueueZeroEntryCountId :: ResultId
enqueueZeroEntryCountId :: ResultId
enqueueZeroEntryCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"количество добавленных транзактов без фактического ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"the number of zero entry enqueued transacts")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"кол-во добавлений без ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"zero entry enqueue count")]

-- | Property 'Q.queueWaitTime'.
queueWaitTimeId :: ResultId
queueWaitTimeId :: ResultId
queueWaitTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"the wait time")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"wait time")]

-- | Property 'Q.queueNonZeroEntryWaitTime'.
queueNonZeroEntryWaitTimeId :: ResultId
queueNonZeroEntryWaitTimeId :: ResultId
queueNonZeroEntryWaitTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания без учета фактически неожидавших транзактов"),
           (ResultLocale
englishResultLocale, ResultLocale
"the wait time without zero entries")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания за вычетом неожидавших"),
           (ResultLocale
englishResultLocale, ResultLocale
"non-zero entry wait time")]

-- | Property 'Q.queueRate'.
queueRateId :: ResultId
queueRateId :: ResultId
queueRateId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"усредненная скорость (как средняя длина очереди на среднее время ожидания)"),
           (ResultLocale
englishResultLocale, ResultLocale
"the average queue rate (= queue size / wait time)")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"усредненная скорость"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue rate")]

-- | The facility identifier.
facilityId :: ResultId
facilityId :: ResultId
facilityId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"прибор"),
           (ResultLocale
englishResultLocale, ResultLocale
"the facility")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"прибор"),
           (ResultLocale
englishResultLocale, ResultLocale
"facility")]

-- | Property 'facilityCount'.
facilityCountId :: ResultId
facilityCountId :: ResultId
facilityCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"текущее доступное количество прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current available count")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"доступное кол-во"),
           (ResultLocale
englishResultLocale, ResultLocale
"available count")]

-- | Property 'facilityCountStats'.
facilityCountStatsId :: ResultId
facilityCountStatsId :: ResultId
facilityCountStatsId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"статистика доступного количества прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the available count statistics")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"стат. доступного кол-ва"),
           (ResultLocale
englishResultLocale, ResultLocale
"available count stats")]

-- | Property 'facilityCaptureCount'.
facilityCaptureCountId :: ResultId
facilityCaptureCountId :: ResultId
facilityCaptureCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"текущее количество захватов прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current capture count")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"кол-во захватов"),
           (ResultLocale
englishResultLocale, ResultLocale
"capture count")]

-- | Property 'facilityUtilisationCount'.
facilityUtilisationCountId :: ResultId
facilityUtilisationCountId :: ResultId
facilityUtilisationCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"текущее используемое количество прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current utilisation count")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"используемое кол-во"),
           (ResultLocale
englishResultLocale, ResultLocale
"utilisation count")]

-- | Property 'facilityUtilisationCountStats'.
facilityUtilisationCountStatsId :: ResultId
facilityUtilisationCountStatsId :: ResultId
facilityUtilisationCountStatsId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"статистка по используемому количеству прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the utilisation count statistics")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"стат. по используемому кол-ву"),
           (ResultLocale
englishResultLocale, ResultLocale
"utilisation count stats")]

-- | Property 'facilityQueueCount'.
facilityQueueCountId :: ResultId
facilityQueueCountId :: ResultId
facilityQueueCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"текущая длина очереди к прибору"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current queue size")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"длина очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue size")]

-- | Property 'facilityQueueCountStats'.
facilityQueueCountStatsId :: ResultId
facilityQueueCountStatsId :: ResultId
facilityQueueCountStatsId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"статистика длины очереди к прибору"),
           (ResultLocale
englishResultLocale, ResultLocale
"the queue size statistics")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"стат. длины очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue size stats")]

-- | Property 'facilityTotalWaitTime'.
facilityTotalWaitTimeId :: ResultId
facilityTotalWaitTimeId :: ResultId
facilityTotalWaitTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее время ожидания прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the total wait time")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее время ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"total wait time")]

-- | Property 'facilityWaitTime'.
facilityWaitTimeId :: ResultId
facilityWaitTimeId :: ResultId
facilityWaitTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the wait time")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"wait time")]

-- | Property 'facilityTotalHoldingTime'.
facilityTotalHoldingTimeId :: ResultId
facilityTotalHoldingTimeId :: ResultId
facilityTotalHoldingTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее время удержания прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the total holding time")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее время удержания"),
           (ResultLocale
englishResultLocale, ResultLocale
"total holding time")]

-- | Property 'facilityHoldingTime'.
facilityHoldingTimeId :: ResultId
facilityHoldingTimeId :: ResultId
facilityHoldingTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время удержания прибора"),
           (ResultLocale
englishResultLocale, ResultLocale
"the holding time")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время удержания"),
           (ResultLocale
englishResultLocale, ResultLocale
"holding time")]

-- | Property 'facilityInterrupted'.
facilityInterruptedId :: ResultId
facilityInterruptedId :: ResultId
facilityInterruptedId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"удержание прибора сейчас прервано?"),
           (ResultLocale
englishResultLocale, ResultLocale
"is the facility interrupted now?")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"удержание прервано сейчас?"),
           (ResultLocale
englishResultLocale, ResultLocale
"interrupted now?")]

-- | The storage identifier.
storageId :: ResultId
storageId :: ResultId
storageId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"многоканальное устройство"),
           (ResultLocale
englishResultLocale, ResultLocale
"the storage")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"многоканальное устройство"),
           (ResultLocale
englishResultLocale, ResultLocale
"storage")]

-- | Property 'storageCapacity'.
storageCapacityId :: ResultId
storageCapacityId :: ResultId
storageCapacityId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"емкость многоканального устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the storage capacity")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"емкость"),
           (ResultLocale
englishResultLocale, ResultLocale
"capacity")]

-- | Property 'storageEmpty'.
storageEmptyId :: ResultId
storageEmptyId :: ResultId
storageEmptyId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"не используется ли совсем устройство сейчас?"),
           (ResultLocale
englishResultLocale, ResultLocale
"is the storage unused completely now?")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"не используется сейчас?"),
           (ResultLocale
englishResultLocale, ResultLocale
"unused now?")]

-- | Property 'storageFull'.
storageFullId :: ResultId
storageFullId :: ResultId
storageFullId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"используется ли устройство полностью сейчас?"),
           (ResultLocale
englishResultLocale, ResultLocale
"is the storage used completely now?")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"используется полностью сейчас?"),
           (ResultLocale
englishResultLocale, ResultLocale
"used completely now?")]

-- | Property 'storageContent'.
storageContentId :: ResultId
storageContentId :: ResultId
storageContentId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"доступное содержимое устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current available content")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"доступное содержимое"),
           (ResultLocale
englishResultLocale, ResultLocale
"available content")]

-- | Property 'storageContentStats'.
storageContentStatsId :: ResultId
storageContentStatsId :: ResultId
storageContentStatsId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"статистика доступного содержимого устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the available content statistics")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"стат. доступного содержимого"),
           (ResultLocale
englishResultLocale, ResultLocale
"available content stats")]

-- | Property 'storageUseCount'.
storageUseCountId :: ResultId
storageUseCountId :: ResultId
storageUseCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее количество использований устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the total use count")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее кол-во использований"),
           (ResultLocale
englishResultLocale, ResultLocale
"total use count")]

-- | Property 'storageUsedContent'.
storageUsedContentId :: ResultId
storageUsedContentId :: ResultId
storageUsedContentId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее использованное количество устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the total used content")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее использованное кол-во"),
           (ResultLocale
englishResultLocale, ResultLocale
"total used content")]

-- | Property 'storageUtilisationCount'.
storageUtilisationCountId :: ResultId
storageUtilisationCountId :: ResultId
storageUtilisationCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"текущее используемое количество устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current utilisation count")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"используемое кол-во"),
           (ResultLocale
englishResultLocale, ResultLocale
"utilisation count")]

-- | Property 'storageUtilisationCountStats'.
storageUtilisationCountStatsId :: ResultId
storageUtilisationCountStatsId :: ResultId
storageUtilisationCountStatsId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"статистка по используемому количеству устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the utilisation count statistics")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"стат. по используемому кол-ву"),
           (ResultLocale
englishResultLocale, ResultLocale
"utilisation count stats")]

-- | Property 'storageQueueCount'.
storageQueueCountId :: ResultId
storageQueueCountId :: ResultId
storageQueueCountId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"текущая длина очереди к устройству"),
           (ResultLocale
englishResultLocale, ResultLocale
"the current queue size")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"длина очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue size")]

-- | Property 'storageQueueCountStats'.
storageQueueCountStatsId :: ResultId
storageQueueCountStatsId :: ResultId
storageQueueCountStatsId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"статистика длины очереди к устройству"),
           (ResultLocale
englishResultLocale, ResultLocale
"the queue size statistics")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"стат. длины очереди"),
           (ResultLocale
englishResultLocale, ResultLocale
"queue size stats")]

-- | Property 'storageTotalWaitTime'.
storageTotalWaitTimeId :: ResultId
storageTotalWaitTimeId :: ResultId
storageTotalWaitTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее время ожидания устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the total wait time")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"общее время ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"total wait time")]

-- | Property 'storageWaitTime'.
storageWaitTimeId :: ResultId
storageWaitTimeId :: ResultId
storageWaitTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the wait time")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"время ожидания"),
           (ResultLocale
englishResultLocale, ResultLocale
"wait time")]

-- | Property 'storageAverageHoldingTime'.
storageAverageHoldingTimeId :: ResultId
storageAverageHoldingTimeId :: ResultId
storageAverageHoldingTimeId =
  LocalisedResult -> ResultId
LocalisedResultId (LocalisedResult -> ResultId) -> LocalisedResult -> ResultId
forall a b. (a -> b) -> a -> b
$
  Map ResultLocale ResultLocale
-> Map ResultLocale ResultLocale -> LocalisedResult
LocalisedResult Map ResultLocale ResultLocale
descrs Map ResultLocale ResultLocale
titles
  where descrs :: Map ResultLocale ResultLocale
descrs =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"среднее время удержания устройства на единицу устройства"),
           (ResultLocale
englishResultLocale, ResultLocale
"the average holding time per unit")]
        titles :: Map ResultLocale ResultLocale
titles =
          [(ResultLocale, ResultLocale)] -> Map ResultLocale ResultLocale
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
          [(ResultLocale
russianResultLocale, ResultLocale
"среднее время удержания"),
           (ResultLocale
englishResultLocale, ResultLocale
"average holding time")]