Commit 731b4957 authored by Ben Gamari's avatar Ben Gamari 🐢

real/compress2: Detabify

parent 09ac708a
...@@ -97,7 +97,7 @@ build_table lo hi ...@@ -97,7 +97,7 @@ build_table lo hi
= if lo > hi then = if lo > hi then
PTNil PTNil
else let mid = (lo + hi) `div` 2 in else let mid = (lo + hi) `div` 2 in
--trace (show (lo,hi,mid)) --trace (show (lo,hi,mid))
PT (toEnum mid) mid PTNil PT (toEnum mid) mid PTNil
(build_table lo (mid - 1)) (build_table lo (mid - 1))
(build_table (mid + 1) hi) (build_table (mid + 1) hi)
...@@ -4,7 +4,7 @@ module WriteRoutines (outputCodes) ...@@ -4,7 +4,7 @@ module WriteRoutines (outputCodes)
where where
--import GlaExts --import GlaExts
import GHC.Base ( Int(..), word2Int#, int2Word#, and#, or#, shiftL#, shiftRL# ) import GHC.Base ( Int(..), word2Int#, int2Word#, and#, or#, shiftL#, shiftRL# )
import Encode (CodeEvent(..)) import Encode (CodeEvent(..))
-- Start of code added for ghc -- Start of code added for ghc
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment