justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup warnings

Browse Source
This commit is contained in:
justin
2021-05-17 22:39:18 +02:00
parent d7fcdbf550
commit 69f915a894
102 changed files with 1243 additions and 1185 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item.hs
+5 -4
View File
@@ -1,8 +1,7 @@
module Dodge.Item
where
import Dodge.Data
import Dodge.Base
--import Dodge.Base
import Dodge.Default
import Dodge.Picture
import Picture
@@ -14,7 +13,7 @@ keyToken n = defaultEquipment
, _itMaxStack = 5
, _itAmount = 1
, _itFloorPict = setDepth 0.5 keyPic
, _itEquipPict = \cr _ -> setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) keyPic
, _itEquipPict = \_ _ -> setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) keyPic
, _itEffect = NoItEffect
, _itHammer = HammerUp
, _itID = Nothing
@@ -24,6 +23,7 @@ keyToken n = defaultEquipment
, _itInvColor = yellow
, _itInvDisplay = _itName
}
keyPic :: Picture
keyPic = color green $
pictures [translate (-4) 0 $ thickCircle 4 2
,lineOfThickness 2 [(0,0),(8,0),(8,-4)]
@@ -37,7 +37,7 @@ latchkey n = defaultEquipment
, _itMaxStack = 1
, _itAmount = 1
, _itFloorPict = setDepth 0.5 latchkeyPic
, _itEquipPict = \cr _ -> setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
, _itEquipPict = \_ _ -> setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
, _itEffect = NoItEffect
, _itHammer = HammerUp
, _itID = Nothing
@@ -47,6 +47,7 @@ latchkey n = defaultEquipment
, _itInvColor = yellow
, _itInvDisplay = _itName
}
latchkeyPic :: Picture
latchkeyPic = color yellow $
pictures [translate (-4) 0 $ thickCircle 4 2
,lineOfThickness 2 [(0,0),(8,0),(8,-4)]