ajhc-0.8.0.1: examples/Options.hs

import Jhc.Options
import Text.Printf

main :: IO ()
main = do
    printf "isWindows:      %s\n" (show isWindows)
    printf "isPosix:        %s\n" (show isPosix)
    printf "isBigEndian:    %s\n" (show isBigEndian)
    printf "isLittleEndian: %s\n" (show isLittleEndian)
    printf "Target:         %s\n" (show target)


instance Show Target where
    show Grin = "Grin"
    show GhcHs = "GhcHs"
    show DotNet = "DotNet"
    show Java = "Java"