diff --git a/Direct/GL.hs b/Direct/GL.hs
--- a/Direct/GL.hs
+++ b/Direct/GL.hs
@@ -32,13 +32,13 @@
 
 renderNode Root {} = return ()
 renderNode node = drawPorts node >> case node of
-	S  {} → drawNode "S"
-	K  {} → drawNode "K"
-	I {}  → drawNode "I"
-	Applicator {}  → drawNode "A"
-	Duplicator {}  → GL.preservingMatrix $ GL.renderPrimitive GL.LineLoop $ do
+	S {} → drawNode "S"
+	K {} → drawNode "K"
+	I {} → drawNode "I"
+	Applicator {} → drawNode "A"
+	Duplicator {} → GL.preservingMatrix $ GL.renderPrimitive GL.LineLoop $ do
 		vertex2 (0,-1)
 		vertex2 (-1,1)
 		vertex2 (1,1)
-	Eraser {}  → drawNode "E"
-	Variable {name = n}  → drawNode n
+	Eraser {} → drawNode "E"
+	Variable {name = n} → drawNode n
diff --git a/graph-rewriting-ski.cabal b/graph-rewriting-ski.cabal
--- a/graph-rewriting-ski.cabal
+++ b/graph-rewriting-ski.cabal
@@ -1,5 +1,5 @@
 Name:           graph-rewriting-ski
-Version:        0.5
+Version:        0.5.1
 Copyright:      (c) 2010, Jan Rochel
 License:        BSD3
 License-File:   LICENSE
@@ -22,18 +22,23 @@
 	parsec >= 2.1 && < 2.2,
 	GLUT >= 2.2 && < 2.3,
 	OpenGL >= 2.4 && < 2.5
-Extensions:
-	UnicodeSyntax
-	FlexibleInstances
-	FlexibleContexts
-	MultiParamTypeClasses
 
 Executable:     ski-inet
 Main-Is:        INet/Main.hs
 GHC-Options:    -fno-warn-duplicate-exports -fwarn-unused-imports
 Other-Modules:  Common.GL INet.GL INet.Graph INet.Rules Common.Term
+Extensions:
+	UnicodeSyntax
+	FlexibleInstances
+	FlexibleContexts
+	MultiParamTypeClasses
 
 Executable:     ski-direct
 Main-Is:        Direct/Main.hs
 GHC-Options:    -fno-warn-duplicate-exports -fwarn-unused-imports
 Other-Modules:  Common.GL Direct.GL Direct.Graph Direct.Rules Common.Term
+Extensions:
+	UnicodeSyntax
+	FlexibleInstances
+	FlexibleContexts
+	MultiParamTypeClasses