Merge branch 'release/0.9.2'

README.md

@@ -25,7 +25,7 @@ There are bottles (binaries) available for High Sierra and Sierra. If these are
 
 ### Binaries
 
-[A binary is available for Mac and Linux](https://github.com/smallhadroncollider/taskell/releases). Download it and copy it to a directory in your `$PATH` (e.g. `/usr/local/bin` or `/usr/bin`). Then run `taskell` in a project directory to get started.
+[A binary is available for Mac and Linux](https://github.com/smallhadroncollider/taskell/releases). Download it and copy it to a directory in your `$PATH` (e.g. `/usr/local/bin` or `/usr/bin`).
 
 ## Running
 

src/Data/Taskell/List.hs

@@ -6,7 +6,7 @@ import GHC.Generics (Generic)
 import Data.Aeson (FromJSON, ToJSON)
 
 import Prelude hiding (splitAt, filter)
-import Data.Sequence (Seq, (|>), (!?), (><), fromList, deleteAt, splitAt, filter)
+import Data.Sequence (Seq, (|>), (!?), (><), deleteAt, splitAt, filter)
 import qualified Data.Taskell.Seq as S
 
 import Data.Taskell.Task (Task, blank, contains)
@@ -33,9 +33,10 @@ updateTitle :: List -> String -> List
 updateTitle ls s = ls { title = s }
 
 newAt :: Int -> List -> List
-newAt i l = l { tasks = a >< fromList [blank] >< b }
+newAt i l = l { tasks = (a |> blank) >< b }
     where (a, b) = splitAt i $ tasks l
 
+
 append :: Task -> List -> List
 append t l = l { tasks = tasks l |> t }
 

src/Flow/State.hs

@@ -202,7 +202,7 @@ addToListAt d s = do
     l <- getList s
     let i = getIndex s + d
     let ls = newAt i l
-    return $ setList (setIndex s i) ls
+    return $ fixIndex $ setList (setIndex s i) ls
 
 above :: Stateful
 above = addToListAt 0

taskell.cabal

@@ -1,5 +1,5 @@
 name:                taskell
-version:             0.9.0.0
+version:             0.9.2.0
 -- synopsis: A CLI task manager, written in Haskell
 -- description: Allows you to create version controlled task lists
 homepage:            https://github.com/smallhadroncollider/taskell#readme