- if pool ! 0 == CInteger 0
- then do
- st <- St.get
- St.put $ st {currentPool = listArray (0,0) [c]}
- return 1
- else case lookupPool c pool of
- Just i -> return i
- Nothing -> do
- let (pool', i) = appendPool c pool
- st <- St.get
- St.put $ st {currentPool = pool'}
- return (i+1)
+ case lookupPool c pool of
+ Just i -> return i
+ Nothing -> do
+ let (pool', i) = appendPool c pool
+ st <- St.get
+ St.put $ st {currentPool = pool'}
+ return (i+1)