From 868ac4a87a035f6a1afbc010956053b9d629d372 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Thu, 28 Jul 2016 20:36:23 +0200 Subject: [PATCH] Fix build with latest dequeue --- CG2.cabal | 4 ++-- QueueEx.hs | 3 +-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/CG2.cabal b/CG2.cabal index 25feb60..9ea0ba4 100644 --- a/CG2.cabal +++ b/CG2.cabal @@ -80,7 +80,7 @@ executable Gtk base >=4.6, bytestring >= 0.10.4.0, containers >= 0.5.0.0, - dequeue >= 0.1.5, + dequeue >= 0.1.12, diagrams-lib >=1.3, diagrams-cairo >=1.3, diagrams-contrib >= 1.3.0.0, @@ -129,7 +129,7 @@ executable Gif base >=4.6, bytestring >= 0.10.4.0, containers >= 0.5.0.0, - dequeue >= 0.1.5, + dequeue >= 0.1.12, diagrams-lib >=1.3, diagrams-cairo >=1.3, diagrams-contrib >= 1.3.0.0, diff --git a/QueueEx.hs b/QueueEx.hs index 28ea2e6..5a3a8ad 100644 --- a/QueueEx.hs +++ b/QueueEx.hs @@ -3,7 +3,6 @@ module QueueEx where import Control.Applicative import Data.Dequeue (BankersDequeue) import qualified Data.Dequeue as Q -import Data.Maybe -- |Shift a queue to the left, such as: @@ -20,4 +19,4 @@ shiftQueueRight = (\(Just (b, nq)) -> Q.pushFront nq b) <$> Q.popBack -- |Convert a Queue back to a list. queueToList :: BankersDequeue a -> [a] -queueToList q = Q.takeFront (Q.length q) q +queueToList q = Q.takeFront (length q) q