git.iko.soy/denis
on master help sign in
Cleaned up code
commit99add81fb830c1983d58e2f888e2c6898af04af6 authoriko <ilyakooo0@gmail.com> dateSat 13 Apr 2019, 23:21 (8 years ago) parent547dff4
6 files changed+3−16
compare with master
unifiedsplit
denis/src/Data/Channel/AnonymousChannel.hs−4 denis/src/Data/Channel/NamedChannel.hs−3 denis/src/Data/Connection.hs−2 denis/src/Data/CyclicBuffer.hs+2 denis/src/Data/PostElement.hs+1 denis/src/Server/API/Channels.hs−7
denis/src/Data/Channel/AnonymousChannel.hs−4
@@ -17,11 +17,7 @@ import qualified Generics.SOP as SOP
1717import qualified GHC.Generics as GHC
1818import Data.Aeson
1919import Servant.Docs (ToSample, toSamples, samples)
20−import Data.Proxy
2120import Data.Text (Text)
22−import Data.Function (on)
23−import Data.Time.Clock
24−import Data.Time.Calendar
2521import qualified Data.Vector as V
2622import Data.User
2723import qualified Data.Set as Set
denis/src/Data/Channel/NamedChannel.hs−3
@@ -20,9 +20,6 @@ import Data.Aeson
2020import Servant.Docs (ToSample, toSamples, samples)
2121import Data.Proxy
2222import Data.Text (Text)
23−import Data.Function (on)
24−import Data.Time.Clock
25−import Data.Time.Calendar
2623import qualified Data.Vector as V
2724import Data.User
2825import qualified Data.Set as Set
denis/src/Data/Connection.hs−2
@@ -28,8 +28,6 @@ import Control.Monad.Except
2828import Servant.Server
2929import Server.Error
3030import Control.Monad.Trans.Control
31−import Squeal.PostgreSQL.Transaction
32−import Squeal.PostgreSQL.PQ
3331
3432type StaticPQ = PoolPQ Schema Handler
3533
denis/src/Data/CyclicBuffer.hs+2
@@ -1,3 +1,5 @@
1+{-# OPTIONS_GHC -fno-warn-unused-top-binds #-}
2+
13module Data.CyclicBuffer (
24 CyclicBuffer(elems),
35 mkCyclicBuffer,
denis/src/Data/PostElement.hs+1
@@ -6,6 +6,7 @@
66 TypeApplications ,
77 TypeOperators,
88 OverloadedStrings #-}
9+{-# OPTIONS_GHC -fno-warn-unused-top-binds #-}
910
1011
1112module Data.PostElement (
denis/src/Server/API/Channels.hs−7
@@ -12,21 +12,14 @@ module Server.API.Channels (
1212) where
1313
1414import Servant.API
15−import qualified Data.Post as P
16−import Data.Aeson
1715import Server.App
1816import Servant.Server
1917import Data.Query
2018import Data.User
2119import Data.Connection
22−import Data.Word (Word64)
23−import Servant.Docs (ToSample, toSamples, samples)
2420import Server.LimitingRequest
2521import Data.Channel.NamedChannel
2622import Data.Channel.AnonymousChannel
27−
28−import Control.Monad.Reader (asks, lift)
29−import Squeal.PostgreSQL.Pool
3023
3124-- MARK: Implementation
3225