68 lines
1.9 KiB
Diff
68 lines
1.9 KiB
Diff
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
|
|
|
|
this method avoids needing to delete the entire file contents, so patch is
|
|
kept minimal
|
|
---
|
|
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
|
|
+++ b/persistent-template.cabal
|
|
@@ -30,6 +30,7 @@ library
|
|
ghc-options: -Wall
|
|
if impl(ghc >= 7.4)
|
|
cpp-options: -DGHC_7_4
|
|
+ hs-source-dirs: stub
|
|
|
|
test-suite test
|
|
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..dfbb874
|
|
--- /dev/null
|
|
+++ b/stub/Database/Persist/TH.hs
|
|
@@ -0,0 +1,21 @@
|
|
+{-# LANGUAGE RecordWildCards #-}
|
|
+{-# LANGUAGE CPP #-}
|
|
+{-# LANGUAGE OverloadedStrings #-}
|
|
+{-# LANGUAGE RankNTypes #-}
|
|
+{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-missing-fields #-}
|
|
+-- | 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
|
|
|