From 7be410f32975af0a99281b8cb92a7b9a9d11db04 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Sat, 2 Jul 2016 08:51:29 +0000
Subject: [PATCH] Upgrade LTS from 5.13 to 6.5

---
 src/Darcs/Local/Repository.hs |  2 +-
 src/Vervis/Darcs.hs           |  6 +++---
 stack.yaml                    |  3 ++-
 vervis.cabal                  | 10 ++++++----
 4 files changed, 12 insertions(+), 9 deletions(-)

diff --git a/src/Darcs/Local/Repository.hs b/src/Darcs/Local/Repository.hs
index 4e5ea27..2d2b20d 100644
--- a/src/Darcs/Local/Repository.hs
+++ b/src/Darcs/Local/Repository.hs
@@ -21,7 +21,7 @@ where
 
 import Prelude
 
-import Storage.Hashed.Hash
+import Darcs.Util.Hash
 import System.Directory (createDirectory)
 import System.Exit (ExitCode (..))
 import System.FilePath ((</>))
diff --git a/src/Vervis/Darcs.hs b/src/Vervis/Darcs.hs
index aa68742..401baef 100644
--- a/src/Vervis/Darcs.hs
+++ b/src/Vervis/Darcs.hs
@@ -25,6 +25,9 @@ import Prelude hiding (lookup)
 import Control.Applicative ((<|>))
 import Control.Monad.Trans.Class (lift)
 import Control.Monad.Trans.Except (ExceptT (ExceptT), runExceptT)
+import Darcs.Util.Path
+import Darcs.Util.Tree
+import Darcs.Util.Tree.Hashed
 import Data.Bool (bool)
 import Data.Maybe (listToMaybe, mapMaybe)
 import Data.Text (Text)
@@ -32,9 +35,6 @@ import Data.Text.Encoding (encodeUtf8, decodeUtf8With)
 import Data.Text.Encoding.Error (strictDecode)
 import Data.Time.Clock (getCurrentTime, diffUTCTime)
 import Data.Traversable (for)
-import Storage.Hashed.AnchoredPath
-import Storage.Hashed.Darcs
-import Storage.Hashed.Tree
 import System.FilePath ((</>))
 
 import qualified Data.ByteString.Lazy as BL (ByteString)
diff --git a/stack.yaml b/stack.yaml
index c6cf22d..6e70fc8 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -3,7 +3,7 @@
 
 # Specifies the GHC version and set of packages available (e.g., lts-3.5,
 # nightly-2015-09-21, ghc-7.10.2)
-resolver: lts-5.13
+resolver: lts-6.5
 
 # Local packages, usually specified by relative directory name
 packages:
@@ -16,6 +16,7 @@ packages:
 # Packages to be pulled from upstream that are not in the resolver (e.g.,
 # acme-missiles-0.3)
 extra-deps:
+  - diagrams-svg-1.4.0.2
   - highlighter2-0.2.5
   - hit-graph-0.1
   - hit-harder-0.1
diff --git a/vervis.cabal b/vervis.cabal
index 96626bb..ed6e12a 100644
--- a/vervis.cabal
+++ b/vervis.cabal
@@ -201,9 +201,9 @@ library
                        -- for Data.Paginate.Local
                      , data-default-class
                        -- for drawing DAGs: RBAC role inheritance, etc.
-                     , diagrams-core
-                       -- for drawing DAGs: RBAC role inheritance, etc.
-                     , diagrams-lib
+                       , diagrams-core
+                       , diagrams-lib
+                       , diagrams-svg
                      , directory
                        -- for Data.Git.Local
                      , directory-tree
@@ -251,9 +251,11 @@ library
                      , resourcet
                      , safe
                      , shakespeare
+                     , ssh
+                       -- for rendering diagrams
+                     , svg-builder
                        -- for text drawing in 'diagrams'
                      , SVGFonts
-                     , ssh
                      , template-haskell
                      , text
                      , time