fix hlint suggestions
commit46098e80d3bacb7732012997ed00437f05e40ab8
authorAgentM <agentm@themactionfaction.com>
dateSat 22 Jun 2019, 13:25 (7 years ago)
parentc2a4913
src/lib/ProjectM36/FileLock.hs+1−1
@@ -1,4 +1,4 @@
1−{-# LANGUAGE CPP, NamedFieldPuns #-}
1+{-# LANGUAGE CPP #-}
22--cross-platform file locking utilizing POSIX file locking on Unix/Linux and Windows file locking
33--hackage's System.FileLock doesn't support POSIX advisory locks nor locking file based on file descriptors, hence this needless rewrite
44module ProjectM36.FileLock where
src/lib/ProjectM36/TransactionGraph.hs+1−1
@@ -486,7 +486,7 @@ backtrackGraph :: TransactionGraph -> TransactionId -> TransactionIdHeadBacktrac
486486backtrackGraph graph currentTid (TransactionIdHeadParentBacktrack steps) = do
487487 trans <- transactionForId currentTid graph
488488 let parents = S.toAscList (transactionParentIds trans)
489− if length parents < 1 then
489+ if null parents then
490490 Left RootTransactionTraversalError
491491 else do
492492 parentTrans <- transactionForId (head parents) graph