diff --git a/board-games.cabal b/board-games.cabal
--- a/board-games.cabal
+++ b/board-games.cabal
@@ -1,5 +1,5 @@
 Name:             board-games
-Version:          0.4.0.2
+Version:          0.4.0.3
 License:          GPL
 License-File:     LICENSE
 Author:           Henning Thielemann <haskell@henning-thielemann.de>
@@ -44,16 +44,13 @@
   location: http://code.haskell.org/~thielema/games/
 
 Source-Repository this
-  tag:      0.4.0.2
+  tag:      0.4.0.3
   type:     darcs
   location: http://code.haskell.org/~thielema/games/
 
 Flag buildExamples
   description: build example web server that runs the games
 
-Flag splitBase
-  description: Choose the new smaller, split-up base package.
-
 Library
   Build-Depends:
     html >=1.0 && <1.1,
@@ -67,15 +64,11 @@
     combinatorial >=0.1 && <0.2,
     transformers >=0.2.2 && <0.7,
     enummapset >=0.1 && <0.8,
-    QuickCheck >=2 && <3
-  If flag(splitBase)
-    Build-Depends:
-      containers >=0.2 && <0.9,
-      random >=1 && <1.4,
-      array >=0.1 && <0.6,
-      base >= 2 && <5
-  Else
-    Build-Depends: base >= 1.0 && < 2
+    QuickCheck >=2 && <3,
+    containers >=0.2 && <0.9,
+    random >=1 && <1.4,
+    array >=0.1 && <0.6,
+    base >=4.11 && <5
 
   Default-Language: Haskell2010
   GHC-Options:      -Wall
diff --git a/src/Game/Labyrinth.hs b/src/Game/Labyrinth.hs
--- a/src/Game/Labyrinth.hs
+++ b/src/Game/Labyrinth.hs
@@ -65,7 +65,6 @@
 
 instance Monoid Board where
    mempty = Board 0
-   mappend = (<>)
 
 instance QC.Arbitrary Board where
    arbitrary = Board . (boardMask .&.) <$> QC.arbitrary
@@ -257,7 +256,6 @@
 
 instance Monoid a => Monoid (Directions a) where
    mempty = pure mempty
-   mappend = App.lift2 mappend
 
 instance Functor Directions where
    fmap f (Directions n w s e) = Directions (f n) (f w) (f s) (f e)
diff --git a/test/Test/Game/Labyrinth.hs b/test/Test/Game/Labyrinth.hs
--- a/test/Test/Game/Labyrinth.hs
+++ b/test/Test/Game/Labyrinth.hs
@@ -10,51 +10,51 @@
 
 test :: DocTest.T ()
 test = do
+ DocTest.printPrefix "Game.Labyrinth:137: "
+{-# LINE 137 "src/Game/Labyrinth.hs" #-}
+ DocTest.property(
+{-# LINE 137 "src/Game/Labyrinth.hs" #-}
+      \k b -> b == Labyrinth.shiftRowLeft k (Labyrinth.shiftRowRight k b)
+  )
  DocTest.printPrefix "Game.Labyrinth:138: "
 {-# LINE 138 "src/Game/Labyrinth.hs" #-}
  DocTest.property(
 {-# LINE 138 "src/Game/Labyrinth.hs" #-}
-      \k b -> b == Labyrinth.shiftRowLeft k (Labyrinth.shiftRowRight k b)
+      \k b -> b == Labyrinth.shiftRowRight k (Labyrinth.shiftRowLeft k b)
   )
- DocTest.printPrefix "Game.Labyrinth:139: "
-{-# LINE 139 "src/Game/Labyrinth.hs" #-}
+ DocTest.printPrefix "Game.Labyrinth:153: "
+{-# LINE 153 "src/Game/Labyrinth.hs" #-}
  DocTest.property(
-{-# LINE 139 "src/Game/Labyrinth.hs" #-}
-      \k b -> b == Labyrinth.shiftRowRight k (Labyrinth.shiftRowLeft k b)
+{-# LINE 153 "src/Game/Labyrinth.hs" #-}
+      \k b -> b == Labyrinth.shiftColumnUp k (Labyrinth.shiftColumnDown k b)
   )
  DocTest.printPrefix "Game.Labyrinth:154: "
 {-# LINE 154 "src/Game/Labyrinth.hs" #-}
  DocTest.property(
 {-# LINE 154 "src/Game/Labyrinth.hs" #-}
-      \k b -> b == Labyrinth.shiftColumnUp k (Labyrinth.shiftColumnDown k b)
+      \k b -> b == Labyrinth.shiftColumnDown k (Labyrinth.shiftColumnUp k b)
   )
- DocTest.printPrefix "Game.Labyrinth:155: "
-{-# LINE 155 "src/Game/Labyrinth.hs" #-}
+ DocTest.printPrefix "Game.Labyrinth:202: "
+{-# LINE 202 "src/Game/Labyrinth.hs" #-}
  DocTest.property(
-{-# LINE 155 "src/Game/Labyrinth.hs" #-}
-      \k b -> b == Labyrinth.shiftColumnDown k (Labyrinth.shiftColumnUp k b)
+{-# LINE 202 "src/Game/Labyrinth.hs" #-}
+      \k b -> b == Labyrinth.cycleRowLeft k (Labyrinth.cycleRowRight k b)
   )
  DocTest.printPrefix "Game.Labyrinth:203: "
 {-# LINE 203 "src/Game/Labyrinth.hs" #-}
  DocTest.property(
 {-# LINE 203 "src/Game/Labyrinth.hs" #-}
-      \k b -> b == Labyrinth.cycleRowLeft k (Labyrinth.cycleRowRight k b)
+      \k b -> b == Labyrinth.cycleRowRight k (Labyrinth.cycleRowLeft k b)
   )
- DocTest.printPrefix "Game.Labyrinth:204: "
-{-# LINE 204 "src/Game/Labyrinth.hs" #-}
+ DocTest.printPrefix "Game.Labyrinth:212: "
+{-# LINE 212 "src/Game/Labyrinth.hs" #-}
  DocTest.property(
-{-# LINE 204 "src/Game/Labyrinth.hs" #-}
-      \k b -> b == Labyrinth.cycleRowRight k (Labyrinth.cycleRowLeft k b)
+{-# LINE 212 "src/Game/Labyrinth.hs" #-}
+      \k b -> b == Labyrinth.cycleColumnUp k (Labyrinth.cycleColumnDown k b)
   )
  DocTest.printPrefix "Game.Labyrinth:213: "
 {-# LINE 213 "src/Game/Labyrinth.hs" #-}
  DocTest.property(
 {-# LINE 213 "src/Game/Labyrinth.hs" #-}
-      \k b -> b == Labyrinth.cycleColumnUp k (Labyrinth.cycleColumnDown k b)
-  )
- DocTest.printPrefix "Game.Labyrinth:214: "
-{-# LINE 214 "src/Game/Labyrinth.hs" #-}
- DocTest.property(
-{-# LINE 214 "src/Game/Labyrinth.hs" #-}
       \k b -> b == Labyrinth.cycleColumnDown k (Labyrinth.cycleColumnUp k b)
   )