Formatting

src/Control/Monad/Bayes/Population.hs

@@ -41,7 +41,7 @@ where
 
 import Control.Applicative (Alternative)
 import Control.Arrow (second)
-import Control.Monad (replicateM, MonadPlus)
+import Control.Monad (MonadPlus, replicateM)
 import Control.Monad.Bayes.Class
  ( MonadDistribution (categorical, logCategorical, random, uniform),
  MonadFactor,
@@ -185,11 +185,11 @@ stratified weights = do
  cumulativeSum = V.scanl (+) 0.0 weights
  coalg (i, j)
  | i < bigN =
- if (positions ! i) < (cumulativeSum ! j)
- then Just (Just j, (i + 1, j))
- else Just (Nothing, (i, j + 1))
+  if (positions ! i) < (cumulativeSum ! j)
+  then Just (Just j, (i + 1, j))
+  else Just (Nothing, (i, j + 1))
  | otherwise =
- Nothing
+  Nothing
  return $ map (\i -> i - 1) $ catMaybes $ unfoldr coalg (0, 0)
 
 -- | Resample the population using the underlying monad and a stratified resampling scheme.