Fix the naming of the faces and convert their comments to haddock form.

diff --git a/src/Face.hs b/src/Face.hs
index d93ebffba1457f873d7296f9f29cfd534dfcc749..6f7e99b8e3ed929165f66772e419d2911e074a80 100644 (file)
--- a/src/Face.hs
+++ b/src/Face.hs
@@ -29,7 +29,7 @@ instance ThreeDimensional Face where
     -- Too lazy to implement this right now.
     contains_point _ _ = False
 
--- The top face of the cube.
+-- | The top (in the direction of z) face of the cube.
 face0 :: Cube -> Face
 face0 c = Face c v0' v1' v2' v3'
     where
@@ -40,7 +40,7 @@ face0 c = Face c v0' v1' v2' v3'
       v2' = (center c) + (delta, -delta, delta)
       v3' = (center c) + (-delta, -delta, delta)
 
--- The right face of the cube.
+-- | The back (in the direction of x) face of the cube.
 face1 :: Cube -> Face
 face1 c = Face c v0' v1' v2' v3'
     where
@@ -52,7 +52,7 @@ face1 c = Face c v0' v1' v2' v3'
       v3' = (center c) + (delta, -delta, delta)
 
 
--- The bottom face of the cube.
+-- The bottom face (in the direction of -z) of the cube.
 face2 :: Cube -> Face
 face2 c = Face c v0' v1' v2' v3'
     where
@@ -64,7 +64,7 @@ face2 c = Face c v0' v1' v2' v3'
       v3' = (center c) + (delta, -delta, -delta)
 
 
--- The left face of the cube.
+-- | The front (in the direction of -x) face of the cube.
 face3 :: Cube -> Face
 face3 c = Face c v0' v1' v2' v3'
     where
@@ -76,7 +76,7 @@ face3 c = Face c v0' v1' v2' v3'
       v3' = (center c) + (-delta, -delta, -delta)
 
 
--- The front face of the cube.
+-- | The left (in the direction of -y) face of the cube.
 face4 :: Cube -> Face
 face4 c = Face c v0' v1' v2' v3'
     where
@@ -88,7 +88,7 @@ face4 c = Face c v0' v1' v2' v3'
       v3' = (center c) + (-delta, -delta, -delta)
 
 
--- The back face of the cube.
+-- | The right (in the direction of y) face of the cube.
 face5 :: Cube -> Face
 face5 c = Face c v0' v1' v2' v3'
     where