From 5c4e7802d729ab8d64ad7f58b37026a081a8b849 Mon Sep 17 00:00:00 2001
From: Correl Roush <correl@gmail.com>
Date: Mon, 22 Jan 2018 13:16:42 -0500
Subject: [PATCH] Ignore case when getting Link header

---
 src/Paginated.elm | 27 +++++++++++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

diff --git a/src/Paginated.elm b/src/Paginated.elm
index 01bb4e3..121e2f3 100644
--- a/src/Paginated.elm
+++ b/src/Paginated.elm
@@ -13,6 +13,7 @@ module Paginated
 
 {-| A library for Facilitates fetching data from a paginated JSON API.
 
+
 # Requests and Responses
 
 @docs Request, Response, get, post
@@ -39,6 +40,7 @@ module Paginated
 
 -}
 
+import Char
 import Dict exposing (Dict)
 import Http
 import Json.Decode exposing (Decoder)
@@ -186,12 +188,18 @@ fromResponse options response =
                 (Json.Decode.list options.decoder)
                 response.body
 
+        normalize : Dict String String -> Dict String String
+        normalize =
+            Dict.toList
+                >> Dict.fromList
+
+        nextPage : Maybe String
         nextPage =
-            Dict.get "Link" response.headers
+            header "Link" response.headers
                 |> Maybe.map Paginated.Util.links
                 |> Maybe.andThen (Dict.get "next")
     in
-        case nextPage of
+        case Debug.log "nextPage" nextPage of
             Nothing ->
                 Result.map Complete items
 
@@ -200,3 +208,18 @@ fromResponse options response =
                     (Partial (request { options | url = url }))
                     items
 
+
+{-| Look up a header (case-insensitive)
+-}
+header : String -> Dict String String -> Maybe String
+header header headers =
+    let
+        normalized =
+            Dict.toList headers
+                |> List.map (\( k, v ) -> ( String.map Char.toLower k, v ))
+                |> Dict.fromList
+
+        key =
+            String.map Char.toLower header
+    in
+        Dict.get key normalized