Fix missing signature of shuf

ff-notes · Aug 14, 2019 · f0e037b · f0e037b
1 parent 633392e
commit f0e037b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ff-core/lib/FF.hs b/ff-core/lib/FF.hs
@@ -39,7 +39,7 @@ import Control.Arrow ((&&&))
 import Control.Monad (unless, void, when)
 import Control.Monad.Except (throwError)
 import Control.Monad.IO.Class (MonadIO, liftIO)
-import Control.Monad.State.Strict (evalState, state)
+import Control.Monad.State.Strict (MonadState, evalState, state)
 import Data.Bool (bool)
 import Data.Foldable (asum, for_, toList)
 import Data.HashMap.Strict (HashMap)
@@ -250,6 +250,7 @@ getWikiSamplesWith predicate archive ConfigUI {shuffle} limit today =
 shuffleItems :: StdGen -> [b] -> [b]
 shuffleItems gen = (`evalState` gen) . shuf
 
+shuf :: MonadState StdGen m => [b] -> m [b]
 shuf xs = do
   g <- state split
   pure . map snd . sortOn fst $ zip (randoms g :: [Int]) xs