Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.

1 files changed, 7 insertions, 5 deletions

diff --git a/src/server/Controller/Category.hs b/src/server/Controller/Category.hs
index 3f800da..1a44083 100644
--- a/src/server/Controller/Category.hs
+++ b/src/server/Controller/Category.hs
@@ -11,12 +11,14 @@ import Network.HTTP.Types.Status (ok200, badRequest400)
 import qualified Data.Text.Lazy as TL
 import Web.Scotty hiding (delete)
 
+import Common.Model.Category (CategoryId)
+import qualified Common.Message as Message
+import qualified Common.Message.Key as Key
+import qualified Common.Model.CreateCategory as Json
+import qualified Common.Model.EditCategory as Json
+
 import Json (jsonId)
-import Model.Category (CategoryId)
 import qualified Model.Category as Category
-import qualified Model.Json.CreateCategory as Json
-import qualified Model.Json.EditCategory as Json
-import qualified Model.Message.Key as Key
 import qualified Model.PaymentCategory as PaymentCategory
 import qualified Model.Query as Query
 import qualified Secure
@@ -49,5 +51,5 @@ delete categoryId =
         status ok200
       else do
         status badRequest400
-        text . TL.pack . show $ Key.CategoryNotDeleted
+        text . TL.fromStrict $ Message.get Key.Category_NotDeleted
   )