first round with stan

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

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])

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