Merge pull request kmonad#690 from gwimm/docs

Fix doc comment by substituting "sink" for "source" in IO.hs
brttbndr · Mar 28, 2023 · a22e0ba · a22e0ba
2 parents 97772cb + 34bfdd3
commit a22e0ba
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/KMonad/Keyboard/IO.hs b/src/KMonad/Keyboard/IO.hs
@@ -65,9 +65,9 @@ newtype KeySource = KeySource { awaitKeyWith :: IO KeyEvent}
 
 -- | Create a new KeySource
 mkKeySource :: HasLogFunc e
- => RIO e src -- ^ Action to acquire the keysink
- -> (src -> RIO e ()) -- ^ Action to close the keysink
- -> (src -> RIO e KeyEvent) -- ^ Action to write with the keysink
+ => RIO e src -- ^ Action to acquire the keysource
+ -> (src -> RIO e ()) -- ^ Action to close the keysource
+ -> (src -> RIO e KeyEvent) -- ^ Action to write with the keysource
  -> RIO e (Acquire KeySource)
 mkKeySource o c r = do
  u <- askUnliftIO