diff options
| author | Chris Wells <chris@mathematicaster.org> | 2024-12-19 11:46:31 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2024-12-19 11:46:31 -0600 |
| commit | cbdb612f85355930ea7a6fbc453edbdf76715f69 (patch) | |
| tree | c71441d654c6727a49719c51e8ce16c9e9f0bb54 /src/Data/Name.hs | |
| parent | 23c9c4e32d2f54aae627c1cff7bc7fc91e771e3d (diff) | |
| download | cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.gz cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.bz2 cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.lz cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.xz cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.tar.zst cv-cbdb612f85355930ea7a6fbc453edbdf76715f69.zip | |
Thinking about doing this in haskell
Diffstat (limited to 'src/Data/Name.hs')
| -rw-r--r-- | src/Data/Name.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Data/Name.hs b/src/Data/Name.hs new file mode 100644 index 0000000..4553cdc --- /dev/null +++ b/src/Data/Name.hs @@ -0,0 +1,13 @@ +module Text.Name + ( Name (..) + ) where + +data Name a = Name + { lastName :: !a + , firstName :: !a + , middleName :: !(Maybe a) + } deriving (Eq, Foldable, Functor, Generic, Ord, Show, Traversable) + +instance Applicative Name where + pure x = Name x x (pure x) + Name l f m <*> Name x y z = Name (l x) (f y) (m <*> z) |