Move Pagination module from Model to Glot

glotcode · Mar 20, 2021 · d45fd76 · d45fd76
1 parent e5aebac
commit d45fd76
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
diff --git a/Model/Pagination.hs → Glot/Pagination.hs b/Model/Pagination.hs → 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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