nuttycom/aftok - Change 7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC

Fix linting errors. (yay hlint!)

Created by Kris Nuttycombe on October 6, 2015

7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC

Dependencies

In channels

main

Change contents

Replacement in lib/Aftok/Auction.hs at line 49 [4.5084]

B:BD[3.165] → [3.165:227]

          x : (takeWinningBids (total + (x ^. bidAmount)) xs)

[3.165]

[5.652]

          x : takeWinningBids (total + (x ^. bidAmount)) xs

Replacement in lib/Aftok/Auction.hs at line 55 [4.5084]

∅:D[3.403] → [6.581:677]

B:BD[6.581] → [6.581:677]

              remainderSeconds = Seconds . round $ winFraction * (toRational $ x ^. bidSeconds)

[3.403]

[7.925]

              remainderSeconds = Seconds . round $ winFraction * toRational (x ^. bidSeconds)

Replacement in lib/Aftok/Auction.hs at line 62 [4.5084]
B:BD[5.1147] → [3.404:454]
```
  in  takeWinningBids (fromInteger 0) $ sort bids
```
[5.1147]
```
  in  takeWinningBids 0 $ sort bids
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 174 [3.456]

B:BD[8.1808] → [9.975:1059]

  dbEval (FindEvent (EventId eid)) = do 
    logEntries <- pquery qdbLogEntryParser

[8.1808]

[9.1059]

  dbEval (FindEvent (EventId eid)) = 
    headMay <$> pquery qdbLogEntryParser

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 179 [3.456]
B:BD[9.1200] → [9.1200:1230]
```
    pure $ headMay logEntries
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 181 [3.456]
B:BD[9.1289] → [9.1289:1323]
```
    let q p (Before e) = pquery p
```
[9.1289]
[9.1323]
```
    let q (Before e) = pquery logEntryParser
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 185 [3.456]
∅:D[2.2836] → [9.1512:1548]
B:BD[9.1512] → [9.1512:1548]
```
        q p (During s e) = pquery p
```
[2.2836]
[9.1548]
```
        q (During s e) = pquery logEntryParser
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 190 [3.456]
∅:D[2.2884] → [9.1782:1815]
B:BD[9.1782] → [9.1782:1815]
```
        q p (After s) = pquery p
```
[2.2884]
[9.1815]
```
        q (After s) = pquery logEntryParser
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 194 [3.456]
∅:D[2.2919] → [9.2004:2034]
B:BD[9.2004] → [9.2004:2034]
```
    in  q logEntryParser ival
```
[2.2919]
[10.1083]
```
    in  q ival
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 214 [3.456]
B:BD[9.2942] → [2.2967:2986]
```
      (Only $ pid)
```
[9.2942]
[9.2966]
```
      (Only pid)
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 221 [3.456]

B:BD[9.3162] → [2.2987:3079]

      (pid ^. (_ProjectId), auc ^. (raiseAmount.to PBTC), auc ^. (auctionEnd.to fromThyme))

[9.3162]

[3.5182]

      (pid ^. _ProjectId, auc ^. (raiseAmount.to PBTC), auc ^. (auctionEnd.to fromThyme))

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 223 [3.456]

B:BD[3.5183] → [9.3240:3311]

  dbEval (FindAuction aucId) = do
    auctions <- pquery auctionParser

[3.5183]

[9.3311]

  dbEval (FindAuction aucId) = 
    headMay <$> pquery auctionParser

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 227 [3.456]
B:BD[9.3412] → [9.3412:3440]
```
    pure $ headMay auctions
```
Replacement in lib/Aftok/Database/PostgreSQL.hs at line 242 [3.456]
B:BD[9.3939] → [9.3939:3976]
```
      (Only $ (aucId ^. _AuctionId))
```
[9.3939]
[11.667]
```
      (Only (aucId ^. _AuctionId))
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 249 [3.456]

B:BD[12.705] → [9.4201:4270]

  dbEval (FindUser (UserId uid)) = do
    users <- pquery userParser

[12.705]

[9.4270]

  dbEval (FindUser (UserId uid)) = 
    headMay <$> pquery userParser

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 253 [3.456]
B:BD[9.4350] → [9.4350:4375]
```
    pure $ headMay users
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 254 [3.456]

B:BD[13.1369] → [9.4376:4454]

  dbEval (FindUserByName (UserName h)) = do
    users <- pquery qdbUserParser

[13.1369]

[9.4454]

  dbEval (FindUserByName (UserName h)) = 
    headMay <$> pquery qdbUserParser

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 258 [3.456]
B:BD[9.4540] → [9.4540:4565]
```
    pure $ headMay users
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 267 [3.456]

B:BD[8.3742] → [2.3557:3634]

  dbEval (FindInvitation ic) = do
    invitations <- pquery invitationParser

[8.3742]

