Merge pull request #24 from anttih/newtype

anttih · web-flow · commit 358f9a066a32 · 2017-04-24T21:03:59.000+03:00
Add runRational
diff --git a/src/Data/Rational.purs b/src/Data/Rational.purs
@@ -13,6 +13,9 @@ import Data.Ratio (Ratio(Ratio))
 
 newtype Rational = Rational (Ratio Int)
 
+runRational :: Rational -> Ratio Int
+runRational (Rational ratio) = ratio
+
 instance showRational :: Show Rational where
   show (Rational (Ratio a b)) = show a <> " % " <> show b
 
