fastfood-hs/app/Main.hs

module Main where

import System.Random

data Fastfood = Kapsalon
              | Pizza
              | Lasagne
              | Nachos
              | Durum
              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)