diff --git a/src/Command.hs b/src/Command.hs
index 7cb5690af..2e8b61a30 100644
--- a/src/Command.hs
+++ b/src/Command.hs
@@ -42,6 +42,9 @@ data CommandF f where
 
 type Command = Freer CommandF
 
+
+-- Evaluation
+
 runCommand :: Command a -> IO a
 runCommand = iterFreerA $ \ command yield -> case command of
   ReadFile path -> do