On Sun, Apr 6, 2014 at 2:15 PM, Karl Voelker <karl@karlv.net> wrote:

last . splitDirectories . normalise . joinPath . (: maybeToList package) <$> getCurrentDirectory

The thing to notice is that we really want to write

getCurrentDirectory : maybeToList package

but the effect-typing won't let us.

This kludge:

let x = flip (<$>) in getCurrentDirectory `x` (: maybeToList package)

restores the smile in our haskell, where 'x' can be as imperceptibly unicoded as desired.

-- Kim-Ee