update

src/Aggreact/Authorization.hs

@@ -34,11 +34,11 @@ where
 
 import           Protolude
 
-import           Aggreact.User  (User,NewUser(..),Role(..))
+import           Aggreact.User  (NewUser (..), Role (..), User)
 
+import           Database.Store (Entity (..))
 import           Servant        (Handler)
 import           Servant.Errors (unauthorized)
-import Database.Store (Entity(..))
 
 data AuthorizationStrategy =
   Anybody

src/Aggreact/User.hs

@@ -156,7 +156,6 @@ instance ToField    Role where toField = toField . (show :: Role -> Text)
 instance (ToSQLiteFieldTypeList rest) => ToSQLiteFieldTypeList (Role ': rest) where
   toSqliteTypes _ = "TEXT":toSqliteTypes (Proxy :: Proxy rest)
 
-
 -- For HTTP
 deriving anyclass instance ToJSON NewUser
 deriving anyclass instance FromJSON NewUser

src/Database/Store.hs

@@ -68,7 +68,6 @@ import qualified Data.UUID           as UUID
 import qualified Generics.SOP        as SOP
 import           Servant.Auth.Server (FromJWT, ToJWT)
 import qualified Web.HttpApiData     as FormI
-import qualified Service.Service     as Serv
 
 -- | This is the ID type, it is like @Text@.
 instance StringConv UUID [Char] where strConv l = strConv l . UUID.toString