diff --git a/src/Prelude.hs b/src/Prelude.hs
index 71d1297..09bc220 100644
--- a/src/Prelude.hs
+++ b/src/Prelude.hs
@@ -56,6 +56,7 @@ module Prelude
   ,enumFromThenTo
   -- Fractional
   ,(/)
+  , fromRational
   -- Integral
   ,fromIntegral
   ,fromInteger
@@ -384,6 +385,8 @@ class (Num a,Base.Fractional a) => Fractional a where
 
 instance Fractional Double
 
+fromRational :: Fractional a => Base.Rational -> a
+fromRational = ffi "%1"
 --------------------------------------------------------------------------------
 -- Integral