roguelike/src/Player.hs

{-# LANGUAGE TemplateHaskell #-}

module Player where

import Lens.Micro.TH (makeLenses)

data Player = Player
  { _x :: Int
  , _y :: Int
  }

makeLenses ''Player
Implemented optics in some data 2021-02-13 00:06:26 +00:00			`{-# LANGUAGE TemplateHaskell #-}`

First commit 2021-02-11 22:40:00 +00:00			`module Player where`

Implemented optics in some data 2021-02-13 00:06:26 +00:00			`import Lens.Micro.TH (makeLenses)`

			`data Player = Player`
			`{ _x :: Int`
			`, _y :: Int`
			`}`

			`makeLenses ''Player`