HsParrot 0.0.2.20120717 → 0.0.2.20150805
raw patch · 3 files changed
+8/−5 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Language.PIR: dhGroup :: Decl -> !String
- Language.PIR: dhLang :: Decl -> !String
- Language.PIR: diFile :: Decl -> !FilePath
- Language.PIR: dnBody :: Decl -> ![Decl]
- Language.PIR: dnPackage :: Decl -> !PkgName
- Language.PIR: dsBody :: Decl -> ![Stmt]
- Language.PIR: dsFlags :: Decl -> ![SubFlag]
- Language.PIR: dsName :: Decl -> !SubName
- Language.PIR: instance [overlap ok] Emit Decl
- Language.PIR: instance [overlap ok] Emit Expression
- Language.PIR: instance [overlap ok] Emit Ins
- Language.PIR: instance [overlap ok] Emit LValue
- Language.PIR: instance [overlap ok] Emit Literal
- Language.PIR: instance [overlap ok] Emit ObjType
- Language.PIR: instance [overlap ok] Emit RegType
- Language.PIR: instance [overlap ok] Emit Stmt
- Language.PIR: instance [overlap ok] Emit SubFlag
- Language.PIR: instance [overlap ok] Emit [ArgFlag]
- Language.PIR: instance [overlap ok] Eq ArgFlag
- Language.PIR: instance [overlap ok] Eq Decl
- Language.PIR: instance [overlap ok] Eq Expression
- Language.PIR: instance [overlap ok] Eq Ins
- Language.PIR: instance [overlap ok] Eq LValue
- Language.PIR: instance [overlap ok] Eq Literal
- Language.PIR: instance [overlap ok] Eq ObjType
- Language.PIR: instance [overlap ok] Eq RegType
- Language.PIR: instance [overlap ok] Eq Sig
- Language.PIR: instance [overlap ok] Eq Stmt
- Language.PIR: instance [overlap ok] Eq SubFlag
- Language.PIR: instance [overlap ok] LiteralClass Bool
- Language.PIR: instance [overlap ok] LiteralClass Doc
- Language.PIR: instance [overlap ok] LiteralClass Double
- Language.PIR: instance [overlap ok] LiteralClass Int
- Language.PIR: instance [overlap ok] LiteralClass ObjType
- Language.PIR: instance [overlap ok] LiteralClass String
- Language.PIR: instance [overlap ok] LiteralClass [ArgFlag]
- Language.PIR: instance [overlap ok] LiteralClass [[ArgFlag]]
- Language.PIR: instance [overlap ok] RegClass Expression
- Language.PIR: instance [overlap ok] RegClass LValue
- Language.PIR: instance [overlap ok] RegClass Sig
- Language.PIR: instance [overlap ok] Show ArgFlag
- Language.PIR: instance [overlap ok] Show Decl
- Language.PIR: instance [overlap ok] Show Expression
- Language.PIR: instance [overlap ok] Show Ins
- Language.PIR: instance [overlap ok] Show LValue
- Language.PIR: instance [overlap ok] Show Literal
- Language.PIR: instance [overlap ok] Show ObjType
- Language.PIR: instance [overlap ok] Show RegType
- Language.PIR: instance [overlap ok] Show Sig
- Language.PIR: instance [overlap ok] Show Stmt
- Language.PIR: instance [overlap ok] Show SubFlag
- Language.PIR: instance [overlap ok] Typeable ArgFlag
- Language.PIR: instance [overlap ok] Typeable Decl
- Language.PIR: instance [overlap ok] Typeable Doc
- Language.PIR: instance [overlap ok] Typeable Expression
- Language.PIR: instance [overlap ok] Typeable Ins
- Language.PIR: instance [overlap ok] Typeable LValue
- Language.PIR: instance [overlap ok] Typeable Literal
- Language.PIR: instance [overlap ok] Typeable ObjType
- Language.PIR: instance [overlap ok] Typeable RegType
- Language.PIR: instance [overlap ok] Typeable Sig
- Language.PIR: instance [overlap ok] Typeable Stmt
- Language.PIR: instance [overlap ok] Typeable SubFlag
- Language.PIR: instance [overlap ok] YAML ArgFlag
- Language.PIR: instance [overlap ok] YAML Decl
- Language.PIR: instance [overlap ok] YAML Doc
- Language.PIR: instance [overlap ok] YAML Expression
- Language.PIR: instance [overlap ok] YAML Ins
- Language.PIR: instance [overlap ok] YAML LValue
- Language.PIR: instance [overlap ok] YAML Literal
- Language.PIR: instance [overlap ok] YAML ObjType
- Language.PIR: instance [overlap ok] YAML RegType
- Language.PIR: instance [overlap ok] YAML Sig
- Language.PIR: instance [overlap ok] YAML Stmt
- Language.PIR: instance [overlap ok] YAML SubFlag
- Language.PIR: sigFlags :: Sig -> [ArgFlag]
- Language.PIR: sigIdent :: Sig -> Expression
+ Language.PIR: [dhGroup] :: Decl -> !String
+ Language.PIR: [dhLang] :: Decl -> !String
+ Language.PIR: [diFile] :: Decl -> !FilePath
+ Language.PIR: [dnBody] :: Decl -> ![Decl]
+ Language.PIR: [dnPackage] :: Decl -> !PkgName
+ Language.PIR: [dsBody] :: Decl -> ![Stmt]
+ Language.PIR: [dsFlags] :: Decl -> ![SubFlag]
+ Language.PIR: [dsName] :: Decl -> !SubName
+ Language.PIR: [sigFlags] :: Sig -> [ArgFlag]
+ Language.PIR: [sigIdent] :: Sig -> Expression
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.ArgFlag
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.Decl
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.Expression
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.Ins
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.LValue
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.Literal
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.ObjType
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.RegType
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.Sig
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.Stmt
+ Language.PIR: instance DrIFT.YAML.YAML Language.PIR.SubFlag
+ Language.PIR: instance DrIFT.YAML.YAML Text.PrettyPrint.HughesPJ.Doc
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.ArgFlag
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.Decl
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.Expression
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.Ins
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.LValue
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.Literal
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.ObjType
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.RegType
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.Sig
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.Stmt
+ Language.PIR: instance GHC.Classes.Eq Language.PIR.SubFlag
+ Language.PIR: instance GHC.Show.Show Language.PIR.ArgFlag
+ Language.PIR: instance GHC.Show.Show Language.PIR.Decl
+ Language.PIR: instance GHC.Show.Show Language.PIR.Expression
+ Language.PIR: instance GHC.Show.Show Language.PIR.Ins
+ Language.PIR: instance GHC.Show.Show Language.PIR.LValue
+ Language.PIR: instance GHC.Show.Show Language.PIR.Literal
+ Language.PIR: instance GHC.Show.Show Language.PIR.ObjType
+ Language.PIR: instance GHC.Show.Show Language.PIR.RegType
+ Language.PIR: instance GHC.Show.Show Language.PIR.Sig
+ Language.PIR: instance GHC.Show.Show Language.PIR.Stmt
+ Language.PIR: instance GHC.Show.Show Language.PIR.SubFlag
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.Decl
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.Expression
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.Ins
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.LValue
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.Literal
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.ObjType
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.RegType
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.Stmt
+ Language.PIR: instance Language.PIR.Emit.Emit Language.PIR.SubFlag
+ Language.PIR: instance Language.PIR.Emit.Emit [Language.PIR.ArgFlag]
+ Language.PIR: instance Language.PIR.LiteralClass GHC.Base.String
+ Language.PIR: instance Language.PIR.LiteralClass GHC.Types.Bool
+ Language.PIR: instance Language.PIR.LiteralClass GHC.Types.Double
+ Language.PIR: instance Language.PIR.LiteralClass GHC.Types.Int
+ Language.PIR: instance Language.PIR.LiteralClass Language.PIR.ObjType
+ Language.PIR: instance Language.PIR.LiteralClass Text.PrettyPrint.HughesPJ.Doc
+ Language.PIR: instance Language.PIR.LiteralClass [Language.PIR.ArgFlag]
+ Language.PIR: instance Language.PIR.LiteralClass [[Language.PIR.ArgFlag]]
+ Language.PIR: instance Language.PIR.RegClass Language.PIR.Expression
+ Language.PIR: instance Language.PIR.RegClass Language.PIR.LValue
+ Language.PIR: instance Language.PIR.RegClass Language.PIR.Sig
- Language.PIR: InsComment :: !String -> !Maybe Ins -> Ins
+ Language.PIR: InsComment :: !String -> !(Maybe Ins) -> Ins
- Language.PIR: InsPrim :: !Maybe LValue -> !PrimName -> ![Expression] -> Ins
+ Language.PIR: InsPrim :: !(Maybe LValue) -> !PrimName -> ![Expression] -> Ins
- Language.PIR: arg0 :: RegClass a => a
+ Language.PIR: arg0 :: (RegClass a) => a
- Language.PIR: arg1 :: RegClass a => a
+ Language.PIR: arg1 :: (RegClass a) => a
- Language.PIR: arg2 :: RegClass a => a
+ Language.PIR: arg2 :: (RegClass a) => a
- Language.PIR: arg3 :: RegClass a => a
+ Language.PIR: arg3 :: (RegClass a) => a
- Language.PIR: class Show x => Emit x
+ Language.PIR: class (Show x) => Emit x
- Language.PIR: commaSep :: Emit x => [x] -> Doc
+ Language.PIR: commaSep :: (Emit x) => [x] -> Doc
- Language.PIR: emitArgs :: Emit a => [a] -> Doc
+ Language.PIR: emitArgs :: (Emit a) => [a] -> Doc
- Language.PIR: funPMC :: RegClass a => a
+ Language.PIR: funPMC :: (RegClass a) => a
- Language.PIR: nested :: Emit x => x -> Doc
+ Language.PIR: nested :: (Emit x) => x -> Doc
- Language.PIR: nullPMC :: RegClass a => a
+ Language.PIR: nullPMC :: (RegClass a) => a
- Language.PIR: rv :: RegClass a => a
+ Language.PIR: rv :: (RegClass a) => a
- Language.PIR: tempINT :: RegClass a => a
+ Language.PIR: tempINT :: (RegClass a) => a
- Language.PIR: tempINT2 :: RegClass a => a
+ Language.PIR: tempINT2 :: (RegClass a) => a
- Language.PIR: tempINT3 :: RegClass a => a
+ Language.PIR: tempINT3 :: (RegClass a) => a
- Language.PIR: tempINT4 :: RegClass a => a
+ Language.PIR: tempINT4 :: (RegClass a) => a
- Language.PIR: tempNUM :: RegClass a => a
+ Language.PIR: tempNUM :: (RegClass a) => a
- Language.PIR: tempNUM2 :: RegClass a => a
+ Language.PIR: tempNUM2 :: (RegClass a) => a
- Language.PIR: tempPMC :: RegClass a => a
+ Language.PIR: tempPMC :: (RegClass a) => a
- Language.PIR: tempPMC2 :: RegClass a => a
+ Language.PIR: tempPMC2 :: (RegClass a) => a
- Language.PIR: tempSTR :: RegClass a => a
+ Language.PIR: tempSTR :: (RegClass a) => a
- Language.PIR: tempSTR2 :: RegClass a => a
+ Language.PIR: tempSTR2 :: (RegClass a) => a
- Language.PIR: tempSTR3 :: RegClass a => a
+ Language.PIR: tempSTR3 :: (RegClass a) => a
Files
- HsParrot.cabal +3/−3
- src/Language/PIR.hs +2/−2
- src/Language/PIR/Emit.hs +3/−0
HsParrot.cabal view
@@ -1,5 +1,5 @@ Name: HsParrot-Version: 0.0.2.20120717+Version: 0.0.2.20150805 Category: Language, Pugs Synopsis: Haskell integration with Parrot virtual machine Description: Haskell integration with Parrot virtual machine@@ -9,10 +9,10 @@ License-File: LICENSE Author: Audrey Tang Maintainer: audreyt@audreyt.org-Copyright: Audrey Tang, 2008+Copyright: Audrey Tang, 2008-2015 Build-Type: Simple-Tested-With: GHC==6.8.2, GHC==6.8.3+Tested-With: GHC==6.8.2, GHC==6.8.3, GHC==7.10.2 cabal-version: >= 1.2.3 -- ghc-options: -F -pgmF pugs-DrIFT -optF-pgmF
src/Language/PIR.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE StandaloneDeriving #-} {- Generated by pugs-DrIFT (Automatic class derivations for Haskell) -} {-# LINE 1 "PIR.hs" #-} {-|@@ -979,8 +980,7 @@ instance YAML Doc where asYAML = asYAML . render-instance Typeable Doc where- typeOf _ = typeOf ()+deriving instance Typeable Doc ------------------------------------------------------------------------ {-* Generated by DrIFT : Look, but Don't Touch. *-}
src/Language/PIR/Emit.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} module Language.PIR.Emit ( Emit(..), nested, eqSep, commaSep,@@ -8,8 +9,10 @@ emit :: x -> Doc -- emit x = error ("Unrecognized construct: " ++ show x) +#if ! MIN_VERSION_pretty(1, 1, 2) instance Eq Doc where x == y = (render x) == (render y)+#endif instance Emit String where emit = text