ghc-core 0.2 → 0.3

raw patch · 2 files changed

+6/−3 lines, 2 files

Files

• ghc-core.cabal +3/−2
• ghc-core.hs +3/−1

@@ -1,5 +1,5 @@ name:           ghc-core-version:        0.2+version:        0.3 license:        BSD3 license-file:   LICENSE author:         Don Stewart@@ -9,7 +9,8 @@ synopsis:       Display GHC's core and assembly output in a pager description:    A convenient command line wrapper for GHC that displays                 GHC's optimised core and assembly output in a human-                readable, colourised manner, in a pager.+                readable, colourised manner, in a pager. Unix systems+                only, currently.                 .                 Usage:                  .

@@ -105,10 +105,12 @@     colourPrefs <- readColourPrefs      mv <- getEnvMaybe "PAGER"-    let less = case mv of Just s -> s ; _ -> "less"+    let less = case mv of Just s -> case s of "less" -> "less -f" ; _ -> s+                          _      -> "less -f"      strs' <- polish `fmap` compileWithCore (optGhcExe opts) args     (strs,tmps) <- do+        -- TODO this is a bit lazy on my part...         x <- readProcess "sh" ["-c","ls /tmp/ghc*/*.s | head -1"] []         case x of             Left _ -> return (strs', Nothing)