stuff

src/Control/Journal.hs

@@ -19,7 +19,8 @@ journalShow
   -> Maybe Int
   -> MateHandler [JournalEntry]
 journalShow (Just (uid, method)) mlimit moffset = do
-  if method `elem` [PrimaryPass, ChallengeResponse]
+  maySeeJournal <- checkCapability uid roleCanManageJournal
+  if method `elem` [PrimaryPass, ChallengeResponse] && maySeeJournal
   then do
     conn <- asks rsConnection
     selectJournalEntries mlimit moffset conn

src/Types/Settings.hs

@@ -0,0 +1,22 @@
+{-# LANGUAGE TypeFamilies #-}
+module Types.Settings where
+
+import qualified Data.Text as T
+
+data Settings = Settings
+  { settingsCurrency          :: T.Text
+  , settingsDecimalPlaces     :: Int
+  , settingsBlockRegistration :: Bool
+  }
+
+instance ToDatabase Settings where
+
+  data InTuple Settings = (T.Text, Int, Bool)
+
+  toDatabase (Settings currency places reg) = (currency, places, reg)
+
+instance FromDatabase Settins where
+
+  data OutTuple Settings = (T.Text, Int, Bool)
+
+  fromDatabase (currency, places, reg) = Settings currency places reg