change a broken doctest to a doc

yesodweb · Jan 16, 2024 · fdb875a · fdb875a
1 parent 3fc0ac1
commit fdb875a
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/auto-update/Control/Debounce.hs b/auto-update/Control/Debounce.hs
@@ -7,18 +7,17 @@
 -- Example usage:
 --
 -- @
--- printString <- 'mkDebounce' 'defaultDebounceSettings'
+-- > printString <- 'mkDebounce' 'defaultDebounceSettings'
 --                  { 'debounceAction' = putStrLn "Running action"
 --                  , 'debounceFreq' = 5000000 -- 5 seconds
 --                  , 'debounceEdge' = 'DI.trailingEdge' -- Trigger on the trailing edge
 --                  }
--- @
---
--- >>> printString
+-- > printString
 -- Running action
--- >>> printString
--- <Wait five seconds>
+-- > printString
+-- \<Wait five seconds>
 -- Running action
+-- @
 --
 -- See the fast-logger package ("System.Log.FastLogger") for real-world usage.
 --