@@ -38,7 +38,7 @@ import Paths_cabal2nix ( version )
3838import System.Environment ( getArgs )
3939import System.IO ( hFlush, hPutStrLn, stdout, stderr )
4040import qualified Text.PrettyPrint.ANSI.Leijen as P2
41−import Text.PrettyPrint.HughesPJClass ( Doc, Pretty(..), text, vcat, hcat, semi )
41+import Text.PrettyPrint.HughesPJClass ( Doc, Pretty(..), text, vcat, hcat, semi, render, prettyShow )
4242
4343data Options = Options
4444 { optSha256 :: Maybe String
@@ -253,11 +253,7 @@ processPackage Options{..} pkg = do
253253 pure $ if optNixShellOutput then Left shell else Right deriv
254254
255255cabal2nix :: [String] -> IO ()
256−cabal2nix args = do
257− v <- cabal2nix' args
258− print $ case v of
259− Left shell -> shell
260− Right d -> pPrint d
256+cabal2nix = cabal2nix' >=> putStrLn . either render prettyShow
261257
262258readFlagList :: [String] -> FlagAssignment
263259readFlagList = mkFlagAssignment . map tagWithValue