mirror of
https://github.com/vale981/apheleia
synced 2025-03-06 01:51:41 -05:00
9 lines
191 B
Haskell
9 lines
191 B
Haskell
-- | Foo performs foo and sometimes bar.
|
|
|
|
foo :: Thoroughness -> Int -> Int
|
|
foo t x = if x > 20
|
|
then case t of
|
|
Thorough -> x + 50
|
|
Somewhat -> x + 20
|
|
NotAtAll -> 0
|
|
else 10 + 1
|