lensify AppState
This commit is contained in:
parent
696b17fae1
commit
21242ecbfa
|
@ -34,6 +34,7 @@ library
|
|||
build-depends:
|
||||
base >=4.7 && <5
|
||||
, brick >=2.1.1 && <2.2
|
||||
, microlens-th >=0.4.3.15 && <0.5
|
||||
, mtl >=2.3.1 && <2.4
|
||||
default-language: Haskell2010
|
||||
|
||||
|
@ -50,6 +51,7 @@ executable hamming
|
|||
base >=4.7 && <5
|
||||
, brick >=2.1.1 && <2.2
|
||||
, hamming
|
||||
, microlens-th >=0.4.3.15 && <0.5
|
||||
, mtl >=2.3.1 && <2.4
|
||||
default-language: Haskell2010
|
||||
|
||||
|
@ -70,5 +72,6 @@ test-suite hamming-test
|
|||
, brick >=2.1.1 && <2.2
|
||||
, hamming
|
||||
, hspec >=2.11.9 && <2.12
|
||||
, microlens-th >=0.4.3.15 && <0.5
|
||||
, mtl >=2.3.1 && <2.4
|
||||
default-language: Haskell2010
|
||||
|
|
|
@ -21,6 +21,7 @@ description: Please see the README on GitHub at <https://github.com/gith
|
|||
dependencies:
|
||||
- base >= 4.7 && < 5
|
||||
- brick >= 2.1.1 && < 2.2
|
||||
- microlens-th >= 0.4.3.15 && < 0.5
|
||||
- mtl >= 2.3.1 && < 2.4
|
||||
|
||||
ghc-options:
|
||||
|
|
|
@ -24,15 +24,24 @@ License along with this program. If not, see
|
|||
|
||||
|-}
|
||||
|
||||
module Hamming.App.Types (AppState (..), initialState) where
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
|
||||
module Hamming.App.Types (
|
||||
AppState (..),
|
||||
hammingCode,
|
||||
initialState
|
||||
) where
|
||||
|
||||
import Data.Word (Word16)
|
||||
import Lens.Micro.TH (makeLenses)
|
||||
|
||||
-- | The main state of the application
|
||||
data AppState = AppState
|
||||
{ hammingCode :: Word16
|
||||
{ _hammingCode :: Word16
|
||||
}
|
||||
|
||||
makeLenses ''AppState
|
||||
|
||||
-- | Initial application state
|
||||
initialState :: AppState
|
||||
initialState = AppState 0
|
||||
|
|
Loading…
Reference in New Issue
Block a user