On Mon, 11 Apr 2011, Joel Burget wrote:

I should mention that I'm going to convert all the Storable instances from 
something
like this:
>  peek p = do
>    w <- (#peek aiQuaternion, w) p
>    x <- (#peek aiQuaternion, x) p
>    y <- (#peek aiQuaternion, y) p
>    z <- (#peek aiQuaternion, z) p
>    return $ Quaternion w x y z

to something like this:

>  peek p = Quaternion <$> (#peek aiQuaternion, w) p 
>                      <*> (#peek aiQuaternion, w) p 
>                      <*> (#peek aiQuaternion, w) p
>                      <*> (#peek aiQuaternion, w) p


I think it must be (pure Quaternion). I have written storable-record package that assists with writing such instances.

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to