Safe Haskell	None
Language	Haskell2010

Celtchar.Novel.Structure

Documentation

class HasDependencies c where Source #

Minimal complete definition

getDeps

Methods

getDeps :: c -> [FilePath] Source #

Instances

HasDependencies Novel Source #
Methods getDeps :: Novel -> [FilePath] Source #
HasDependencies Manuscript Source #
Methods getDeps :: Manuscript -> [FilePath] Source #
HasDependencies Part Source #
Methods getDeps :: Part -> [FilePath] Source #
HasDependencies Chapter Source #
Methods getDeps :: Chapter -> [FilePath] Source #
HasDependencies Document Source #
Methods getDeps :: Document -> [FilePath] Source #

data Language Source #

Constructors

French
English

Instances

Show Language Source #
Methods showsPrec :: Int -> Language -> ShowS # show :: Language -> String # showList :: [Language] -> ShowS #
Generic Language Source #
Associated Types type Rep Language :: * -> * # Methods from :: Language -> Rep Language x # to :: Rep Language x -> Language #
ToJSON Language Source #
Methods toJSON :: Language -> Value # toEncoding :: Language -> Encoding # toJSONList :: [Language] -> Value # toEncodingList :: [Language] -> Encoding #
FromJSON Language Source #
Methods parseJSON :: Value -> Parser Language # parseJSONList :: Value -> Parser [Language] #
type Rep Language Source #
type Rep Language = D1 * (MetaData "Language" "Celtchar.Novel.Structure" "celtchar-0.1.4.0-7SpYGzg0BIlM4eAp0csTU" False) ((:+:) * (C1 * (MetaCons "French" PrefixI False) (U1 )) (C1 (MetaCons "English" PrefixI False) (U1 *)))

newtype Document Source #

Constructors

Document FilePath

Instances

Show Document Source #
Methods showsPrec :: Int -> Document -> ShowS # show :: Document -> String # showList :: [Document] -> ShowS #
Generic Document Source #
Associated Types type Rep Document :: * -> * # Methods from :: Document -> Rep Document x # to :: Rep Document x -> Document #
ToJSON Document Source #
Methods toJSON :: Document -> Value # toEncoding :: Document -> Encoding # toJSONList :: [Document] -> Value # toEncodingList :: [Document] -> Encoding #
FromJSON Document Source #
Methods parseJSON :: Value -> Parser Document # parseJSONList :: Value -> Parser [Document] #
HasDependencies Document Source #
Methods getDeps :: Document -> [FilePath] Source #
Novelify Document Source #
Methods novelify :: Document -> Builder () Source #
type Rep Document Source #
type Rep Document = D1 * (MetaData "Document" "Celtchar.Novel.Structure" "celtchar-0.1.4.0-7SpYGzg0BIlM4eAp0csTU" True) (C1 * (MetaCons "Document" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * FilePath)))

data Chapter Source #

Constructors

Chapter
Fields chapterTitle :: Maybe String documents :: [Document]

Instances

Show Chapter Source #
Methods showsPrec :: Int -> Chapter -> ShowS # show :: Chapter -> String # showList :: [Chapter] -> ShowS #
Generic Chapter Source #
Associated Types type Rep Chapter :: * -> * # Methods from :: Chapter -> Rep Chapter x # to :: Rep Chapter x -> Chapter #
ToJSON Chapter Source #
Methods toJSON :: Chapter -> Value # toEncoding :: Chapter -> Encoding # toJSONList :: [Chapter] -> Value # toEncodingList :: [Chapter] -> Encoding #
FromJSON Chapter Source #
Methods parseJSON :: Value -> Parser Chapter # parseJSONList :: Value -> Parser [Chapter] #
HasDependencies Chapter Source #
Methods getDeps :: Chapter -> [FilePath] Source #
Novelify Chapter Source #
Methods novelify :: Chapter -> Builder () Source #
type Rep Chapter Source #
type Rep Chapter = D1 * (MetaData "Chapter" "Celtchar.Novel.Structure" "celtchar-0.1.4.0-7SpYGzg0BIlM4eAp0csTU" False) (C1 * (MetaCons "Chapter" PrefixI True) ((::) (S1 * (MetaSel (Just Symbol "chapterTitle") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe String))) (S1 * (MetaSel (Just Symbol "documents") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * [Document]))))

data Part Source #

Constructors

Part
Fields partTitle :: String chapters :: [Chapter]

Instances

