mirror of
https://github.com/vale981/apheleia
synced 2025-03-05 09:31:40 -05:00
11 lines
216 B
Haskell
11 lines
216 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
|