git.iko.soy/project-m36
on master help sign in
fix hlint suggestions
46098e8AgentM
src/lib/ProjectM36/FileLock.hs+1−1
compare with master
unifiedsplit
@@ -1,4 +1,4 @@
1−{-# LANGUAGE CPP, NamedFieldPuns #-}
1+{-# LANGUAGE CPP #-}
2--cross-platform file locking utilizing POSIX file locking on Unix/Linux and Windows file locking
2--cross-platform file locking utilizing POSIX file locking on Unix/Linux and Windows file locking
3--hackage's System.FileLock doesn't support POSIX advisory locks nor locking file based on file descriptors, hence this needless rewrite
3--hackage's System.FileLock doesn't support POSIX advisory locks nor locking file based on file descriptors, hence this needless rewrite
4module ProjectM36.FileLock where
4module ProjectM36.FileLock where
src/lib/ProjectM36/TransactionGraph.hs+1−1
@@ -486,7 +486,7 @@ backtrackGraph :: TransactionGraph -> TransactionId -> TransactionIdHeadBacktrac
486backtrackGraph graph currentTid (TransactionIdHeadParentBacktrack steps) = do
486backtrackGraph graph currentTid (TransactionIdHeadParentBacktrack steps) = do
487 trans <- transactionForId currentTid graph
487 trans <- transactionForId currentTid graph
488 let parents = S.toAscList (transactionParentIds trans)
488 let parents = S.toAscList (transactionParentIds trans)
489− if length parents < 1 then
489+ if null parents then
490 Left RootTransactionTraversalError
490 Left RootTransactionTraversalError
491 else do
491 else do
492 parentTrans <- transactionForId (head parents) graph
492 parentTrans <- transactionForId (head parents) graph