Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Snowdrift
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
1
Merge Requests
1
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
snowdrift
Snowdrift
Commits
b7012f6a
Commit
b7012f6a
authored
Mar 08, 2016
by
Bryan Richter
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Assuage pedantry
parent
d87478ba
Changes
4
Show whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
0 additions
and
113 deletions
+0
-113
Snowdrift.cabal
Snowdrift.cabal
+0
-46
app/SnowdriftProcessPayments.hs
app/SnowdriftProcessPayments.hs
+0
-41
config/models
config/models
+0
-13
src/Model/Project/Sql.hs
src/Model/Project/Sql.hs
+0
-13
No files found.
Snowdrift.cabal
View file @
b7012f6a
...
...
@@ -61,7 +61,6 @@ library
Handler.NewDesign
Handler.PostLogin
Handler.Project
Handler.ProjectBlog
Handler.ResetPassphrase
Handler.Simple
Handler.TH
...
...
@@ -88,7 +87,6 @@ library
Local.Ord
Model
Model.Application
Model.Blog
Model.Count
Model.Currency
Model.Issue
...
...
@@ -102,7 +100,6 @@ library
Model.Project
Model.Project.Signup
Model.Project.Signup.Internal
Model.Project.Sql
Model.ResetPassphrase
Model.Role
Model.Settings
...
...
@@ -125,7 +122,6 @@ library
View.ResetPassphrase
View.Time
View.User
Widgets.Doc
Widgets.Markdown
Widgets.Navbar
Widgets.Preview
...
...
@@ -254,48 +250,6 @@ executable Snowdrift
ghc-options: -threaded
-- executable SnowdriftProcessPayments {{{1
executable SnowdriftProcessPayments
if flag(library-only)
Buildable: False
if flag(dev)
ghc-options: -Wall -O0 -fobject-code
if flag(merge)
ghc-options: -Wall -Werror -O0 -fobject-code
default-language: Haskell2010
main-is: SnowdriftProcessPayments.hs
hs-source-dirs: app
build-depends: base
, blaze-builder
, bytestring
, fast-logger
, lifted-base
, monad-logger
, mtl
, persistent
, resourcet
, Snowdrift
, text
, time
, yesod
ghc-options: -threaded
default-extensions: TemplateHaskell
QuasiQuotes
OverloadedStrings
NoImplicitPrelude
MultiParamTypeClasses
TypeFamilies
GADTs
GeneralizedNewtypeDeriving
FlexibleContexts
EmptyDataDecls
NoMonomorphismRestriction
DeriveDataTypeable
ScopedTypeVariables
-- executable sendmail-mock {{{1
executable sendmail-mock
if flag(dev)
...
...
app/SnowdriftProcessPayments.hs
deleted
100644 → 0
View file @
d87478ba
import
Import
hiding
(
runDB
,
runSDB
)
import
Control.Monad.Logger
import
Control.Monad.Trans.Resource
import
Control.Monad.Writer
import
Yesod.Default.Config
import
qualified
Database.Persist.Sql
import
Settings
runDB
::
(
PersistConfig
c
,
MonadBaseControl
IO
m
,
MonadIO
m
)
=>
c
->
PersistConfigPool
c
->
PersistConfigBackend
c
(
ResourceT
(
LoggingT
m
))
a
->
m
a
runDB
dbconf
poolconf
sql
=
runStdoutLoggingT
$
runResourceT
$
Database
.
Persist
.
Sql
.
runPool
dbconf
sql
poolconf
runSDB
::
(
PersistConfig
c
,
MonadBaseControl
IO
m
,
MonadIO
m
)
=>
c
->
PersistConfigPool
c
->
WriterT
t
(
PersistConfigBackend
c
(
ResourceT
(
LoggingT
m
)))
b
->
m
b
runSDB
dbconf
poolconf
=
fmap
fst
.
runDB
dbconf
poolconf
.
runWriterT
main
::
IO
()
main
=
do
conf
<-
fromArgs
parseExtra
dbconf
<-
withYamlEnvironment
"config/postgresql.yml"
(
appEnv
conf
)
Database
.
Persist
.
Sql
.
loadConfig
>>=
Database
.
Persist
.
Sql
.
applyEnv
pool_conf
<-
Database
.
Persist
.
Sql
.
createPoolConfig
(
dbconf
::
Settings
.
PersistConf
)
now
<-
liftIO
getCurrentTime
runSDB
dbconf
pool_conf
$
do
projects
<-
lift
$
Mech
.
projectsToPay
now
lift
$
mapM_
(
Mech
.
payout
now
)
projects
Mech
.
rebalanceAllPledges
config/models
View file @
b7012f6a
...
...
@@ -241,19 +241,6 @@ DefaultTagColor
DatabaseVersion
lastMigration Int
PledgeFormRendered
ts UTCTime
order Text
project ProjectId
user UserId Maybe
SharesPledged
ts UTCTime
user UserId
project ProjectId
shares Int64
render PledgeFormRenderedId
Image
ts UTCTime
uploader UserId
...
...
src/Model/Project/Sql.hs
deleted
100644 → 0
View file @
d87478ba
module
Model.Project.Sql
where
import
Import
import
Model.Wiki.Sql
-- | Query that returns all WikiEdits made on any WikiPage on this Project
querProjectWikiEdits
::
ProjectId
->
SqlQuery
(
SqlExpr
(
Value
WikiEditId
))
querProjectWikiEdits
project_id
=
from
$
\
(
wp
`
InnerJoin
`
we
)
->
do
on_
(
wp
^.
WikiPageId
==.
we
^.
WikiEditPage
)
where_
(
exprWikiPageOnProject
wp
project_id
)
return
(
we
^.
WikiEditId
)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment