Merge pull request #27 from herrzinter/showable-ratios

Showable ratios

Author: anttih

src/Data/Ratio.purs

@@ -8,11 +8,15 @@ module Data.Ratio
 import Prelude ( class CommutativeRing, class Eq, class EuclideanRing
                , class Field, class Ring, class Semiring
                , one, zero, (*), (+), (-)
+               , class Show, show, (<>)
                )
 import Prelude ( gcd ) as Prelude
 
 data Ratio a = Ratio a a
 
+instance showRatio :: Show a => Show (Ratio a) where
+  show (Ratio a b) = "(Ratio " <> show a <> " " <> show b <> ")"
+
 instance semiringRatio :: Semiring a => Semiring (Ratio a) where
   one = Ratio one one
   mul (Ratio a b) (Ratio c d) = Ratio (a * c) (b * d)