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

real/compress2: Detabify

parent 09ac708a
......@@ -97,7 +97,7 @@ build_table lo hi
= if lo > hi then
PTNil
else let mid = (lo + hi) `div` 2 in
--trace (show (lo,hi,mid))
--trace (show (lo,hi,mid))
PT (toEnum mid) mid PTNil
(build_table lo (mid - 1))
(build_table (mid + 1) hi)
......@@ -4,7 +4,7 @@ module WriteRoutines (outputCodes)
where
--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(..))
-- 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