Corrections to countTo.

src/RMCA/Auxiliary/Yampa.hs

@@ -9,7 +9,7 @@ import RMCA.Auxiliary.Misc
 -- | = Yampa
 
 countTo :: (Integral b) => b -> SF (Event a) (Event b)
-countTo n = count >>^ filterE (> n)
+countTo n = count >>^ filterE (== n)
 
 -- | 'stepBack' contains its previous argument as its output. Because it's hard to define it at time 0, it's wrapped up in a 'Maybe'.
 stepBack :: SF a (Maybe a)

src/RMCA/GUI/LayerSettings.hs

@@ -109,7 +109,7 @@ layerSettings isStartedRV = do
   boxPackStart layerSettingsBox' repeatBox PackRepel 0
   repeatLabel <- labelNew (Just "Repeat count")
   labelSetLineWrap repeatLabel True
-  repeatAdj <- adjustmentNew 0 0 (fromIntegral (maxBound :: Int)) 1 1 0
+  repeatAdj <- adjustmentNew 1 1 100 1 1 0
   repeatButton <- spinButtonNew repeatAdj 1 0
   auxRepeatBox <- vBoxNew False 0
   centerAl' <- alignmentNew 0.5 0.5 0 0