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

fix signum

parent ee63cf34
...@@ -5,9 +5,9 @@ import Algebra.Order ...@@ -5,9 +5,9 @@ import Algebra.Order
/// ## Signum /// ## Signum
signum :: !a -> Sign | Ord a & Monoid a signum :: !a -> Sign | Ord a & Monoid a
signum x | x < zero = Positive signum x | x < zero = Negative
| x == zero = Neutral | x == zero = Neutral
| x > zero = Negative | otherwise = Positive
/// ## Absolute value /// ## 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