Sign upLogin

quyse/flaw

View on GitHub
Star
flaw-oil/Flaw/Oil/Repo.hs

Summary

Maintainability
Test Coverage

Redundant do
Open

  lns <- sqliteQuery stmt $ \query -> do
    let
      step = do
        r <- sqliteStep query
        if r then do
Severity: Minor
Found in flaw-oil/Flaw/Oil/Repo.hs by hlint

Found

do let step
         = do r <- sqliteStep query
              if r then
                do line <- sqliteColumn query 0
                   restLines <- step
                   return $ line : restLines
                else return []
     in step

Perhaps

let step
      = do r <- sqliteStep query
           if r then
             do line <- sqliteColumn query 0
                restLines <- step
                return $ line : restLines
             else return []
  in step

There are no issues that match your filters.

Category
Status