withHakyllP :: HasPlugin Hakyll t m => HakyllP -> Haap t m a -> Haap t m a
withHakyllP newhp m = do
    oldhp <- readHakyllP
    writeHakyllP newhp
    x <- m
    writeHakyllP oldhp
    return x
withHakyllP :: HasPlugin Hakyll t m => HakyllP -> Haap t m a -> Haap t m a
withHakyllP newhp m = do
    oldhp <- readHakyllP
    writeHakyllP newhp
    x <- m
    writeHakyllP oldhp
    return x
withHakyllP newhp m = do
    oldhp <- readHakyllP
    writeHakyllP newhp
    x <- m
    writeHakyllP oldhp
    return x