pulsar/src/Item.hs

13 lines
239 B
Haskell

{-# LANGUAGE NoImplicitPrelude #-}
module Item where
import Numeric.Units.Dimensional.Prelude
class It where
bounds :: (Int, Int, Int)
volume :: Volume Integer
mass :: Mass Integer
class It => We where
damage :: [(Aspect, Int)]