Safe Haskell	Safe-Inferred
Language	Haskell2010

Data.Disney.Experience

Description

Disney体験記録のデータ構造を定義するモジュールこのモジュールは、Disney体験記録の型定義とJSON変換のためのインスタンスを提供する

Synopsis

data ExperienceRecord = ExperienceRecord {
- title :: Text
- date :: Day
- disneyTags :: [Text]
- snsLinks :: SNSLinks
- aiGenerated :: Bool
}
data SNSLinks = SNSLinks {
- youtube :: [Text]
- instagram :: [Text]
- x :: [Text]
- note :: [Text]
}
data TimeSeriesData = TimeSeriesData {
- daily :: [DailyCount]
}
data DailyCount = DailyCount {
- dcDate :: Day
- dcCount :: Int
}
data TagStats = TagStats {
- tags :: [TagCount]
}
data TagCount = TagCount {
- tcTag :: Text
- tcCount :: Int
}
data YearData = YearData {
- yearNumber :: Int
- yearlyDaily :: [DailyCount]
}
data VisualizationData = VisualizationData {
- timeSeries :: TimeSeriesData
- tagStats :: TagStats
- yearlyTimeSeries :: [YearData]
}

Documentation

data ExperienceRecord Source #

体験記録の構造

Constructors

ExperienceRecord
Fields title :: Text date :: Day disneyTags :: [Text] snsLinks :: SNSLinks aiGenerated :: Bool

Instances

Instances details

