Commit 06a974f3 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files


parent e2c67923
......@@ -160,7 +160,7 @@ instance Functor Flag where
instance Monoid (Flag a) where
mempty = NoFlag
_ `mappend` f@(Flag _) = f
f `mappend` NoFlag = f
f `mappend` NoFlag = f
instance Bounded a => Bounded (Flag a) where
minBound = toFlag minBound
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment