From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 client/src/View/Category/Reducer.hs | 59 -------------------------------------
 1 file changed, 59 deletions(-)
 delete mode 100644 client/src/View/Category/Reducer.hs

(limited to 'client/src/View/Category/Reducer.hs')

diff --git a/client/src/View/Category/Reducer.hs b/client/src/View/Category/Reducer.hs
deleted file mode 100644
index 5ad0ddb..0000000
--- a/client/src/View/Category/Reducer.hs
+++ /dev/null
@@ -1,59 +0,0 @@
-module View.Category.Reducer
-  ( perPage
-  , reducer
-  , In(..)
-  ) where
-
-import           Data.Text    (Text)
-import qualified Data.Text    as T
-import           Reflex.Dom   (Dynamic, Event, MonadWidget)
-import qualified Reflex.Dom   as R
-
-import           Common.Model (CategoryPage)
-
-import           Loadable     (Loadable (..))
-import qualified Loadable     as Loadable
-import qualified Util.Ajax    as AjaxUtil
-import qualified Util.Either  as EitherUtil
-
-perPage :: Int
-perPage = 7
-
-data In t a b c = In
-  { _in_page           :: Event t Int
-  , _in_addCategory    :: Event t a
-  , _in_editCategory   :: Event t b
-  , _in_deleteCategory :: Event t c
-  }
-
-reducer :: forall t m a b c. MonadWidget t m => In t a b c -> m (Dynamic t (Loadable CategoryPage))
-reducer input = do
-
-  postBuild <- R.getPostBuild
-
-  currentPage <- R.holdDyn 1 (_in_page input)
-
-  let loadPage =
-        R.leftmost
-          [ 1 <$ postBuild
-          , _in_page input
-          , 1 <$ _in_addCategory input
-          , R.tag (R.current currentPage) (_in_editCategory input)
-          , R.tag (R.current currentPage) (_in_deleteCategory input)
-          ]
-
-  getResult <- AjaxUtil.get $ fmap pageUrl loadPage
-
-  R.holdDyn
-    Loading
-    (R.leftmost
-      [ Loading <$ loadPage
-      , Loadable.fromEither <$> getResult
-      ])
-
-  where
-    pageUrl p =
-      "api/categories?page="
-      <> (T.pack . show $ p)
-      <> "&perPage="
-      <> (T.pack . show $ perPage)
-- 
cgit v1.2.3