git.iko.soy/denis
on master help sign in
Cleaned up code
99add81iko
denis/src/Data/Channel/AnonymousChannel.hs−4
compare with master
unifiedsplit
@@ -17,11 +17,7 @@ import qualified Generics.SOP as SOP
17import qualified GHC.Generics as GHC
17import qualified GHC.Generics as GHC
18import Data.Aeson
18import Data.Aeson
19import Servant.Docs (ToSample, toSamples, samples)
19import Servant.Docs (ToSample, toSamples, samples)
20−import Data.Proxy
21import Data.Text (Text)
20import Data.Text (Text)
22−import Data.Function (on)
23−import Data.Time.Clock
24−import Data.Time.Calendar
25import qualified Data.Vector as V
21import qualified Data.Vector as V
26import Data.User
22import Data.User
27import qualified Data.Set as Set
23import qualified Data.Set as Set
denis/src/Data/Channel/NamedChannel.hs−3
@@ -20,9 +20,6 @@ import Data.Aeson
20import Servant.Docs (ToSample, toSamples, samples)
20import Servant.Docs (ToSample, toSamples, samples)
21import Data.Proxy
21import Data.Proxy
22import Data.Text (Text)
22import Data.Text (Text)
23−import Data.Function (on)
24−import Data.Time.Clock
25−import Data.Time.Calendar
26import qualified Data.Vector as V
23import qualified Data.Vector as V
27import Data.User
24import Data.User
28import qualified Data.Set as Set
25import qualified Data.Set as Set
denis/src/Data/Connection.hs−2
@@ -28,8 +28,6 @@ import Control.Monad.Except
28import Servant.Server
28import Servant.Server
29import Server.Error
29import Server.Error
30import Control.Monad.Trans.Control
30import Control.Monad.Trans.Control
31−import Squeal.PostgreSQL.Transaction
32−import Squeal.PostgreSQL.PQ
33
31
34type StaticPQ = PoolPQ Schema Handler
32type StaticPQ = PoolPQ Schema Handler
35
33
denis/src/Data/CyclicBuffer.hs+2
@@ -1,3 +1,5 @@
1+{-# OPTIONS_GHC -fno-warn-unused-top-binds #-}
2+
1module Data.CyclicBuffer (
3module Data.CyclicBuffer (
2 CyclicBuffer(elems),
4 CyclicBuffer(elems),
3 mkCyclicBuffer,
5 mkCyclicBuffer,
denis/src/Data/PostElement.hs+1
@@ -6,6 +6,7 @@
6 TypeApplications ,
6 TypeApplications ,
7 TypeOperators,
7 TypeOperators,
8 OverloadedStrings #-}
8 OverloadedStrings #-}
9+{-# OPTIONS_GHC -fno-warn-unused-top-binds #-}
9
10
10
11
11module Data.PostElement (
12module Data.PostElement (
denis/src/Server/API/Channels.hs−7
@@ -12,21 +12,14 @@ module Server.API.Channels (
12) where
12) where
13
13
14import Servant.API
14import Servant.API
15−import qualified Data.Post as P
16−import Data.Aeson
17import Server.App
15import Server.App
18import Servant.Server
16import Servant.Server
19import Data.Query
17import Data.Query
20import Data.User
18import Data.User
21import Data.Connection
19import Data.Connection
22−import Data.Word (Word64)
23−import Servant.Docs (ToSample, toSamples, samples)
24import Server.LimitingRequest
20import Server.LimitingRequest
25import Data.Channel.NamedChannel
21import Data.Channel.NamedChannel
26import Data.Channel.AnonymousChannel
22import Data.Channel.AnonymousChannel
27−
28−import Control.Monad.Reader (asks, lift)
29−import Squeal.PostgreSQL.Pool
30
23
31-- MARK: Implementation
24-- MARK: Implementation
32
25