From 01bdb2ac8f7aee65768740a45351036938734767 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 4 Nov 2024 10:58:51 +0100 Subject: [PATCH] first round with stan --- src-server/Server/Communication/Send.hs | 4 +--- src-server/Server/Map.hs | 2 +- wizard-wipeout.cabal | 2 -- 3 files changed, 2 insertions(+), 6 deletions(-) diff --git a/src-server/Server/Communication/Send.hs b/src-server/Server/Communication/Send.hs index 05b727a..55e4503 100644 --- a/src-server/Server/Communication/Send.hs +++ b/src-server/Server/Communication/Send.hs @@ -35,13 +35,11 @@ import Linear import Network.Socket -import System.Random (randomRIO) - -- internal imports import Library.Types -import Server.Log (logPrintIO, logPrint) +import Server.Log (logPrintIO) import Server.Types -- | Sends a specified message through given socket to the client diff --git a/src-server/Server/Map.hs b/src-server/Server/Map.hs index cc88d1e..2e8d957 100644 --- a/src-server/Server/Map.hs +++ b/src-server/Server/Map.hs @@ -41,7 +41,7 @@ generateArena arenaRows arenaColumns spawnerChance = do : acc else pure acc - _ -> pure acc + _otherTiles -> pure acc ) [] ((,) <$> [1 .. arenaRows] <*> map fromIntegral [1 .. arenaColumns]) diff --git a/wizard-wipeout.cabal b/wizard-wipeout.cabal index 605266b..b3d3c57 100644 --- a/wizard-wipeout.cabal +++ b/wizard-wipeout.cabal @@ -15,8 +15,6 @@ extra-doc-files: CHANGELOG.md common warnings ghc-options: -Wall -threaded -rtsopts - -fwrite-ide-info - -hiedir=.hie library import: warnings