diff options
-rw-r--r-- | hadrian/src/Stage.hs | 7 |
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" |