rowan.a.tl/HushGP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

delete learnlens

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-01-29 14:50:05 -06:00
parent 048b7fc9fb
commit 0c9538e2f2
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/LearnLens.hs
View File

@ -1,30 +0,0 @@
{-# LANGUAGE TemplateHaskell #-}
module LearnLens where
import Control.Lens hiding (element)
import Control.Lens.TH
data Atom = Atom {_element :: String, _point :: Point} deriving (Show)
data Point = Point {_x :: Double, _Y :: Double} deriving (Show)
$(makeLenses ''Atom)
$(makeLenses ''Point)
myAtom :: Atom
myAtom = Atom "climberite" (Point 4.0 3.2)
shiftAtom :: Atom -> Atom
shiftAtom = over (point . x) (+ 1)
data Molecule = Molecule {_atoms :: [Atom]} deriving (Show)
$(makeLenses ''Molecule)
shiftMolecule :: Molecule -> Molecule
shiftMolecule = over (atoms . traverse . point . x) (+ 1)
-- Example without template haskell
defPoint :: Lens' Atom Point
defPoint = lens _point (\atom newPoint -> atom {_point = newPoint})