From f3f61dbbac715ad84b979c76b04c0de708583af6 Mon Sep 17 00:00:00 2001
From: Alex Mason <Alex.Mason@data61.csiro.au>
Date: Fri, 2 Sep 2016 15:46:23 +1000
Subject: [PATCH] Rename toProxy to toFormatProxy

---
 servant/src/Servant/API/Times.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/servant/src/Servant/API/Times.hs b/servant/src/Servant/API/Times.hs
index f2b8166c..a5c120b0 100644
--- a/servant/src/Servant/API/Times.hs
+++ b/servant/src/Servant/API/Times.hs
@@ -9,7 +9,7 @@
 
 module Servant.API.Times
     ( FTime(..)
-    , toProxy
+    , toFormatProxy
     , getFormat
     , renderTime
     , parseTime
@@ -78,11 +78,11 @@ instance (KnownSymbol format, T.ParseTime t) => FromHttpApiData (FTime format t)
     parseQueryParam = parseQueryParam >=> parseTime
 
 
-toProxy :: FTime format t -> Proxy format
-toProxy _ = Proxy
+toFormatProxy :: FTime format t -> Proxy format
+toFormatProxy _ = Proxy
 
 getFormat :: KnownSymbol format => FTime format t -> String
-getFormat t = symbolVal (toProxy t)
+getFormat t = symbolVal (toFormatProxy t)
 
 renderTime :: (KnownSymbol format, T.FormatTime t) => FTime format t -> String
 renderTime tt@(FTime t) = T.formatTime T.defaultTimeLocale (getFormat tt) t