intricacy 0.8.1 → 0.8.1.1

raw patch · 4 files changed

+5/−5 lines, 4 files

Files

Physics.hs +1/−1
Server.hs +2/−2
Version.hs +1/−1
intricacy.cabal +1/−1

Physics.hs view

@@ -121,7 +121,7 @@                 (propagate st False <$> eForces)         blockInconsistent :: Int -> Int -> StateT (Vector (Writer Any [Force])) (Writer [Alert]) ()         blockInconsistent i j = do-            grps <- mapM gets [(!i),(!j)]+            grps <- mapM gets [(! i),(! j)]             blocks <- lift $ checkInconsistent i j $ map (fst.runWriter) grps             modify $ Vector.imap (\k -> if k `elem` blocks then (tell (Any True) >>) else id)         checkInconsistent :: Int -> Int -> [[Force]] -> Writer [Alert] [Int]

Server.hs view

@@ -401,7 +401,7 @@         getALock (ActiveLock name idx) = do             info <- getUserInfo name             checkValidLockIndex idx-            case ((!idx).userLocks) info of+            case ((! idx).userLocks) info of                 Nothing       -> throwE "Lock not set"                 Just lockinfo -> return lockinfo         checkValidLockIndex idx =@@ -540,7 +540,7 @@             info <- lift $ getUserInfo name             applyDeltas info . map snd . filter ((==name).fst) <$> get         getCurrALock al@(ActiveLock name idx) =-             fromJust.(!idx).userLocks <$> getCurrUserInfo name+             fromJust.(! idx).userLocks <$> getCurrUserInfo name         doNews :: String -> ExceptT String IO ()         doNews news = case mfeedPath of             Nothing -> return ()

Version.hs view

@@ -11,4 +11,4 @@ module Version where  version :: String-version = "0.8.1"+version = "0.8.1.1"

intricacy.cabal view

@@ -1,6 +1,6 @@ cabal-version:      >=1.10 name:               intricacy-version:            0.8.1+version:            0.8.1.1 license:            GPL-3 license-file:       COPYING maintainer:         mbays@sdf.org