From d45fd76e9aa2b930093a9f8919fb7548910adcd0 Mon Sep 17 00:00:00 2001
From: Petter Rasmussen <petter@hask.no>
Date: Sat, 20 Mar 2021 18:47:30 +0100
Subject: [PATCH] Move Pagination module from Model to Glot

---
 {Model => Glot}/Pagination.hs | 2 +-
 Handler/Api/Snippets.hs       | 2 +-
 Handler/Snippets.hs           | 2 +-
 Handler/UserSnippets.hs       | 2 +-
 Widget/Pagination.hs          | 2 +-
 glot.cabal                    | 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)
 rename {Model => Glot}/Pagination.hs (99%)

diff --git a/Model/Pagination.hs b/Glot/Pagination.hs
similarity index 99%
rename from Model/Pagination.hs
rename to Glot/Pagination.hs
index 89b67e3..e7abfd1 100644
--- a/Model/Pagination.hs
+++ b/Glot/Pagination.hs
@@ -1,4 +1,4 @@
-module Model.Pagination
+module Glot.Pagination
     ( Pagination(..)
     , paginationRequired
     , PageData(..)
diff --git a/Handler/Api/Snippets.hs b/Handler/Api/Snippets.hs
index 5151a82..b1230da 100644
--- a/Handler/Api/Snippets.hs
+++ b/Handler/Api/Snippets.hs
@@ -9,7 +9,7 @@ import qualified GHC.Generics as GHC
 import qualified Handler.Snippets as SnippetsHandler
 import qualified Handler.Snippet as SnippetHandler
 import qualified Handler.UserSnippets as UserSnippetsHandler
-import qualified Model.Pagination as Pagination
+import qualified Glot.Pagination as Pagination
 import qualified Util.Persistent as Persistent
 import qualified Util.Handler as HandlerUtils
 import qualified Data.Time.Format.ISO8601 as ISO8601
diff --git a/Handler/Snippets.hs b/Handler/Snippets.hs
index 9101471..6b6b993 100644
--- a/Handler/Snippets.hs
+++ b/Handler/Snippets.hs
@@ -3,7 +3,7 @@ module Handler.Snippets where
 import Import
 import Util.Handler (pageNo, title)
 import Widget.Pagination (paginationWidget)
-import qualified Model.Pagination as Pagination
+import qualified Glot.Pagination as Pagination
 import qualified Util.Persistent as Persistent
 import qualified Util.Snippet as Snippet
 import qualified Util.Multiline as Multiline
diff --git a/Handler/UserSnippets.hs b/Handler/UserSnippets.hs
index d510e9d..a29374c 100644
--- a/Handler/UserSnippets.hs
+++ b/Handler/UserSnippets.hs
@@ -3,7 +3,7 @@ module Handler.UserSnippets where
 import Import
 import Util.Handler (pageNo, titleConcat)
 import Widget.Pagination (paginationWidget)
-import qualified Model.Pagination as Pagination
+import qualified Glot.Pagination as Pagination
 import qualified Util.Persistent as Persistent
 import qualified Util.Snippet as Snippet
 import qualified Util.Multiline as Multiline
diff --git a/Widget/Pagination.hs b/Widget/Pagination.hs
index d4b592e..309ad52 100644
--- a/Widget/Pagination.hs
+++ b/Widget/Pagination.hs
@@ -3,7 +3,7 @@ module Widget.Pagination (
 ) where
 
 import Import
-import qualified Model.Pagination as Pagination
+import qualified Glot.Pagination as Pagination
 
 paginationWidget :: Route App -> Pagination.Pagination -> Int -> [(Text, Text)] -> Widget
 paginationWidget route pagination currentPage queryExtra =
diff --git a/glot.cabal b/glot.cabal
index 15f1ac7..e5028c5 100644
--- a/glot.cabal
+++ b/glot.cabal
@@ -33,7 +33,6 @@ library
                      Handler.Meta
                      Handler.Api.Snippets
                      Handler.Api.Run
-                     Model.Pagination
                      Util.Shakespare
                      Util.Handler
                      Util.Multiline
@@ -49,6 +48,7 @@ library
                      Widget.Share
                      Widget.CarbonAds
                      Yesod.Auth.Simple
+                     Glot.Pagination
                      Glot.Snippet
                      Glot.DockerRun
                      Glot.Language