diff options
| author | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
| commit | 6313244eacf992fb10a5091bee28582e84540809 (patch) | |
| tree | 8208fb18a5e1ab9447bd060cf08a3d78ed0a8c0a /src/compiler/GF/Compile/PGFtoHaskell.hs | |
| parent | 8b5827fc892c2f395ae26f1811da2d4cc3b1669d (diff) | |
use the native unicode support from GHC 6.12
Diffstat (limited to 'src/compiler/GF/Compile/PGFtoHaskell.hs')
| -rw-r--r-- | src/compiler/GF/Compile/PGFtoHaskell.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/PGFtoHaskell.hs b/src/compiler/GF/Compile/PGFtoHaskell.hs index 252fc95ee..ecc70cb5e 100644 --- a/src/compiler/GF/Compile/PGFtoHaskell.hs +++ b/src/compiler/GF/Compile/PGFtoHaskell.hs @@ -22,7 +22,6 @@ import PGF.Macros import GF.Data.Operations import GF.Infra.Option -import GF.Text.UTF8 import Data.List --(isPrefixOf, find, intersperse) import qualified Data.Map as Map @@ -34,7 +33,7 @@ grammar2haskell :: Options -> String -- ^ Module name. -> PGF -> String -grammar2haskell opts name gr = encodeUTF8 $ foldr (++++) [] $ +grammar2haskell opts name gr = foldr (++++) [] $ pragmas ++ haskPreamble name ++ [types, gfinstances gId lexical gr'] where gr' = hSkeleton gr gadt = haskellOption opts HaskellGADT |