Show Part Source #
Methods showsPrec :: Int -> Part -> ShowS # show :: Part -> String # showList :: [Part] -> ShowS #
Generic Part Source #
Associated Types type Rep Part :: * -> * # Methods from :: Part -> Rep Part x # to :: Rep Part x -> Part #
ToJSON Part Source #
Methods toJSON :: Part -> Value # toEncoding :: Part -> Encoding # toJSONList :: [Part] -> Value # toEncodingList :: [Part] -> Encoding #
FromJSON Part Source #
Methods parseJSON :: Value -> Parser Part # parseJSONList :: Value -> Parser [Part] #
HasDependencies Part Source #
Methods getDeps :: Part -> [FilePath] Source #
Novelify Part Source #
Methods novelify :: Part -> Builder () Source #
type Rep Part Source #
type Rep Part = D1 * (MetaData "Part" "Celtchar.Novel.Structure" "celtchar-0.1.4.0-7SpYGzg0BIlM4eAp0csTU" False) (C1 * (MetaCons "Part" PrefixI True) ((::) (S1 * (MetaSel (Just Symbol "partTitle") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)) (S1 * (MetaSel (Just Symbol "chapters") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * [Chapter]))))

data Manuscript Source #

Constructors

WithParts [Part]
WithChapters [Chapter]

Instances

Show Manuscript Source #
Methods showsPrec :: Int -> Manuscript -> ShowS # show :: Manuscript -> String # showList :: [Manuscript] -> ShowS #
Generic Manuscript Source #
Associated Types type Rep Manuscript :: * -> * # Methods from :: Manuscript -> Rep Manuscript x # to :: Rep Manuscript x -> Manuscript #
ToJSON Manuscript Source #
Methods toJSON :: Manuscript -> Value # toEncoding :: Manuscript -> Encoding # toJSONList :: [Manuscript] -> Value # toEncodingList :: [Manuscript] -> Encoding #
FromJSON Manuscript Source #
Methods parseJSON :: Value -> Parser Manuscript # parseJSONList :: Value -> Parser [Manuscript] #
HasDependencies Manuscript Source #
Methods getDeps :: Manuscript -> [FilePath] Source #
Novelify Manuscript Source #
Methods novelify :: Manuscript -> Builder () Source #
type Rep Manuscript Source #
type Rep Manuscript = D1 * (MetaData "Manuscript" "Celtchar.Novel.Structure" "celtchar-0.1.4.0-7SpYGzg0BIlM4eAp0csTU" False) ((:+:) * (C1 * (MetaCons "WithParts" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * [Part]))) (C1 * (MetaCons "WithChapters" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * [Chapter]))))

data Novel Source #

Constructors

Novel
Fields author :: String language :: Language novelTitle :: String frontmatter :: Maybe [Chapter] manuscript :: Manuscript appendix :: Maybe [Chapter]

Instances

Show Novel Source #
Methods showsPrec :: Int -> Novel -> ShowS # show :: Novel -> String # showList :: [Novel] -> ShowS #
Generic Novel Source #
Associated Types type Rep Novel :: * -> * # Methods from :: Novel -> Rep Novel x # to :: Rep Novel x -> Novel #
ToJSON Novel Source #
Methods toJSON :: Novel -> Value # toEncoding :: Novel -> Encoding # toJSONList :: [Novel] -> Value # toEncodingList :: [Novel] -> Encoding #
FromJSON Novel Source #
Methods parseJSON :: Value -> Parser Novel # parseJSONList :: Value -> Parser [Novel] #
HasDependencies Novel Source #
Methods getDeps :: Novel -> [FilePath] Source #
Novelify Novel Source #
Methods novelify :: Novel -> Builder () Source #
type Rep Novel Source #
type Rep Novel = D1 * (MetaData "Novel" "Celtchar.Novel.Structure" "celtchar-0.1.4.0-7SpYGzg0BIlM4eAp0csTU" False) (C1 * (MetaCons "Novel" PrefixI True) ((::) ((::) (S1 * (MetaSel (Just Symbol "author") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)) ((::) (S1 * (MetaSel (Just Symbol "language") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Language)) (S1 * (MetaSel (Just Symbol "novelTitle") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) ((::) (S1 * (MetaSel (Just Symbol "frontmatter") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe [Chapter]))) ((::) (S1 * (MetaSel (Just Symbol "manuscript") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Manuscript)) (S1 * (MetaSel (Just Symbol "appendix") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe [Chapter])))))))

getNovelStructure :: FilePath -> IO (Either String Novel) Source #

defaultNovel :: Novel Source #