Consider the following example:
instance (Monad m) => MonadState s (ChronoT s e m) where
-- | Returns the present-day state.
get = ChronoT $ do
(ChronoS _ s _) <- get
return s
-- | Set the present-day state directly, erasing the past and future for
-- safety. See also 'paradox'.
put x = ChronoT $ do
(ChronoS _ _ _) <- get
put $ mkChronoS x
When run through haddock, the functions get
and put
show up, but they are using the default documentation from MonadState. How do I include my own documentation for them in my module?
(You can see what I mean by running cabal haddock
over the repo here)