-- $Id: ToHaskell.hs,v 1.3 2002/03/25 22:40:41 hallgren Exp $

{-
   This would be more naturally an implicit parameter, but since it is used in
   a method instance of Printable, the class would need to be changed to have
   an implicit parameter, which would pollute the definition of
   PrettyPrint.hs.
-}
module ToHaskell (toHaskell) where

import CommandLine


toHaskell :: Bool
toHaskell = let (flags, _, _) = commandLine
            in
                ToHaskell `elem` flags