Treat numbers as literal Doc values

Author: tarleb

src/Foreign/Lua/Module/DocLayout.hs

@@ -237,6 +237,7 @@ docTypeName = "HsLua DocLayout.Doc"
 peekDoc :: StackIndex -> Lua (Doc Text)
 peekDoc idx = Lua.ltype idx >>= \case
   Lua.TypeString   -> Doc.literal <$> Lua.peek idx
+  Lua.TypeNumber   -> Doc.literal <$> Lua.peek idx
   _                -> Lua.reportValueOnFailure docTypeName
                         (`Lua.toAnyWithName` docTypeName)
                         idx

test/test-doclayout.lua

@@ -38,6 +38,10 @@ return {
       assert.are_equal(doclayout.render('hello world'), 'hello world')
     end),
 
+    test('numbers can be used as Doc values', function ()
+      assert.are_equal(doclayout.render(42), '42')
+    end),
+
     test('equality', function ()
       assert.is_truthy(doclayout.literal "true", doclayout.literal "true")
     end),