fixed type class issues in Operation.hs

I get the following errors while trying to build:
```
src/Graphics/GPipe/Shader/Operations.hs:86:8:
    `IfB' is applied to too many type arguments
    In the class declaration for Real'
```

Looking at Data.Boolean.IfB, it only takes 1 type argument.

Line 86:
```haskell
class (IfB (RealBool a) a, OrdB (RealBool a) a, Floating a) => Real' a where
```
I believe should be:
```haskell
class (IfB (RealBool a), IfB a, OrdB (RealBool a), OrdB a, Floating a) => Real' a where
```
Or something....

Same with 
```haskell
while :: IfB (S c Bool) => (a -> S c Bool) -> (a -> a) -> a -> a
```
should be
```haskell
while :: (IfB (S c Bool), IfB a) => (a -> S c Bool) -> (a -> a) -> a -> a
```