- -- TODO(bernhard): nicer replacement for `myspan'
- let (sfields, ifields) = myspan (S.member ACC_STATIC . fieldAccessFlags) (classFields cf)
- myspan :: (a -> Bool) -> [a] -> ([a], [a])
- myspan _ [] = ([],[])
- myspan p (x:xs)
- | p x = (x:ns, ni)
- | otherwise = (ns, x:ni)
- where (ns,ni) = myspan p xs