Merge pull request #1134 from geikha/beat-struct

[redo] fix beat function for "step sequencer" style notation (error on last fractional notes)

src/Sound/Tidal/UI.hs

@@ -1474,7 +1474,7 @@ __beat :: (Pattern (Pattern a) -> Pattern a) -> Time -> Time -> Pattern a -> Pat
 __beat usejoin t d p = usejoin $ compress (s, e) . pure <$> p
   where
     s = t' / d
-    e = (t' + 1) / d
+    e = min 1 $ (t' + 1) / d
     t' = t `mod'` d
 
 -- |