hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

QEX: rm unused function

Browse Source
This commit is contained in:
hasufell 2014-10-26 04:29:49 +01:00
parent c8914c8272
commit d56d22036c
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
QueueEx.hs
View File

@ -21,8 +21,3 @@ shiftQueueRight = (\(b, nq) -> Q.pushFront nq (fromJust b)) <$> Q.popBack
-- |Convert a Queue back to a list. -- |Convert a Queue back to a list.
queueToList :: BankersDequeue a -> [a] queueToList :: BankersDequeue a -> [a]
queueToList q = Q.takeFront (Q.length q) q queueToList q = Q.takeFront (Q.length q) q
-- |Unsafe version of Q.first.
uQfirst :: BankersDequeue a -> a
uQfirst = fromJust . Q.first