diff options
| author | hallgren <hallgren@chalmers.se> | 2015-08-28 13:59:43 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-08-28 13:59:43 +0000 |
| commit | 5bfaf10de597af504e6d2784309e533b09a6451c (patch) | |
| tree | c0aacba9c492304cb3b0f905aa05bbefa1599d2c /src/runtime/haskell/PGF/OldBinary.hs | |
| parent | f2952768d578309a8f75c7da417e3602c4d5e9e9 (diff) | |
Comment out some dead code found with -fwarn-unused-binds
Also fixed some warnings and tightened some imports
Diffstat (limited to 'src/runtime/haskell/PGF/OldBinary.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/OldBinary.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/runtime/haskell/PGF/OldBinary.hs b/src/runtime/haskell/PGF/OldBinary.hs index 9a65b0fa6..c727589f5 100644 --- a/src/runtime/haskell/PGF/OldBinary.hs +++ b/src/runtime/haskell/PGF/OldBinary.hs @@ -159,8 +159,8 @@ getArray get1 = toArray `fmap` getList' get1 toArray (n,xs) = listArray (0::Int,n-1) xs listToArray xs = toArray (length xs,xs) -getArray2 :: (IArray a1 (a2 Int e), IArray a2 e) => Get e -> Get (a1 Int (a2 Int e)) -getArray2 get1 = getArray (getArray get1) +--getArray2 :: (IArray a1 (a2 Int e), IArray a2 e) => Get e -> Get (a1 Int (a2 Int e)) +--getArray2 get1 = getArray (getArray get1) getList get1 = snd `fmap` getList' get1 |