From 580e37ff64b47f46cbafe39e448847320295f591 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sat, 6 Nov 2021 12:15:01 -0400 Subject: refactor(gs/xanthous): Use a Word for the level number Using a signed Int here is a little silly, since we can never have negative levels. Change-Id: Ibe03be5014226e07dfa6f78d8360301bc1b7c9b1 Reviewed-on: https://cl.tvl.fyi/c/depot/+/3803 Reviewed-by: grfn Tested-by: BuildkiteCI --- users/grfn/xanthous/src/Xanthous/App.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'users/grfn/xanthous/src/Xanthous/App.hs') diff --git a/users/grfn/xanthous/src/Xanthous/App.hs b/users/grfn/xanthous/src/Xanthous/App.hs index 369f6ae2ff..bf6a63e086 100644 --- a/users/grfn/xanthous/src/Xanthous/App.hs +++ b/users/grfn/xanthous/src/Xanthous/App.hs @@ -566,7 +566,7 @@ showPanel panel = do -------------------------------------------------------------------------------- genLevel - :: Int -- ^ level number + :: Word -- ^ Level number, starting at 0 -> AppM Level genLevel _num = do let dims = Dimensions 80 80 -- cgit 1.4.1