ormolu fixes

Author: Bongo50

src/Tablebot/Plugins/Roll/Dice/DiceData.hs

@@ -72,7 +72,7 @@ data ListValuesBase = LVBParen (Paren ListValues) | LVBList [Expr]
 
 -- | The type for a binary operator between one or more `sub` values
 data BinOp sub typ where
-  BinOp :: Operation typ => sub -> [(typ, sub)] -> BinOp sub typ
+  BinOp :: (Operation typ) => sub -> [(typ, sub)] -> BinOp sub typ
 
 deriving instance (Show sub, Show typ) => Show (BinOp sub typ)
 
@@ -85,7 +85,7 @@ pattern SingBinOp a <-
 
 -- | The type class that means we can get an operation on integers from a value.
 class Operation a where
-  getOperation :: a -> (forall n. Integral n => n -> n -> n)
+  getOperation :: a -> (forall n. (Integral n) => n -> n -> n)
 
 -- | The type of the top level expression.
 --

src/Tablebot/Plugins/Roll/Dice/DiceEval.hs

@@ -211,7 +211,7 @@ instance IOEvalList (MiscData ListValues) where
 
 -- | This type class gives a function which evaluates the value to an integer
 -- and a string.
-class ParseShow a => IOEval a where
+class (ParseShow a) => IOEval a where
   -- | Evaluate the given item to an integer, a string representation of the
   -- value, and the number of RNG calls it took. If the `a` value is a dice
   -- value, the values of the dice should be displayed. This function adds