changed menu style

...to be closer to the original program's menu style
2020-01-22 20:59:09 -05:00
parent 4c7a756c5e
commit 72b6f05700
6 changed files with 96 additions and 96 deletions
--- a/test/Types/MenuSpec.hs
+++ b/test/Types/MenuSpec.hs
@@ -41,7 +41,7 @@ showSpec = describe "show" $
      , MenuItem '2' "Item 2" $ return ()
      ]
    expected =
-      "Foo\n\
-      \1) Item 1\n\
-      \2) Item 2\n"
+      "Foo\n\n\
+      \1: Item 1\n\
+      \2: Item 2\n"
    in show menu `shouldBe` expected