FromJSON ExperienceRecord Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser ExperienceRecord # parseJSONList :: Value -> Parser [ExperienceRecord] # omittedField :: Maybe ExperienceRecord #
ToJSON ExperienceRecord Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: ExperienceRecord -> Value # toEncoding :: ExperienceRecord -> Encoding # toJSONList :: [ExperienceRecord] -> Value # toEncodingList :: [ExperienceRecord] -> Encoding # omitField :: ExperienceRecord -> Bool #
Generic ExperienceRecord Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep ExperienceRecord :: Type -> Type # Methods from :: ExperienceRecord -> Rep ExperienceRecord x # to :: Rep ExperienceRecord x -> ExperienceRecord #
Show ExperienceRecord Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> ExperienceRecord -> ShowS # show :: ExperienceRecord -> String # showList :: [ExperienceRecord] -> ShowS #
Eq ExperienceRecord Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: ExperienceRecord -> ExperienceRecord -> Bool # (/=) :: ExperienceRecord -> ExperienceRecord -> Bool #
type Rep ExperienceRecord Source #
Instance details Defined in Data.Disney.Experience type Rep ExperienceRecord = D1 ('MetaData "ExperienceRecord" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "ExperienceRecord" 'PrefixI 'True) ((S1 ('MetaSel ('Just "title") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "date") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Day)) :: (S1 ('MetaSel ('Just "disneyTags") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Text]) :: (S1 ('MetaSel ('Just "snsLinks") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SNSLinks) :: S1 ('MetaSel ('Just "aiGenerated") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool)))))

data SNSLinks Source #

SNSリンクの構造

Constructors

SNSLinks
Fields youtube :: [Text] instagram :: [Text] x :: [Text] note :: [Text]

Instances

Instances details

FromJSON SNSLinks Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser SNSLinks # parseJSONList :: Value -> Parser [SNSLinks] # omittedField :: Maybe SNSLinks #
ToJSON SNSLinks Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: SNSLinks -> Value # toEncoding :: SNSLinks -> Encoding # toJSONList :: [SNSLinks] -> Value # toEncodingList :: [SNSLinks] -> Encoding # omitField :: SNSLinks -> Bool #
Generic SNSLinks Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep SNSLinks :: Type -> Type # Methods from :: SNSLinks -> Rep SNSLinks x # to :: Rep SNSLinks x -> SNSLinks #
Show SNSLinks Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> SNSLinks -> ShowS # show :: SNSLinks -> String # showList :: [SNSLinks] -> ShowS #
Eq SNSLinks Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: SNSLinks -> SNSLinks -> Bool # (/=) :: SNSLinks -> SNSLinks -> Bool #
type Rep SNSLinks Source #
Instance details Defined in Data.Disney.Experience type Rep SNSLinks = D1 ('MetaData "SNSLinks" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "SNSLinks" 'PrefixI 'True) ((S1 ('MetaSel ('Just "youtube") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Text]) :: S1 ('MetaSel ('Just "instagram") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Text])) :: (S1 ('MetaSel ('Just "x") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Text]) :*: S1 ('MetaSel ('Just "note") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Text]))))

data TimeSeriesData Source #

時系列データの構造

Constructors

TimeSeriesData
Fields daily :: [DailyCount]

Instances

Instances details

FromJSON TimeSeriesData Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser TimeSeriesData # parseJSONList :: Value -> Parser [TimeSeriesData] # omittedField :: Maybe TimeSeriesData #
ToJSON TimeSeriesData Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: TimeSeriesData -> Value # toEncoding :: TimeSeriesData -> Encoding # toJSONList :: [TimeSeriesData] -> Value # toEncodingList :: [TimeSeriesData] -> Encoding # omitField :: TimeSeriesData -> Bool #
Generic TimeSeriesData Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep TimeSeriesData :: Type -> Type # Methods from :: TimeSeriesData -> Rep TimeSeriesData x # to :: Rep TimeSeriesData x -> TimeSeriesData #
Show TimeSeriesData Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> TimeSeriesData -> ShowS # show :: TimeSeriesData -> String # showList :: [TimeSeriesData] -> ShowS #
Eq TimeSeriesData Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: TimeSeriesData -> TimeSeriesData -> Bool # (/=) :: TimeSeriesData -> TimeSeriesData -> Bool #
type Rep TimeSeriesData Source #
Instance details Defined in Data.Disney.Experience type Rep TimeSeriesData = D1 ('MetaData "TimeSeriesData" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "TimeSeriesData" 'PrefixI 'True) (S1 ('MetaSel ('Just "daily") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [DailyCount])))

data DailyCount Source #

日別カウントの構造

Constructors

DailyCount
Fields dcDate :: Day dcCount :: Int

Instances

Instances details

FromJSON DailyCount Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser DailyCount # parseJSONList :: Value -> Parser [DailyCount] # omittedField :: Maybe DailyCount #
ToJSON DailyCount Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: DailyCount -> Value # toEncoding :: DailyCount -> Encoding # toJSONList :: [DailyCount] -> Value # toEncodingList :: [DailyCount] -> Encoding # omitField :: DailyCount -> Bool #
Generic DailyCount Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep DailyCount :: Type -> Type # Methods from :: DailyCount -> Rep DailyCount x # to :: Rep DailyCount x -> DailyCount #
Show DailyCount Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> DailyCount -> ShowS # show :: DailyCount -> String # showList :: [DailyCount] -> ShowS #
Eq DailyCount Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: DailyCount -> DailyCount -> Bool # (/=) :: DailyCount -> DailyCount -> Bool #
type Rep DailyCount Source #
Instance details Defined in Data.Disney.Experience type Rep DailyCount = D1 ('MetaData "DailyCount" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "DailyCount" 'PrefixI 'True) (S1 ('MetaSel ('Just "dcDate") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Day) :*: S1 ('MetaSel ('Just "dcCount") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data TagStats Source #

タグ統計の構造

Constructors

TagStats
Fields tags :: [TagCount]

Instances

Instances details

FromJSON TagStats Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser TagStats # parseJSONList :: Value -> Parser [TagStats] # omittedField :: Maybe TagStats #
ToJSON TagStats Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: TagStats -> Value # toEncoding :: TagStats -> Encoding # toJSONList :: [TagStats] -> Value # toEncodingList :: [TagStats] -> Encoding # omitField :: TagStats -> Bool #
Generic TagStats Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep TagStats :: Type -> Type # Methods from :: TagStats -> Rep TagStats x # to :: Rep TagStats x -> TagStats #
Show TagStats Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> TagStats -> ShowS # show :: TagStats -> String # showList :: [TagStats] -> ShowS #
Eq TagStats Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: TagStats -> TagStats -> Bool # (/=) :: TagStats -> TagStats -> Bool #
type Rep TagStats Source #
Instance details Defined in Data.Disney.Experience type Rep TagStats = D1 ('MetaData "TagStats" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "TagStats" 'PrefixI 'True) (S1 ('MetaSel ('Just "tags") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [TagCount])))

data TagCount Source #

タグ別カウントの構造

Constructors

TagCount
Fields tcTag :: Text tcCount :: Int

Instances

Instances details

FromJSON TagCount Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser TagCount # parseJSONList :: Value -> Parser [TagCount] # omittedField :: Maybe TagCount #
ToJSON TagCount Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: TagCount -> Value # toEncoding :: TagCount -> Encoding # toJSONList :: [TagCount] -> Value # toEncodingList :: [TagCount] -> Encoding # omitField :: TagCount -> Bool #
Generic TagCount Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep TagCount :: Type -> Type # Methods from :: TagCount -> Rep TagCount x # to :: Rep TagCount x -> TagCount #
Show TagCount Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> TagCount -> ShowS # show :: TagCount -> String # showList :: [TagCount] -> ShowS #
Eq TagCount Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: TagCount -> TagCount -> Bool # (/=) :: TagCount -> TagCount -> Bool #
type Rep TagCount Source #
Instance details Defined in Data.Disney.Experience type Rep TagCount = D1 ('MetaData "TagCount" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "TagCount" 'PrefixI 'True) (S1 ('MetaSel ('Just "tcTag") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "tcCount") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))

data YearData Source #

年度別データの構造

Constructors

YearData
Fields yearNumber :: Int yearlyDaily :: [DailyCount]

Instances

Instances details

FromJSON YearData Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser YearData # parseJSONList :: Value -> Parser [YearData] # omittedField :: Maybe YearData #
ToJSON YearData Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: YearData -> Value # toEncoding :: YearData -> Encoding # toJSONList :: [YearData] -> Value # toEncodingList :: [YearData] -> Encoding # omitField :: YearData -> Bool #
Generic YearData Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep YearData :: Type -> Type # Methods from :: YearData -> Rep YearData x # to :: Rep YearData x -> YearData #
Show YearData Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> YearData -> ShowS # show :: YearData -> String # showList :: [YearData] -> ShowS #
Eq YearData Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: YearData -> YearData -> Bool # (/=) :: YearData -> YearData -> Bool #
type Rep YearData Source #
Instance details Defined in Data.Disney.Experience type Rep YearData = D1 ('MetaData "YearData" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "YearData" 'PrefixI 'True) (S1 ('MetaSel ('Just "yearNumber") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "yearlyDaily") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [DailyCount])))

data VisualizationData Source #

可視化データの全体構造

Constructors

VisualizationData
Fields timeSeries :: TimeSeriesData tagStats :: TagStats yearlyTimeSeries :: [YearData]

Instances

Instances details

FromJSON VisualizationData Source #
Instance details Defined in Data.Disney.Experience Methods parseJSON :: Value -> Parser VisualizationData # parseJSONList :: Value -> Parser [VisualizationData] # omittedField :: Maybe VisualizationData #
ToJSON VisualizationData Source #
Instance details Defined in Data.Disney.Experience Methods toJSON :: VisualizationData -> Value # toEncoding :: VisualizationData -> Encoding # toJSONList :: [VisualizationData] -> Value # toEncodingList :: [VisualizationData] -> Encoding # omitField :: VisualizationData -> Bool #
Generic VisualizationData Source #
Instance details Defined in Data.Disney.Experience Associated Types type Rep VisualizationData :: Type -> Type # Methods from :: VisualizationData -> Rep VisualizationData x # to :: Rep VisualizationData x -> VisualizationData #
Show VisualizationData Source #
Instance details Defined in Data.Disney.Experience Methods showsPrec :: Int -> VisualizationData -> ShowS # show :: VisualizationData -> String # showList :: [VisualizationData] -> ShowS #
Eq VisualizationData Source #
Instance details Defined in Data.Disney.Experience Methods (==) :: VisualizationData -> VisualizationData -> Bool # (/=) :: VisualizationData -> VisualizationData -> Bool #
type Rep VisualizationData Source #
Instance details Defined in Data.Disney.Experience type Rep VisualizationData = D1 ('MetaData "VisualizationData" "Data.Disney.Experience" "roki-web-2.0.0.0-3q9xvRvHU6dJnzjks64gGb" 'False) (C1 ('MetaCons "VisualizationData" 'PrefixI 'True) (S1 ('MetaSel ('Just "timeSeries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TimeSeriesData) :: (S1 ('MetaSel ('Just "tagStats") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TagStats) :: S1 ('MetaSel ('Just "yearlyTimeSeries") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [YearData]))))