Fix typo
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 29 Mar 2010 04:02:14 +0000 (04:02 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 29 Mar 2010 04:02:14 +0000 (04:02 +0000)
examples/regularArrays/FlatDim.hs

index f1a23be..e0cf790 100644 (file)
@@ -42,4 +42,4 @@ instance FShape FDIM2 where
 
        {-# INLINE fromIndex #-}
        fromIndex (FDIM2 n m) (I# ix)
-               = FDIM2 (ix `quotInt#` m) (ix `remInt#` n)
+               = FDIM2 (ix `quotInt#` m) (ix `remInt#` m)