1 files changed, 10 insertions, 0 deletions
diff --git a/Haskell-book/16/Possibly.hs b/Haskell-book/16/Possibly.hs
new file mode 100644
index 0000000..bf92540
--- /dev/null
+++ b/Haskell-book/16/Possibly.hs
@@ -0,0 +1,10 @@
+module Possibly where
+
+data Possibly a =
+    LolNope
+  | Yeppers a
+  deriving (Eq, Show)
+
+instance Functor Possibly where
+    fmap f LolNope = LolNope
+    fmap f (Yeppers x) = Yeppers $ f x