added haddock comments and default menu return value

2019-08-21 00:50:22 -04:00
parent 314b41b90b
commit 8f0bd22f90
2 changed files with 11 additions and 3 deletions
--- a/test/Types/MenuSpec.hs
+++ b/test/Types/MenuSpec.hs
@@ -36,7 +36,7 @@ menuSpec = describe "Menu"
 showSpec :: Spec
 showSpec = describe "show" $
  it "should display correctly" $ let
-    menu = Menu "Foo"
+    menu = Menu "Foo" ()
      [ MenuItem '1' "Item 1" $ return ()
      , MenuItem '2' "Item 2" $ return ()
      ]