diff --git a/Proj2.hs b/Proj2.hs
index 57d000c..deb4846 100644
--- a/Proj2.hs
+++ b/Proj2.hs
@@ -110,4 +110,4 @@ allNotes = [minBound .. maxBound]
 
 -- implement me
 nextGuess :: ([Pitch], GameState) -> (Int, Int, Int) -> ([Pitch], GameState)
-nextGuess _ _ = ([], [[]])
+nextGuess (prevGuess, chord : chords) _ = (chord, chords)