fixup name

tomjaguarpaw · Feb 10, 2024 · 2ca315d · 2ca315d
1 parent 83a8f65
commit 2ca315d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/bluefin-internal/src/Bluefin/Internal.hs b/bluefin-internal/src/Bluefin/Internal.hs
@@ -646,8 +646,8 @@ runEffIO ::
  IO a
 runEffIO eff = unsafeUnEff (eff IOE)
 
-exampleParity :: [Int] -> String
-exampleParity is = runEff $
+countPositivesNegatives :: [Int] -> String
+countPositivesNegatives is = runEff $
  evalState (0 :: Int) $ \positives -> do
  r <- try $ \ex ->
  evalState (0 :: Int) $ \negatives -> do

diff --git a/bluefin/src/Bluefin.hs b/bluefin/src/Bluefin.hs
@@ -9,8 +9,8 @@ module Bluefin
  -- * "Bluefin.Stream", for streams
  --
  -- @
- -- exampleParity :: [Int] -> String
- -- exampleParity is = 'Bluefin.Eff.runEff' $
+ -- countPositivesNegatives :: [Int] -> String
+ -- countPositivesNegatives is = 'Bluefin.Eff.runEff' $
  -- 'Bluefin.State.evalState' (0 :: Int) $ \\positives -> do
  -- r \<- 'Bluefin.Exception.try' $ \\ex ->
  -- evalState (0 :: Int) $ \\negatives -> do