Skip to content

Commit

Permalink
Update to F# 6
Browse files Browse the repository at this point in the history
  • Loading branch information
ShalokShalom authored and alfonsogarciacaro committed Aug 16, 2022
1 parent b953725 commit 57c68c1
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions public/samples/games/undertone.fs
Original file line number Diff line number Diff line change
Expand Up @@ -236,8 +236,8 @@ module NoteSequencer =
if wanted = 0 then Seq.empty else
seq { use e = source.GetEnumerator()
let count = ref 0
while e.MoveNext() && !count < wanted do
incr count
while e.MoveNext() && count.Value < wanted do
count.Value <- count.Value + 1
yield e.Current }

// function that does a function the describes how a note should be played and list of chords
Expand Down Expand Up @@ -382,4 +382,4 @@ let baaBaaBlackSheepChorus =
yield! makeNote crotchet Note.D
yield! makeNote crotchet Note.C }

Html.loadSound baaBaaBlackSheepChorus
Html.loadSound baaBaaBlackSheepChorus

0 comments on commit 57c68c1

Please sign in to comment.