Skip to content
Snippets Groups Projects
Commit c7a3dc29 authored by Douglas Wilson's avatar Douglas Wilson Committed by Marge Bot
Browse files

hadrian: Add Monoid instance to Way

parent f6a8185d
No related branches found
No related tags found
No related merge requests found
{-# 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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment