fixes for boot and sew

BootTidal.hs

@@ -3,11 +3,11 @@
 :set -XOverloadedStrings
 :set prompt ""
 
-default (Signal String, Integer, Double)
-
 -- Import all the boot functions and aliases.
 import Sound.Tidal.Boot
 
+default (Pattern String, Integer, Double)
+
 -- Create a Tidal Stream with the default settings.
 -- Use 'mkTidalWith' to customize these settings.
 tidalInst <- mkTidal

src/Sound/Tidal/Boot.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings     #-}
 
 module Sound.Tidal.Boot
   ( Tidally (..)
@@ -72,10 +72,10 @@ where
     along with this library.  If not, see <http://www.gnu.org/licenses/>.
 -}
 
-import Prelude hiding (all, (*>), (<*))
-import Sound.Tidal.Context hiding (mute, solo)
-import Sound.Tidal.ID (ID)
-import System.IO (hSetEncoding, stdout, utf8)
+import           Prelude             hiding (all, (*>), (<*))
+import           Sound.Tidal.Context
+import           Sound.Tidal.ID      (ID)
+import           System.IO           (hSetEncoding, stdout, utf8)
 
 -- | Functions using this constraint can access the in-scope Tidal instance.
 -- You must implement an instance of this in 'BootTidal.hs'. Note that GHC

src/Sound/Tidal/UI.hs

@@ -2179,7 +2179,7 @@ _pressBy r pat = squeezeJoin $ (compressTo (r,1) . pure) <$> pat
 sew :: Pattern Bool -> Pattern a -> Pattern a -> Pattern a
 -- Replaced with more efficient version below
 -- sew pb a b = overlay (mask pb a) (mask (inv pb) b)
-sew pb a b = Pattern $ pf
+sew pb a b = Pattern pf Nothing Nothing
   where pf st = concatMap match evs
           where evs = query pb st
                 parts = map part evs