From 2ab7f6802350ff31052568dbd80f9ff80b252fb5 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 24 Oct 2022 20:48:20 -0400 Subject: type sigs --- repgoal.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'repgoal.hs') 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 data SetScheme = SetScheme { ratioMax :: Rational, numberOfReps :: Integer, amrap :: Bool } -setScheme :: Rational -> Integer -> SetScheme +setScheme, setSchemeAMRAP :: Rational -> Integer -> SetScheme setScheme percentage reps = SetScheme (percentage / 100) reps False setSchemeAMRAP percentage reps = SetScheme (percentage / 100) reps True @@ -169,6 +169,7 @@ annotatePosition :: [a] -> [(ListPosition, a)] annotatePosition [] = undefined annotatePosition (x:xs) = (FirstInList, x) : map (NotFirstInList,) xs +lookup' :: Int -> NESeq a -> a lookup' i seq = fromJust $ NESeq.lookup (i `mod` NESeq.length seq) seq drawUI :: St -> [Widget ()] -- cgit v1.2.3