Add more demo data

ciukstar · Oct 12, 2023 · ef1d60b · ef1d60b
1 parent 059a7b6
commit ef1d60b
Show file tree

Hide file tree

Showing 32 changed files with 501 additions and 114 deletions.
diff --git a/messages/en.msg b/messages/en.msg
@@ -1,3 +1,5 @@
+OnlyEmployeesMaySeeRequests: Only employees may see requests
+YouAreNotAnEmployeeOfFacility: You are not an employee of this facility 
 InvalidBusinessTimeZone: Invalid business time zone
 InvalidBusinessTimeZoneOffset: Invalid business time zone offset
 InvalidBusinessAddress: Invalid business address

diff --git a/messages/fr.msg b/messages/fr.msg
@@ -1,3 +1,5 @@
+OnlyEmployeesMaySeeRequests: Seuls les employés peuvent voir les demandes
+YouAreNotAnEmployeeOfFacility: Vous n'êtes pas un employé de cet établissement
 InvalidBusinessTimeZone: Fuseau horaire professionnel non valide
 InvalidBusinessTimeZoneOffset: Décalage de fuseau horaire professionnel non valide
 InvalidBusinessAddress: Adresse professionnelle invalide

diff --git a/messages/ro.msg b/messages/ro.msg
@@ -1,3 +1,5 @@
+OnlyEmployeesMaySeeRequests: Doar angajații pot vedea cererile
+YouAreNotAnEmployeeOfFacility: Nu sunteți angajat al acestei unități
 InvalidBusinessTimeZone: Fus orar al afacerii nevalid
 InvalidBusinessTimeZoneOffset: Compensație nevalidă de fus orar al companiei
 InvalidBusinessAddress: Adresa companiei nevalidă

diff --git a/messages/ru.msg b/messages/ru.msg
@@ -1,3 +1,5 @@
+OnlyEmployeesMaySeeRequests: Запросы могут видеть только сотрудники
+YouAreNotAnEmployeeOfFacility: Вы не сотрудник этого учреждения
 InvalidBusinessTimeZone: Неверный часовой пояс компании
 InvalidBusinessTimeZoneOffset: Неверное смещение часового пояса компании
 InvalidBusinessAddress: Неверный адрес компании

diff --git a/src/Admin/Contacts.hs b/src/Admin/Contacts.hs
@@ -49,7 +49,7 @@ import Database.Esqueleto.Experimental
     ( selectOne, from, table, where_, val
     , (^.), (==.)
     )
-    
+
 import Model
     ( ContentsId, Contents (Contents, contentsContent)
     , EntityField (ContentsSection)
@@ -164,7 +164,7 @@ formContacts c extra = do
               x <- runDB $ selectOne $ do
                   y <- from $ table @Contents
                   where_ $ y ^. ContentsSection ==. val section
-                  return y 
+                  return y
               case x of
                 Just _ -> return $ Left MsgAlreadyExists
                 Nothing -> return $ Right text