removes compatibility dependency, filters apps/versions based off of user agent header

src/Lib/Error.hs

@@ -8,7 +8,8 @@ import           Yesod.Core
 
 type S9ErrT m = ExceptT S9Error m
 
-data S9Error = PersistentE Text deriving (Show, Eq)
+data S9Error = PersistentE Text
+    deriving (Show, Eq)
 
 instance Exception S9Error
 
@@ -17,8 +18,7 @@ toError :: S9Error -> Error
 toError = \case
     PersistentE t -> Error DATABASE_ERROR t
 
-data ErrorCode =
-      DATABASE_ERROR
+data ErrorCode = DATABASE_ERROR
     deriving (Eq, Show)
 instance ToJSON ErrorCode where
     toJSON = String . show
@@ -26,12 +26,10 @@ instance ToJSON ErrorCode where
 data Error = Error
     { errorCode    :: ErrorCode
     , errorMessage :: Text
-    } deriving (Eq, Show)
+    }
+    deriving (Eq, Show)
 instance ToJSON Error where
-    toJSON Error{..} = object
-        [ "code" .= errorCode
-        , "message" .= errorMessage
-        ]
+    toJSON Error {..} = object ["code" .= errorCode, "message" .= errorMessage]
 instance ToContent Error where
     toContent = toContent . toJSON
 instance ToTypedContent Error where
@@ -48,15 +46,15 @@ toStatus = \case
 
 handleS9ErrT :: MonadHandler m => S9ErrT m a -> m a
 handleS9ErrT action = runExceptT action >>= \case
-    Left e -> toStatus >>= sendResponseStatus $ e
+    Left  e -> toStatus >>= sendResponseStatus $ e
     Right a -> pure a
 
 handleS9ErrNuclear :: MonadIO m => S9ErrT m a -> m a
 handleS9ErrNuclear action = runExceptT action >>= \case
-    Left e -> throwIO e
+    Left  e -> throwIO e
     Right a -> pure a
 
-errOnNothing :: MonadHandler m => Status -> Text -> Maybe a -> m a 
+errOnNothing :: MonadHandler m => Status -> Text -> Maybe a -> m a
 errOnNothing status res entity = case entity of
     Nothing -> sendResponseStatus status res
-    Just a -> pure a
+    Just a  -> pure a