Commit fa9490b3 authored by Tim Steenvoorden's avatar Tim Steenvoorden
Browse files

fix signum

parent ee63cf34
......@@ -5,9 +5,9 @@ import Algebra.Order
/// ## Signum
signum :: !a -> Sign | Ord a & Monoid a
signum x | x < zero = Positive
signum x | x < zero = Negative
| x == zero = Neutral
| x > zero = Negative
| otherwise = Positive
/// ## Absolute value
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment