From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001 From: hallgren Date: Fri, 28 Aug 2015 13:59:43 +0000 Subject: Comment out some dead code found with -fwarn-unused-binds Also fixed some warnings and tightened some imports --- src/runtime/haskell/PGF/OldBinary.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/runtime/haskell/PGF/OldBinary.hs') 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 -- cgit v1.2.3