summaryrefslogtreecommitdiff
path: root/standalone/no-th
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-02-22 17:25:57 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-02-22 17:25:57 -0400
commitdbc220a5e8c133502309ba9f3e6153bbfebe7b78 (patch)
tree2c89d59617719e72aea07a88ac1736a87c34b325 /standalone/no-th
parenta064f423f1bf957fb1d4899c43542d94dabaf15e (diff)
add a few exports used by generated code
Diffstat (limited to 'standalone/no-th')
-rw-r--r--standalone/no-th/haskell-patches/persistent-template_stub-out.patch38
1 files changed, 32 insertions, 6 deletions
diff --git a/standalone/no-th/haskell-patches/persistent-template_stub-out.patch b/standalone/no-th/haskell-patches/persistent-template_stub-out.patch
index e1079d7d7..506fa1add 100644
--- a/standalone/no-th/haskell-patches/persistent-template_stub-out.patch
+++ b/standalone/no-th/haskell-patches/persistent-template_stub-out.patch
@@ -1,4 +1,4 @@
-From 93431ffee852ead6a9354f91f911ce2cd1bde5b0 Mon Sep 17 00:00:00 2001
+From b22a4d77c1262f77ce4298b53ca90a138a14ceb7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sun, 22 Feb 2015 15:21:19 -0400
Subject: [PATCH] stub out TH
@@ -6,11 +6,24 @@ Subject: [PATCH] stub out TH
this method avoids needing to delete the entire file contents, so patch is
kept minimal
---
- persistent-template.cabal | 1 +
- stub/Database/Persist/TH.hs | 8 ++++++++
- 2 files changed, 9 insertions(+)
+ Database/Persist/TH.hs | 1 +
+ persistent-template.cabal | 1 +
+ stub/Database/Persist/TH.hs | 21 +++++++++++++++++++++
+ 3 files changed, 23 insertions(+)
create mode 100644 stub/Database/Persist/TH.hs
+diff --git a/Database/Persist/TH.hs b/Database/Persist/TH.hs
+index 43eb3ee..2172b77 100644
+--- a/Database/Persist/TH.hs
++++ b/Database/Persist/TH.hs
+@@ -35,6 +35,7 @@ module Database.Persist.TH
+ -- * Internal
+ , packPTH
+ , lensPTH
++ , plusPlus
+ ) where
+
+ import Prelude hiding ((++), take, concat, splitAt)
diff --git a/persistent-template.cabal b/persistent-template.cabal
index 59b4149..4705d97 100644
--- a/persistent-template.cabal
@@ -25,10 +38,10 @@ index 59b4149..4705d97 100644
type: exitcode-stdio-1.0
diff --git a/stub/Database/Persist/TH.hs b/stub/Database/Persist/TH.hs
new file mode 100644
-index 0000000..1833b2d
+index 0000000..dfbb874
--- /dev/null
+++ b/stub/Database/Persist/TH.hs
-@@ -0,0 +1,8 @@
+@@ -0,0 +1,21 @@
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE OverloadedStrings #-}
@@ -37,6 +50,19 @@ index 0000000..1833b2d
+-- | This module provides utilities for creating backends. Regular users do not
+-- need to use this module.
+module Database.Persist.TH where
++
++import Data.Text
++
++type Lens s t a b = forall f. Functor f => (a -> f b) -> s -> f t
++
++lensPTH :: (s -> a) -> (s -> b -> t) -> Lens s t a b
++lensPTH sa sbt afb s = fmap (sbt s) (afb $ sa s)
++
++packPTH :: String -> Text
++packPTH = pack
++#if !MIN_VERSION_text(0, 11, 2)
++{-# NOINLINE packPTH #-}
++#endif
--
2.1.4