Update Servant example in README

mbg · Mar 30, 2022 · 4fca1af · 4fca1af
1 parent ca911cf
commit 4fca1af
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/README.md b/README.md
@@ -108,14 +108,16 @@ middleware conn = rateLimiting strategy{ strategyOnRequest = customHandler }
 The `Servant.RateLimit` module exports types for describing rate-limiting strategies and policies at the type-level. Consider the following API type specification:
 
 ```haskell
+import Data.Time.TypeLevel
+
 import Servant
 import Servant.RateLimit
 
 type TestAPI
-    = RateLimit (FixedWindow 2 50) (IPAddressPolicy "fixed:") :>
+    = RateLimit (FixedWindow ('Second 2) 50) (IPAddressPolicy "fixed:") :>
       "fixed-window" :>
       Get '[JSON] String
- :<|> RateLimit (SlidingWindow 2 50) (IPAddressPolicy "sliding:") :>
+ :<|> RateLimit (SlidingWindow ('Second 2) 50) (IPAddressPolicy "sliding:") :>
       "sliding-window" :>
       Get '[JSON] String
  :<|> "unrestricted" :>