Celtchar.Novel.Structure

Documentation

data Language

Constructors

French

English

Instances

Show Language

Methods

showsPrec :: Int -> Language -> ShowS

show :: Language -> String

showList :: [Language] -> ShowS

Generic Language

Associated Types

type Rep Language :: * -> *

Methods

from :: Language -> Rep Language x

to :: Rep Language x -> Language

FromJSON Language

Methods

parseJSON :: Value -> Parser Language

parseJSONList :: Value -> Parser [Language]

type Rep Language

type Rep Language = D1 (MetaData "Language" "Celtchar.Novel.Structure" "celtchar-0.1.0.1-EQvEtWHwYUHLutIvl0JfVi" False) ((:+:) (C1 (MetaCons "French" PrefixI False) U1) (C1 (MetaCons "English" PrefixI False) U1))

data Document

Constructors

Document FilePath

Instances

Show Document

Methods

showsPrec :: Int -> Document -> ShowS

show :: Document -> String

showList :: [Document] -> ShowS

Generic Document

Associated Types

type Rep Document :: * -> *

Methods

from :: Document -> Rep Document x

to :: Rep Document x -> Document

FromJSON Document

Methods

parseJSON :: Value -> Parser Document

parseJSONList :: Value -> Parser [Document]

Novelify Document

Methods

novelify :: Document -> Builder ()

type Rep Document

type Rep Document = D1 (MetaData "Document" "Celtchar.Novel.Structure" "celtchar-0.1.0.1-EQvEtWHwYUHLutIvl0JfVi" False) (C1 (MetaCons "Document" PrefixI False) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 FilePath)))

data Chapter

Constructors

Chapter

Fields

• chapterTitle :: Maybe String
• documents :: [Document]

Instances

Show Chapter

Methods

showsPrec :: Int -> Chapter -> ShowS

show :: Chapter -> String

showList :: [Chapter] -> ShowS

Generic Chapter

Associated Types

type Rep Chapter :: * -> *

Methods

from :: Chapter -> Rep Chapter x

to :: Rep Chapter x -> Chapter

FromJSON Chapter

Methods

parseJSON :: Value -> Parser Chapter

parseJSONList :: Value -> Parser [Chapter]

Novelify Chapter

Methods

novelify :: Chapter -> Builder ()

type Rep Chapter

type Rep Chapter = D1 (MetaData "Chapter" "Celtchar.Novel.Structure" "celtchar-0.1.0.1-EQvEtWHwYUHLutIvl0JfVi" 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

Constructors

Part

Fields

• partTitle :: String
• chapters :: [Chapter]

Instances

Show Part

Methods

showsPrec :: Int -> Part -> ShowS

show :: Part -> String

showList :: [Part] -> ShowS

Generic Part

Associated Types

type Rep Part :: * -> *

Methods

from :: Part -> Rep Part x

to :: Rep Part x -> Part

FromJSON Part

Methods

parseJSON :: Value -> Parser Part

parseJSONList :: Value -> Parser [Part]

Novelify Part

Methods

novelify :: Part -> Builder ()

type Rep Part

type Rep Part = D1 (MetaData "Part" "Celtchar.Novel.Structure" "celtchar-0.1.0.1-EQvEtWHwYUHLutIvl0JfVi" 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

Constructors

Manuscript [Part]

Instances

Show Manuscript

Methods

showsPrec :: Int -> Manuscript -> ShowS

show :: Manuscript -> String

showList :: [Manuscript] -> ShowS

Generic Manuscript

Associated Types

type Rep Manuscript :: * -> *

Methods

from :: Manuscript -> Rep Manuscript x

to :: Rep Manuscript x -> Manuscript

FromJSON Manuscript

Methods

parseJSON :: Value -> Parser Manuscript

parseJSONList :: Value -> Parser [Manuscript]

Novelify Manuscript

Methods

novelify :: Manuscript -> Builder ()

type Rep Manuscript

type Rep Manuscript = D1 (MetaData "Manuscript" "Celtchar.Novel.Structure" "celtchar-0.1.0.1-EQvEtWHwYUHLutIvl0JfVi" False) (C1 (MetaCons "Manuscript" PrefixI False) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 [Part])))

data Novel

Constructors

Novel

Fields

• author :: String
• language :: Language
• novelTitle :: String
• manuscript :: Manuscript

Instances

Show Novel

Methods

showsPrec :: Int -> Novel -> ShowS

show :: Novel -> String

showList :: [Novel] -> ShowS

Generic Novel

Associated Types

type Rep Novel :: * -> *

Methods

from :: Novel -> Rep Novel x

to :: Rep Novel x -> Novel

FromJSON Novel

Methods

parseJSON :: Value -> Parser Novel

parseJSONList :: Value -> Parser [Novel]

Novelify Novel

Methods

novelify :: Novel -> Builder ()

type Rep Novel

type Rep Novel = D1 (MetaData "Novel" "Celtchar.Novel.Structure" "celtchar-0.1.0.1-EQvEtWHwYUHLutIvl0JfVi" 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 "manuscript") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Manuscript)))))

getNovelStructure :: FilePath -> IO (Maybe Novel)