diff --git a/SoccerFun/UI/GL.hs b/SoccerFun/UI/GL.hs
--- a/SoccerFun/UI/GL.hs
+++ b/SoccerFun/UI/GL.hs
@@ -35,13 +35,6 @@
 	initialise
 	playTape =<< liftM recordMatch (setupMatch t1 t2)
 
-setupMatch ∷ (Home → Field → Team) → (Home → Field → Team) → IO Match
-setupMatch t1 t2 = let
-		field = Field 70 105
-		team1 = t1 West field
-		team2 = t2 East field
-	in liftM (setMatchStart team1 team2 field (ivanovReferee field team1 team2) 1) newStdGen
-
 --	GL.initialDisplayCapabilities $= [GL.With GL.DisplayDouble, GL.With GL.DisplaySamples]
 --	GL.multisample $= GL.Enabled
 
diff --git a/SoccerFunGL.cabal b/SoccerFunGL.cabal
--- a/SoccerFunGL.cabal
+++ b/SoccerFunGL.cabal
@@ -1,5 +1,5 @@
 Name:           SoccerFunGL
-Version:        0.4
+Version:        0.4.1
 Copyright:      (c) 2010, Jan Rochel
 License:        BSD3
 License-File:   LICENSE