tilia-0.1.0.0: corpora/vendored/declaration/value/comment-after-a-guard-bar.hs

module Tariff.Discount where

discount :: Int -> Bool -> Int
discount age student
  | -- children travel free
    age < 12 = 0
  | {- students -} student = 50
  | otherwise = 100