summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--hadrian/src/Stage.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/hadrian/src/Stage.hs b/hadrian/src/Stage.hs
index 7c9405c2b8..8f243ff8d7 100644
--- a/hadrian/src/Stage.hs
+++ b/hadrian/src/Stage.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
module Stage (Stage (..), stageString) where
import Development.Shake.Classes
@@ -28,4 +29,8 @@ instance NFData Stage
-- | Prettyprint a 'Stage'.
stageString :: Stage -> String
-stageString stage = "stage" ++ show (fromEnum stage)
+stageString = \case
+ Stage0 -> "stage0"
+ Stage1 -> "stage1"
+ Stage2 -> "stage2"
+ Stage3 -> "stage3"