diff --git a/essence-of-live-coding-gloss.cabal b/essence-of-live-coding-gloss.cabal
--- a/essence-of-live-coding-gloss.cabal
+++ b/essence-of-live-coding-gloss.cabal
@@ -1,5 +1,5 @@
 name:                essence-of-live-coding-gloss
-version:             0.2.7
+version:             0.2.8
 synopsis: General purpose live coding framework - Gloss backend
 description:
   essence-of-live-coding is a general purpose and type safe live coding framework.
@@ -32,7 +32,7 @@
 source-repository this
   type:     git
   location: https://github.com/turion/essence-of-live-coding.git
-  tag:      v0.2.7
+  tag:      v0.2.8
 
 library
   exposed-modules:
@@ -40,10 +40,10 @@
     LiveCoding.Gloss.Debugger
     LiveCoding.Gloss.PictureM
   build-depends:
-      base >= 4.11 && < 5
+      base >= 4.13 && < 4.21
     , syb >= 0.7
     , transformers >= 0.5
-    , essence-of-live-coding >= 0.2.7
+    , essence-of-live-coding >= 0.2.8
     , foreign-store >= 0.2
     , gloss >= 1.13
   hs-source-dirs:      src
diff --git a/src/LiveCoding/Gloss/Debugger.hs b/src/LiveCoding/Gloss/Debugger.hs
--- a/src/LiveCoding/Gloss/Debugger.hs
+++ b/src/LiveCoding/Gloss/Debugger.hs
@@ -23,13 +23,13 @@
 -- essence-of-live-coding-gloss
 import LiveCoding.Gloss.PictureM
 
-statePicture :: Data s => s -> Picture
+statePicture :: (Data s) => s -> Picture
 statePicture = translate (-100) 200 . scale 0.2 0.2 . color red . text . stateShow
 
 statePlay :: Debugger PictureM
 statePlay = Debugger $ liveCell $ every 2 >>> hold blank >>> arrM (lift . lift . tell)
 
-every :: Data s => Integer -> Cell (StateT s PictureM) () (Maybe Picture)
+every :: (Data s) => Integer -> Cell (StateT s PictureM) () (Maybe Picture)
 every maxN = proc () -> do
   n <- sumC -< 1
   if n `mod` maxN == 0
diff --git a/src/LiveCoding/Gloss/PictureM.hs b/src/LiveCoding/Gloss/PictureM.hs
--- a/src/LiveCoding/Gloss/PictureM.hs
+++ b/src/LiveCoding/Gloss/PictureM.hs
@@ -30,10 +30,10 @@
 
 -- | Run the effects of the gloss monad stack by explicitly passing events and pictures.
 runPictureT ::
-  Monad m =>
+  (Monad m) =>
   Cell (PictureT m) a b ->
   Cell m ([Event], a) (Picture, b)
 runPictureT = runWriterC . runReaderC'
 
-addPicture :: Monad m => Cell (PictureT m) Picture ()
+addPicture :: (Monad m) => Cell (PictureT m) Picture ()
 addPicture = arrM $ lift . tell