Silly fastfood thingy

app/Main.hs

@@ -0,0 +1,19 @@
+module Main where
+
+import System.Random
+
+data Fastfood = Friet
+              | Kapsalon
+              | Pizza
+              | Lasagne
+              deriving (Show, Eq, Ord, Enum, Read, Bounded)
+
+instance Random Fastfood where
+    randomR (a, b) g =
+        case randomR (fromEnum a, fromEnum b) g of
+            (x, g') -> (toEnum x, g')
+    random = randomR (minBound, maxBound)
+
+
+main :: IO ()
+main = print =<< (randomIO :: IO Fastfood)