Exps
    name Text
    startTime UTCTime
    endTime UTCTime Maybe
    initialState ByteString
    initialInputState ByteString

ExpsInfoParam
    exps ExpsId OnDeleteCascade
    name Text
    value ByteString
    UniqueExpsInfoParam exps name

ExpsMaster
    exps ExpsId OnDeleteCascade
    hostname Text
    pid Int
    lastAliveSign UTCTime
    UniqueExpsMaster exps

ExpsSetup
    exps ExpsId OnDeleteCascade
    repetitions Int
    preparationSteps Int
    evaluationWarmUpSteps Int
    evaluationSteps Int
    evaluationReplications Int
    evaluationMaxStepsBetweenSaves Int Maybe
    UniqueExpsSetup exps

Param
    exps ExpsId OnDeleteCascade
    name Text
    minBound ByteString Maybe
    maxBound ByteString Maybe
    deriving Show Eq Ord

Exp         -- Adding "json" causes ToJSON and FromJSON instances to be derived.
    exps  ExpsId OnDeleteCascade
    number Int
    startTime UTCTime
    endTime UTCTime Maybe
    deriving Eq Ord

ExpExecutionLock
    exp ExpId OnDeleteCascade
    hostname Text
    pid Int
    lastAliveSign UTCTime
    UniqueExpExecutionLock exp

ExpProgress
    exp ExpId OnDeleteCascade
    phase Int
    step Int
    UniqueExpProgress exp

ParamSetting
    exp ExpId OnDeleteCascade
    name Text
    value ByteString
    skipPreparationPhase Bool
    experimentDesign Int


ExpResult
    exp ExpId OnDeleteCascade
    repetition Int
    prepResultData                  PrepResultDataId Maybe

PrepResultData
    startTime                       UTCTime
    endTime                         UTCTime Maybe
    startRandGen                    ByteString
    endRandGen                      ByteString Maybe
    -- startState                      ByteString
    -- endState                        ByteString Maybe
    startInputState                 ByteString
    endInputState                   ByteString Maybe

PrepStartStatePart             -- need to split big states into pieces
    resultData PrepResultDataId OnDeleteCascade
    number     Int
    data       ByteString
    UniquePrepStartStatePart resultData number

PrepEndStatePart
    resultData PrepResultDataId OnDeleteCascade
    number     Int
    data       ByteString
    UniquePrepEndStatePart resultData number

PrepInput
    prepResultData PrepResultDataId OnDeleteCascade
    period Int
    UniquePrepInput prepResultData period

PrepInputValue
    prepInput PrepInputId OnDeleteCascade
    value ByteString

PrepMeasure
    prepResultData PrepResultDataId OnDeleteCascade
    period Int
    UniquePrepMeasure prepResultData period

PrepResultStep
    measure PrepMeasureId OnDeleteCascade
    name Text
    xValue  Double Maybe
    yValue  Double

RepResult
    expResult ExpResultId OnDeleteCascade
    repNr Int
    warmUpResultData WarmUpResultDataId Maybe
    repResultData RepResultDataId Maybe
    UniqueExpResultRepNr expResult repNr

WarmUpResultData
    startTime                       UTCTime
    endTime                         UTCTime Maybe
    startRandGen                    ByteString
    endRandGen                      ByteString Maybe
    -- startState                      ByteString
    -- endState                        ByteString Maybe
    startInputState                 ByteString
    endInputState                   ByteString Maybe

WarmUpStartStatePart             -- need to split big states into pieces
    resultData WarmUpResultDataId OnDeleteCascade
    number     Int
    data       ByteString
    UniqueWarmUpStartStatePart resultData number

WarmUpEndStatePart
    resultData WarmUpResultDataId OnDeleteCascade
    number     Int
    data       ByteString
    UniqueWarmUpEndStatePart resultData number

RepResultData
    startTime                       UTCTime
    endTime                         UTCTime Maybe
    startRandGen                    ByteString
    endRandGen                      ByteString Maybe
    -- startState                      ByteString
    -- endState                        ByteString Maybe
    startInputState                 ByteString
    endInputState                   ByteString Maybe


RepStartStatePart             -- need to split big states into pieces
    resultData RepResultDataId OnDeleteCascade
    number     Int
    data       ByteString
    UniqueRepStartStatePart resultData number

RepEndStatePart
    resultData RepResultDataId OnDeleteCascade
    number     Int
    data       ByteString
    UniqueRepEndStatePart resultData number


WarmUpInput
    repResult WarmUpResultDataId OnDeleteCascade
    period Int
    UniqueWarmUpInput repResult period

WarmUpInputValue
    warmUpInput WarmUpInputId OnDeleteCascade
    value ByteString

WarmUpMeasure
    repResult WarmUpResultDataId OnDeleteCascade
    period Int
    UniqueWarmUpMeasure repResult period

WarmUpResultStep
    measure WarmUpMeasureId OnDeleteCascade
    name Text
    xValue  Double Maybe
    yValue  Double

RepInput
    repResult RepResultDataId OnDeleteCascade
    period Int
    UniqueRepInput repResult period

RepInputValue
    repInput RepInputId OnDeleteCascade
    value ByteString

RepMeasure
    repResult RepResultDataId OnDeleteCascade
    period Int
    UniqueRepMeasure repResult period

RepResultStep
    measure RepMeasureId OnDeleteCascade
    name Text
    xValue  Double Maybe
    yValue  Double