diff options
| author | Eugen Wissner <belka@caraus.de> | 2025-12-11 10:28:11 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2025-12-11 10:28:11 +0100 |
| commit | 98329e0a3dd4f78b5d815ac3896272ec70904901 (patch) | |
| tree | 80f9c56cfe2ac20232358f236d32e84bd683be1b /Haskell-book/15/orphan-instance/Listy.hs | |
| parent | 3624c712d72d246f21d4e710cec7c11e052e0326 (diff) | |
| download | book-exercises-98329e0a3dd4f78b5d815ac3896272ec70904901.tar.gz | |
Add remaining haskell book exercises
Diffstat (limited to 'Haskell-book/15/orphan-instance/Listy.hs')
| -rw-r--r-- | Haskell-book/15/orphan-instance/Listy.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Haskell-book/15/orphan-instance/Listy.hs b/Haskell-book/15/orphan-instance/Listy.hs new file mode 100644 index 0000000..c99720a --- /dev/null +++ b/Haskell-book/15/orphan-instance/Listy.hs @@ -0,0 +1,10 @@ +module Listy where + +newtype Listy a = + Listy [a] + deriving (Eq, Show) + +instance Monoid (Listy a) where + mempty = Listy [] + mappend (Listy l) (Listy l') = + Listy $ mappend l l' |