diff options
Diffstat (limited to 'hadrian/src')
| -rw-r--r-- | hadrian/src/Way/Type.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/hadrian/src/Way/Type.hs b/hadrian/src/Way/Type.hs index 5945d48137..4a719eb501 100644 --- a/hadrian/src/Way/Type.hs +++ b/hadrian/src/Way/Type.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE DerivingStrategies #-} module Way.Type where import Data.IntSet (IntSet) @@ -37,9 +39,10 @@ instance Read WayUnit where "dyn" -> [(Dynamic,"")] _ -> [] --- | Collection of 'WayUnit's that stands for the different ways source code +-- | Collection of 'WayUnit's that stands for the different ways source codeA -- is to be built. newtype Way = Way IntSet + deriving newtype (Semigroup, Monoid) instance Binary Way where put (Way w) = put w |