nuttycom/aftok - Change NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC

Fix formatting with stylish-haskell.

Created by Kris Nuttycombe on March 5, 2016

NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC

Dependencies

In channels

main

Change contents

Replacement in lib/Aftok/Database.hs at line 1 [4.4936]

B:BD[4.4936] → [5.4456:4499]

{-# LANGUAGE GADTs, DeriveDataTypeable #-}

[4.4936]

[6.426]

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE ExplicitForAll     #-}
{-# LANGUAGE GADTs              #-}

Replacement in lib/Aftok/Database.hs at line 7 [4.4936]

B:BD[4.4986] → [7.817:838]

B:BD[7.838] → [8.5880:5900]

B:BD[8.5900] → [5.4500:4553]

import ClassyPrelude
import Control.Lens
import Data.AffineSpace
import Data.Thyme.Clock as C

[4.4986]

[9.6576]

import           ClassyPrelude
import           Control.Lens
import           Data.AffineSpace
import           Data.Thyme.Clock as C

Replacement in lib/Aftok/Database.hs at line 12 [4.4936]

B:BD[9.6577] → [10.1471:1548]

B:BD[10.1548] → [8.5901:5919]

import Aftok
import Aftok.Auction
import Aftok.Interval
import Aftok.TimeLog
import Aftok.Util

[9.6577]

[8.5919]

import           Aftok
import           Aftok.Auction
import           Aftok.Interval
import           Aftok.TimeLog
import           Aftok.Util

Replacement in lib/Aftok/Database.hs at line 62 [4.4936]
B:BD[5.5118] → [5.5118:5146]
```
instance Exception DBError 
```
[5.5118]
[5.5146]
```
instance Exception DBError
```

Replacement in lib/Aftok/Database.hs at line 65 [4.4936]

B:BD[5.5215] → [5.5215:5274]

raiseOpForbidden uid r = RaiseDBError (OpForbidden uid r)

[5.5215]

[5.5274]

raiseOpForbidden uid r = RaiseDBError (OpForbidden uid r)

Replacement in lib/Aftok/Database.hs at line 68 [4.4936]

B:BD[5.5316] → [5.5316:5369]

raiseSubjectNotFound = RaiseDBError SubjectNotFound

[5.5316]

[8.7338]

raiseSubjectNotFound = RaiseDBError SubjectNotFound

Replacement in lib/Aftok/Database.hs at line 94 [4.4936]
B:BD[8.7896] → [8.7896:7927]
```
  kps <- findUserProjects uid 
```
[8.7896]
[8.7927]
```
  kps <- findUserProjects uid
```
Replacement in lib/Aftok/Database.hs at line 96 [4.4936]
B:BD[8.7984] → [8.7984:7987]
```
  
```
[8.7984]
[8.7987]

Replacement in lib/Aftok/Database.hs at line 103 [4.4936]

B:BD[8.8378] → [8.8378:8438]

  fc $ if any (\(pid', _) -> pid' == pid) px 
    then act

[8.8378]

[5.5370]

  fc $ if any (\(pid', _) -> pid' == pid) px
    then act

Replacement in lib/Aftok/Database.hs at line 108 [4.4936]
B:BD[5.5498] → [5.5498:5534]
```
addUserToProject pid current new = 
```
[5.5498]
[5.5534]
```
addUserToProject pid current new =
```
Replacement in lib/Aftok/Database.hs at line 123 [4.4936]
B:BD[5.6088] → [5.6088:6104]
```
    Nothing -> 
```
[5.6088]
[5.6104]
```
    Nothing ->
```

Replacement in lib/Aftok/Database.hs at line 125 [4.4936]

B:BD[5.6140] → [5.6140:6221]

    Just i | t .-. (i ^. invitationTime) > fromSeconds (60 * 60 * 72 :: Int) ->

[5.6140]

[5.6221]

    Just i | t .-. (i ^. invitationTime) > fromSeconds (60 * 60 * 72 :: Int) ->

Replacement in lib/Aftok/Database.hs at line 127 [4.4936]
B:BD[5.6275] → [5.6275:6321]
```
    Just i | isJust (i ^. acceptanceTime) -> 
```
[5.6275]
[5.6321]
```
    Just i | isJust (i ^. acceptanceTime) ->
```
Replacement in lib/Aftok/Database.hs at line 129 [4.4936]
B:BD[5.6383] → [5.6383:6398]
```
    Just i -> 
```
[5.6383]
[5.6398]
```
    Just i ->
```

Replacement in lib/Aftok/Database.hs at line 136 [4.4936]

B:BD[8.8631] → [5.6462:6523]

createEvent p u l = withProjectAuth p u $ CreateEvent p u l

[8.8631]

[8.8691]

createEvent p u l = withProjectAuth p u $ CreateEvent p u l

Insertion in lib/Aftok/Json.hs at line 2 [12.19]
[11.3609]
[12.127]
```
{-# LANGUAGE RecordWildCards    #-}
```
Replacement in lib/Aftok/Json.hs at line 6 [12.19]
B:BD[12.156] → [12.156:177]
```
import ClassyPrelude
```
[12.156]
[13.1965]
```
import           ClassyPrelude
```

Replacement in lib/Aftok/Json.hs at line 8 [12.19]

B:BD[13.1966] → [13.1966:2000]

B:BD[13.2000] → [11.3610:3653]

import Control.Lens hiding ((.=))
import Data.Aeson 
import Data.Aeson.Types

[13.1966]

[11.3670]

import           Control.Lens                     hiding ((.=))
import           Data.Aeson
import           Data.Aeson.Types

Replacement in lib/Aftok/Json.hs at line 12 [12.19]

B:BD[11.3725] → [11.3725:3769]

B:BD[11.3769] → [14.1361:1438]

import qualified Data.ByteString.Char8 as C
import Data.Data
import Data.List.NonEmpty as L
import Data.Map.Strict as MS

[11.3725]

[12.231]

import qualified Data.ByteString.Char8            as C
import           Data.Data
import           Data.List.NonEmpty               as L
import           Data.Map.Strict                  as MS

Replacement in lib/Aftok/Json.hs at line 17 [12.19]

B:BD[12.232] → [10.1668:1746]

import Aftok
import Aftok.Database
import Aftok.Interval
import Aftok.TimeLog

[12.232]

[12.272]

import           Aftok
import           Aftok.Database
import           Aftok.Interval
import           Aftok.TimeLog

Replacement in lib/Aftok/Json.hs at line 22 [12.19]

B:BD[12.273] → [11.3770:3846]

import qualified Language.Haskell.TH as TH
import Language.Haskell.TH.Quote

[12.273]

[12.323]

import qualified Language.Haskell.TH              as TH
import           Language.Haskell.TH.Quote

Replacement in lib/Aftok/Json.hs at line 33 [12.19]

B:BD[11.4211] → [15.4183:4252]

versionParser = Version <$> P.decimal <*> (P.char '.' >> P.decimal)

[11.4211]

[11.4309]

versionParser = Version <$> P.decimal <*> (P.char '.' >> P.decimal)

Replacement in lib/Aftok/Json.hs at line 35 [12.19]
B:BD[13.2289] → [11.4455:4479]
```
version :: QuasiQuoter 
```
[11.4310]
[11.4479]
```
version :: QuasiQuoter
```
Replacement in lib/Aftok/Json.hs at line 52 [12.19]
B:BD[16.187] → [15.4469:4474]
```
{-| 
```
[16.187]
[15.4474]
```
{-|
```
Replacement in lib/Aftok/Json.hs at line 62 [12.19]
B:BD[15.4717] → [15.4717:4734]
```
unversion _ x = 
```
[15.4717]
[15.4734]
```
unversion _ x =
```
Replacement in lib/Aftok/Json.hs at line 74 [12.19]
B:BD[15.4979] → [15.4979:5006]
```
  let p (Version 1 0) = f 
```
[15.4979]
[15.5006]
```
  let p (Version 1 0) = f
```

Replacement in lib/Aftok/Json.hs at line 92 [12.19]

B:BD[11.5417] → [3.1103:1168]

         , "initiator"      .= tshow (p ^. (initiator._UserId))

[11.5417]

[3.1168]

         , "initiator"      .= tshow (p ^. (initiator._UserId))

Replacement in lib/Aftok/Json.hs at line 125 [12.19]
B:BD[15.5811] → [15.5811:5859]
```
  Payouts . MS.mapKeys BtcAddr <$> parseJSON v 
```
[15.5811]
[15.5859]
```
  Payouts . MS.mapKeys BtcAddr <$> parseJSON v
```
Replacement in lib/Aftok/Json.hs at line 128 [12.19]
B:BD[15.5925] → [15.5925:5950]
```
parseEventAmendment t = 
```
[15.5925]
[15.5950]
```
parseEventAmendment t =
```

Replacement in lib/Aftok/Json.hs at line 131 [12.19]

B:BD[15.6047] → [15.6047:6098]

B:BD[15.6098] → [3.1265:1331]

∅:D[3.1331] → [15.6166:6202]

B:BD[15.6166] → [15.6166:6202]

        addrText <- x .: "btcAddr" 
        maybe 
          (fail $ show addrText <> "is not a valid BTC address") 
          (pure . AddressChange t)

[15.6047]

[15.6202]

        addrText <- x .: "btcAddr"
        maybe
          (fail $ show addrText <> "is not a valid BTC address")
          (pure . AddressChange t)

Replacement in lib/Aftok/Json.hs at line 136 [12.19]
B:BD[15.6236] → [15.6236:6271]
```
      parseA x "metadataChange" = 
```
[15.6236]
[15.6271]
```
      parseA x "metadataChange" =
```
Replacement in lib/Aftok/Json.hs at line 138 [12.19]
B:BD[15.6317] → [15.6317:6341]
```
      parseA _ other = 
```
[15.6317]
[15.6341]
```
      parseA _ other =
```
Replacement in lib/Aftok/Json.hs at line 143 [12.19]
B:BD[15.6529] → [15.6529:6554]
```
  in unv1 "amendment" p 
```
[15.6529]
[15.6554]
```
  in unv1 "amendment" p
```
Insertion in server/Aftok/Snaplet/Projects.hs at line 1 [17.2363]
[17.2363]
[17.2364]
```
{-# LANGUAGE RecordWildCards #-}
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 6 [17.2363]
B:BD[17.2463] → [17.2463:2485]
```
import ClassyPrelude 
```
[17.2463]
[17.2485]
```
import           ClassyPrelude
```

Replacement in server/Aftok/Snaplet/Projects.hs at line 8 [17.2363]

B:BD[17.2486] → [5.8610:8630]

∅:D[5.8630] → [17.2533:2556]

B:BD[17.2533] → [17.2533:2556]

B:BD[17.2556] → [5.8631:8711]

B:BD[5.8711] → [2.839:897]

∅:D[2.897] → [5.8761:8816]

B:BD[5.8761] → [5.8761:8816]

import Control.Lens
import Data.Aeson as A
import Data.Attoparsec.ByteString (takeByteString)
import Data.Thyme.Clock as C
import Network.Mail.SMTP as SMTP
import Network.Mail.Mime
import System.IO (FilePath)
import Text.StringTemplate

[17.2486]

[5.8816]

import           Control.Lens
import           Data.Aeson                 as A
import           Data.Attoparsec.ByteString (takeByteString)
import           Data.Thyme.Clock           as C
import           Network.Mail.Mime
import           Network.Mail.SMTP          as SMTP
import           System.IO                  (FilePath)
import           Text.StringTemplate

Replacement in server/Aftok/Snaplet/Projects.hs at line 17 [17.2363]

∅:D[5.8817] → [10.2415:2450]

B:BD[17.2556] → [10.2415:2450]

B:BD[10.2450] → [5.8818:8839]

∅:D[5.8839] → [10.2450:2497]

B:BD[10.2450] → [10.2450:2497]

import Aftok
import Aftok.Database
import Aftok.QConfig
import Aftok.Snaplet
import Aftok.Snaplet.Auth

[5.8817]

[17.2650]

import           Aftok
import           Aftok.Database
import           Aftok.QConfig
import           Aftok.Snaplet
import           Aftok.Snaplet.Auth

Replacement in server/Aftok/Snaplet/Projects.hs at line 23 [17.2363]
B:BD[17.2651] → [17.2651:2688]
```
import Snap.Core
import Snap.Snaplet
```
[17.2651]
[17.2725]
```
import           Snap.Core
import           Snap.Snaplet
```
Replacement in server/Aftok/Snaplet/Projects.hs at line 58 [17.2363]
B:BD[5.9176] → [5.9176:9219]
```
  (Just u, Just p, invCode) <- snapEval $ 
```
[5.9176]
[5.9219]
```
  (Just u, Just p, invCode) <- snapEval $
```

Replacement in server/Aftok/Snaplet/Projects.hs at line 66 [17.2363]

B:BD[2.1024] → [2.1024:1063]

                       -> ProjectName

[2.1024]

[2.1063]

                       -> ProjectName

Replacement in server/Aftok/Snaplet/Projects.hs at line 69 [17.2363]

B:BD[2.1199] → [2.1199:1241]

                       -> InvitationCode

[2.1199]

[2.1241]

                       -> InvitationCode

Replacement in server/Aftok/Snaplet/Projects.hs at line 71 [17.2363]

B:BD[2.1273] → [2.1273:1332]

sendProjectInviteEmail cfg pn fromEmail toEmail invCode =

[2.1273]

[2.1332]

sendProjectInviteEmail cfg pn fromEmail toEmail invCode =

Replacement in server/Aftok/Snaplet/Projects.hs at line 74 [17.2363]

B:BD[2.1459] → [2.1459:1542]

  in  buildProjectInviteEmail (templatePath cfg) pn fromEmail toEmail invCode >>=

[2.1459]

[2.1542]

  in  buildProjectInviteEmail (templatePath cfg) pn fromEmail toEmail invCode >>=

Replacement in server/Aftok/Snaplet/Projects.hs at line 76 [17.2363]
B:BD[2.1575] → [2.1575:1578]
```
  
```
[2.1575]
[5.9687]

Replacement in server/Aftok/Snaplet/Projects.hs at line 78 [17.2363]

B:BD[5.9688] → [2.1579:1666]

buildProjectInviteEmail :: System.IO.FilePath 
                        -> ProjectName

[5.9688]

[2.1666]

buildProjectInviteEmail :: System.IO.FilePath
                        -> ProjectName

Replacement in server/Aftok/Snaplet/Projects.hs at line 82 [17.2363]

B:BD[2.1804] → [2.1804:1847]

                        -> InvitationCode

[2.1804]

[2.1847]

                        -> InvitationCode

Replacement in server/Aftok/Snaplet/Projects.hs at line 85 [17.2363]
∅:D[2.1953] → [5.9947:9991]
B:BD[5.9947] → [5.9947:9991]
```
  templates <- directoryGroup templatePath 
```
[2.1953]
[2.1954]
```
  templates <- directoryGroup templatePath
```

Replacement in server/Aftok/Snaplet/Projects.hs at line 92 [17.2363]

B:BD[2.2291] → [2.2291:2361]

                     setAttribute "inv_code" (renderInvCode invCode)

[2.2291]

[2.2361]

                     setAttribute "inv_code" (renderInvCode invCode)

Fix formatting with stylish-haskell.

Dependencies

In channels

Change contents

Replacement in lib/Aftok/Database.hs at line 1 [4.4936]

Replacement in lib/Aftok/Database.hs at line 7 [4.4936]

Replacement in lib/Aftok/Database.hs at line 12 [4.4936]

Replacement in lib/Aftok/Database.hs at line 62 [4.4936]

Replacement in lib/Aftok/Database.hs at line 65 [4.4936]

Replacement in lib/Aftok/Database.hs at line 68 [4.4936]

Replacement in lib/Aftok/Database.hs at line 94 [4.4936]

Replacement in lib/Aftok/Database.hs at line 96 [4.4936]

Replacement in lib/Aftok/Database.hs at line 103 [4.4936]

Replacement in lib/Aftok/Database.hs at line 108 [4.4936]

Replacement in lib/Aftok/Database.hs at line 123 [4.4936]

Replacement in lib/Aftok/Database.hs at line 125 [4.4936]

Replacement in lib/Aftok/Database.hs at line 127 [4.4936]

Replacement in lib/Aftok/Database.hs at line 129 [4.4936]

Replacement in lib/Aftok/Database.hs at line 136 [4.4936]

Insertion in lib/Aftok/Json.hs at line 2 [12.19]

Replacement in lib/Aftok/Json.hs at line 6 [12.19]

Replacement in lib/Aftok/Json.hs at line 8 [12.19]

Replacement in lib/Aftok/Json.hs at line 12 [12.19]

Replacement in lib/Aftok/Json.hs at line 17 [12.19]

Replacement in lib/Aftok/Json.hs at line 22 [12.19]

Replacement in lib/Aftok/Json.hs at line 33 [12.19]

Replacement in lib/Aftok/Json.hs at line 35 [12.19]

Replacement in lib/Aftok/Json.hs at line 52 [12.19]

Replacement in lib/Aftok/Json.hs at line 62 [12.19]

Replacement in lib/Aftok/Json.hs at line 74 [12.19]

Replacement in lib/Aftok/Json.hs at line 92 [12.19]

Replacement in lib/Aftok/Json.hs at line 125 [12.19]

Replacement in lib/Aftok/Json.hs at line 128 [12.19]

Replacement in lib/Aftok/Json.hs at line 131 [12.19]

Replacement in lib/Aftok/Json.hs at line 136 [12.19]

Replacement in lib/Aftok/Json.hs at line 138 [12.19]

Replacement in lib/Aftok/Json.hs at line 143 [12.19]

Insertion in server/Aftok/Snaplet/Projects.hs at line 1 [17.2363]

Replacement in server/Aftok/Snaplet/Projects.hs at line 6 [17.2363]

Replacement in server/Aftok/Snaplet/Projects.hs at line 8 [17.2363]

Replacement in server/Aftok/Snaplet/Projects.hs at line 17 [17.2363]

Replacement in server/Aftok/Snaplet/Projects.hs at line 23 [17.2363]

Replacement in server/Aftok/Snaplet/Projects.hs at line 58 [17.2363]