X.U.ExtensibleConf: Fix typo in docs

This commit is contained in:
slotThe 2021-12-04 14:27:28 +01:00
parent 95b37a9ab2
commit ba43dc6c7e

View File

@ -62,7 +62,7 @@ import qualified Data.Map as M
-- > newtype MyConf = MyConf{ fromMyConf :: [Int] } deriving Semigroup
-- >
-- > customLogger :: Int -> XConfig l -> XConfig l
-- > customLogger i = XC.once (MyConf [i]) $ \c -> c{ logHook = logHook c <> lh }
-- > customLogger i = XC.once (\c -> c{ logHook = logHook c <> lh }) (MyConf [i])
-- > where
-- > lh :: X ()
-- > lh = XC.with $ io . print . fromMyConf