haskell-generate 0.2 → 0.2.1

raw patch · 3 files changed

+15/−2 lines, 3 files

Files

LICENSE +1/−1
haskell-generate.cabal +1/−1
src/Language/Haskell/Generate/Monad.hs +13/−0

LICENSE view

@@ -1,4 +1,4 @@-Copyright 2013 Benno Fünfstück+Copyright 2013-2014 Benno Fünfstück  All rights reserved.

haskell-generate.cabal view

@@ -1,5 +1,5 @@ name:          haskell-generate-version:       0.2+version:       0.2.1 license:       BSD3 category:      Code Generation, Language cabal-version: >= 1.10

src/Language/Haskell/Generate/Monad.hs view

@@ -3,6 +3,7 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE CPP #-} module Language.Haskell.Generate.Monad   ( Generate(..), ExpG   , runGenerate, newName@@ -61,7 +62,11 @@ caseE :: ExpG x -> [(Pat, ExpG t)] -> ExpG t caseE v alt = do   v' <- v+#if MIN_VERSION_haskell_src_exts(1,16,0)   +  alt' <- mapM (\(p,a) -> fmap (\a' -> Alt noLoc p (UnGuardedRhs $ runExpression a') (BDecls [])) a) alt+#else     alt' <- mapM (\(p,a) -> fmap (\a' -> Alt noLoc p (UnGuardedAlt $ runExpression a') (BDecls [])) a) alt+#endif   return $ Expression $ Case (runExpression v') alt'  -- | Import a function from a module. This function is polymorphic in the type of the resulting expression, @@ -205,7 +210,11 @@  -- | Generate a ExportSpec for a given function item. exportFun :: FunRef t -> ExportSpec +#if MIN_VERSION_haskell_src_exts(1,16,0) +exportFun (FunRef name) = EVar NoNamespace (UnQual name)  +#else exportFun (FunRef name) = EVar (UnQual name)+#endif  -- | Add a declaration to the module. Return a reference to it that can be used to either apply the function to some values or export it. addDecl :: Name -> ExpG t -> ModuleM (FunRef t)@@ -217,7 +226,11 @@ -- | Extract the Module from a module generator. runModuleM :: ModuleG -> String -> Module runModuleM (ModuleM act) name = +#if MIN_VERSION_haskell_src_exts(1,16,0) +  Module noLoc (ModuleName name) [] Nothing export (map (\md -> ImportDecl noLoc md True False False Nothing Nothing Nothing) $ S.toList imps) decls+#else   Module noLoc (ModuleName name) [] Nothing export (map (\md -> ImportDecl noLoc md True False Nothing Nothing Nothing) $ S.toList imps) decls+#endif   where (export, (imps, decls)) = runWriter act  -- | Generate the source code for a module.