@@ -139,6 +139,7 @@ data WriterState = WriterState { stCurSlideId :: Int
139139 -- (FP, Local ID, Global ID, Maybe Mime)
140140 , stMediaIds :: M.Map Int [MediaInfo]
141141 , stMediaGlobalIds :: M.Map FilePath Int
142+ , stNoteIds :: M.Map Int [Block]
142143 } deriving (Show, Eq)
143144
144145instance Default WriterState where
@@ -147,6 +148,7 @@ instance Default WriterState where
147148 , stLinkIds = mempty
148149 , stMediaIds = mempty
149150 , stMediaGlobalIds = mempty
151+ , stNoteIds = mempty
150152 }
151153
152154type P m = ReaderT WriterEnv (StateT WriterState m)