Register new users

src/Types.hs

@@ -1,5 +1,7 @@
 {-# Language NoImplicitPrelude #-}
 {-# Language DeriveGeneric #-}
+{-# Language TypeSynonymInstances #-}
+{-# Language FlexibleInstances #-}
 module Types where
 
 import ClassyPrelude
@@ -7,9 +9,13 @@ import Control.Monad.Logger
 import Configuration
 import Data.Pool (Pool)
 import Database.Selda.Backend (SeldaConnection)
+import Crypto.Random.Types (MonadRandom(..))
 
 data App = App { config :: Config
                , database :: Pool SeldaConnection }
          deriving (Generic)
 
 type AppM = LoggingT (ReaderT App IO)
+
+instance MonadRandom AppM where
+  getRandomBytes = lift . lift . getRandomBytes