summaryrefslogtreecommitdiff
path: root/repgoal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'repgoal.hs')
-rwxr-xr-xrepgoal.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/repgoal.hs b/repgoal.hs
index 9e96c93..a7b2fbf 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -144,7 +144,7 @@ data CustomEvent = CustomEvent
144 144
145data SetScheme = SetScheme { ratioMax :: Rational, numberOfReps :: Integer, amrap :: Bool } 145data SetScheme = SetScheme { ratioMax :: Rational, numberOfReps :: Integer, amrap :: Bool }
146 146
147setScheme :: Rational -> Integer -> SetScheme 147setScheme, setSchemeAMRAP :: Rational -> Integer -> SetScheme
148setScheme percentage reps = SetScheme (percentage / 100) reps False 148setScheme percentage reps = SetScheme (percentage / 100) reps False
149setSchemeAMRAP percentage reps = SetScheme (percentage / 100) reps True 149setSchemeAMRAP percentage reps = SetScheme (percentage / 100) reps True
150 150
@@ -169,6 +169,7 @@ annotatePosition :: [a] -> [(ListPosition, a)]
169annotatePosition [] = undefined 169annotatePosition [] = undefined
170annotatePosition (x:xs) = (FirstInList, x) : map (NotFirstInList,) xs 170annotatePosition (x:xs) = (FirstInList, x) : map (NotFirstInList,) xs
171 171
172lookup' :: Int -> NESeq a -> a
172lookup' i seq = fromJust $ NESeq.lookup (i `mod` NESeq.length seq) seq 173lookup' i seq = fromJust $ NESeq.lookup (i `mod` NESeq.length seq) seq
173 174
174drawUI :: St -> [Widget ()] 175drawUI :: St -> [Widget ()]