/usr/lib/hugs/packages/fgl/Data/Graph/Inductive/Internal/Queue.hs is in libhugs-fgl-bundled 98.200609.21-5.3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | module Data.Graph.Inductive.Internal.Queue(
-- * Type
Queue(..),
-- * Operations
mkQueue, queuePut, queuePutList, queueGet, queueEmpty
) where
data Queue a = MkQueue [a] [a]
mkQueue :: Queue a
mkQueue = MkQueue [] []
queuePut :: a -> Queue a -> Queue a
queuePut item (MkQueue ins outs) = MkQueue (item:ins) outs
queuePutList :: [a] -> Queue a -> Queue a
queuePutList [] q = q
queuePutList (x:xs) q = queuePutList xs (queuePut x q)
queueGet :: Queue a -> (a, Queue a)
queueGet (MkQueue ins (item:rest)) = (item, MkQueue ins rest)
queueGet (MkQueue ins []) = queueGet (MkQueue [] (reverse ins))
queueEmpty :: Queue a -> Bool
queueEmpty (MkQueue ins outs) = (null ins) && (null outs)
|