summaryrefslogtreecommitdiff
path: root/src/compiler/GF/Compile
diff options
context:
space:
mode:
Diffstat (limited to 'src/compiler/GF/Compile')
-rw-r--r--src/compiler/GF/Compile/PGFtoHaskell.hs9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/compiler/GF/Compile/PGFtoHaskell.hs b/src/compiler/GF/Compile/PGFtoHaskell.hs
index 24acc289a..f4e3a0297 100644
--- a/src/compiler/GF/Compile/PGFtoHaskell.hs
+++ b/src/compiler/GF/Compile/PGFtoHaskell.hs
@@ -56,21 +56,20 @@ haskPreamble gadt name =
"import Data.Monoid"
] else []) ++
[
- "import PGF hiding (Tree)",
- "import qualified PGF",
+ "import PGF",
"----------------------------------------------------",
"-- automatic translation from GF to Haskell",
"----------------------------------------------------",
"",
"class Gf a where",
- " gf :: a -> PGF.Tree",
- " fg :: PGF.Tree -> a",
+ " gf :: a -> Expr",
+ " fg :: Expr -> a",
"",
predefInst gadt "GString" "String" "unStr" "mkStr",
"",
predefInst gadt "GInt" "Int" "unInt" "mkInt",
"",
- predefInst gadt "GFloat" "Double" "unDouble" "mkDouble",
+ predefInst gadt "GFloat" "Double" "unFloat" "mkFloat",
"",
"----------------------------------------------------",
"-- below this line machine-generated",