type sigs

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
 
 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 ()]