Tweaked comments

[summerofcode2018soln.git] / src / task1 / task1.hs

diff --git a/src/task1/task1.hs b/src/task1/task1.hs
index 071fe68f3d1310f88b1f35e42c83cbee92e9ae41..e7a4f4bacf3770fe7192a9296eaa84dafa58b2a1 100644 (file)
--- a/src/task1/task1.hs
+++ b/src/task1/task1.hs
@@ -2,13 +2,15 @@ import Data.List (foldl')        -- import the strict fold
 
 -- number of steps
 type Distance = Int
+
+-- easting, northing
 type Position = (Int, Int)
 
 -- the directions. See below for functions for turning
 data Direction = North | East | South | West 
     deriving (Enum, Show, Bounded, Eq)
 
--- direction, easting, northing
+-- the currenct state of a Mowmaster
 data Mowmaster = Mowmaster { direction :: Direction 
                            , position :: Position
                            } deriving (Show, Eq)