diff --git a/lib/Hikaru/Form.hs b/lib/Hikaru/Form.hs
index 6cb07b33b329a758186765d0aba8df0deea6f7c5..b25a558294980ec78341001d120245584c8d7f09 100644
--- a/lib/Hikaru/Form.hs
+++ b/lib/Hikaru/Form.hs
@@ -128,7 +128,13 @@ where
     = NoteError
     | NoteNeutral
     | NoteSuccess
-    deriving (Eq, Ord)
+    deriving (Eq, Ord, Show)
+
+  instance Semigroup NoteLevel where
+    (<>) = min
+
+  instance Monoid NoteLevel where
+    mempty = NoteSuccess
 
 
   newtype FormT l m a