[2.3634]

  dbEval (FindInvitation ic) = 
    headMay <$> pquery invitationParser

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 272 [3.456]
B:BD[2.3804] → [2.3804:3835]
```
    pure $ headMay invitations
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 290 [3.456]

B:BD[11.947] → [9.4843:4924]

  dbEval (FindProject (ProjectId pid)) = do
    projects <- pquery projectParser

[11.947]

[14.4]

  dbEval (FindProject (ProjectId pid)) = 
    headMay <$> pquery projectParser

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 294 [3.456]
B:BD[9.5026] → [9.5026:5054]
```
    pure $ headMay projects
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 303 [3.456]

B:BD[11.1043] → [9.5466:5532]

  dbEval (AddUserToProject pid current new) = do
    void $ pexec

[11.1043]

[9.5532]

  dbEval (AddUserToProject pid current new) = void $ 
    pexec

Replacement in lib/Aftok/Interval.hs at line 41 [16.1422]
B:BD[15.722] → [15.722:755]
```
ilen i = (_end i) .-. (_start i)
```
[15.722]
[17.120]
```
ilen i = _end i .-. _start i
```
Deletion in lib/Aftok/Json.hs at line 1 [18.19]
B:BD[18.19] → [19.1931:1964]
```
{-# LANGUAGE TemplateHaskell #-}
```

Replacement in lib/Aftok/Json.hs at line 83 [18.19]

B:BD[2.6666] → [2.6666:6721]

  object [ "projectId" .=  (tshow $ pid ^. _ProjectId)

[2.6666]

[8.5274]

  object [ "projectId" .=  tshow (pid ^. _ProjectId)

Replacement in lib/Aftok/Json.hs at line 91 [18.19]

B:BD[20.5417] → [10.1729:1797]

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

[20.5417]

[19.2560]

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

Replacement in lib/Aftok/Json.hs at line 100 [18.19]

∅:D[8.5449] → [11.1975:2061]

B:BD[11.1975] → [11.1975:2061]

  toJSON $ (L.toList . fmap intervalJSON) <$> (MS.mapKeysMonotonic (^._BtcAddr) widx)

[8.5449]

[11.2061]

  toJSON $ (L.toList . fmap intervalJSON) <$> MS.mapKeysMonotonic (^._BtcAddr) widx

Replacement in lib/Aftok/Json.hs at line 132 [18.19]

B:BD[8.6098] → [8.6098:6166]

          (fail $ (show addrText) <> "is not a valid BTC address")

[8.6098]

[8.6166]

          (fail $ show addrText <> "is not a valid BTC address")

Replacement in lib/Aftok/TimeLog.hs at line 118 [22.846]

B:BD[21.1012] → [15.1906:1977]

      (totalTime, keyTimes) = MS.mapAccum addIntervalDiff zeroV $ widx

[21.1012]

[15.1977]

      (totalTime, keyTimes) = MS.mapAccum addIntervalDiff zeroV widx

Replacement in lib/Aftok/TimeLog.hs at line 124 [22.846]

B:BD[6.4420] → [23.490:550]

∅:D[23.550] → [24.778:844]

B:BD[24.778] → [24.778:844]

  let sortedEntries = F.foldr H.insert H.empty $ logEntries
      rawIndex = F.foldl' appendLogEntry MS.empty $ sortedEntries

[6.4420]

[24.844]

  let sortedEntries = F.foldr H.insert H.empty logEntries
      rawIndex = F.foldl' appendLogEntry MS.empty sortedEntries

Replacement in lib/Aftok/TimeLog.hs at line 160 [22.846]
B:BD[23.1093] → [25.3119:3145]
```
        _ -> Left ev : []
```
[23.1093]
[26.869]
```
        _ -> [Left ev]
```
Replacement in lib/Aftok/TimeLog.hs at line 184 [22.846]
B:BD[15.2812] → [15.2812:2848]
```
    in  depreciation *^ (ilen ival)
```
[15.2812]
```
    in  depreciation *^ ilen ival
```

Replacement in lib/Aftok/Util/Http.hs at line 20 [27.260]

B:BD[27.849] → [27.849:906]

    (uname : pwd : []) -> pure $ (decodeUtf8 uname, pwd)

[27.849]

[27.906]

    [uname, pwd] -> pure (decodeUtf8 uname, pwd)

Replacement in lib/Aftok.hs at line 86 [22.2457]

B:BD[9.11108] → [9.11108:11244]

           , "arguments" .= (
             object [ "undep" .= up
                    , "dep" .= dp
                    ]
           )]

[9.11108]

[9.11244]

           , "arguments" .= object [ "undep" .= up
                                   , "dep" .= dp
                                   ]
           ]

Fix linting errors. (yay hlint!)

Dependencies

In channels

Change contents

Replacement in lib/Aftok/Auction.hs at line 49 [4.5084]

Replacement in lib/Aftok/Auction.hs at line 55 [4.5084]

Replacement in lib/Aftok/Auction.hs at line 62 [4.5084]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 174 [3.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 179 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 181 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 185 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 190 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 194 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 214 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 221 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 223 [3.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 227 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 242 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 249 [3.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 253 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 254 [3.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 258 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 267 [3.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 272 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 290 [3.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 294 [3.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 303 [3.456]

Replacement in lib/Aftok/Interval.hs at line 41 [16.1422]

Deletion in lib/Aftok/Json.hs at line 1 [18.19]