From 4ebb6be4ba5622c17523408936d811dffd8431b7 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Sun, 22 Nov 2015 02:45:05 +0100
Subject: [PATCH] Update haddock example for the new format API

This should have been updated in ba39d331, but better late than never.
---
 Data/Prefix/Units.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Data/Prefix/Units.hs b/Data/Prefix/Units.hs
index 9babe6c..65377da 100644
--- a/Data/Prefix/Units.hs
+++ b/Data/Prefix/Units.hs
@@ -66,11 +66,11 @@ float\/doubles this is 'fromRational', for integral types this is
 
 A few examples are given below:
 
->>> showValue (Left FormatBinary) 2048
+>>> showValue FormatBinary 2048
 "2.0Ki"
->>> showValue (Left FormatSiAll) 0.0001
+>>> showValue FormatSiAll 0.0001
 "100.0u"
->>> showValue (Right Mebi) 1048576
+>>> showValue (FormatFixed Mebi) 1048576
 "1Mi"
 >>> parseValue ParseExact "2.5Ki"::Either String Double
 Right 2560.0