.ghci for fuzzy file loading

gistfile1.txt

import System.IO.Temp (withSystemTempFile)
import System.Process (runProcess, waitForProcess)

:{
let loadFuzzy _ = do
      withSystemTempFile "fzf_out" $ \f h -> do
        p <- runProcess "fzf" [] Nothing Nothing Nothing (Just h) Nothing
        _ <- waitForProcess p
        out <- readFile f
        return (":load " ++ init out)
:}

:def loadf loadFuzzy

gistfile2.txt

import System.IO (withFile, IOMode (WriteMode))
import System.Process (runProcess, waitForProcess)

:{
let loadFuzzy _ = do
      let f = "/tmp/fzf_out"
      withFile f WriteMode $ \h -> do
        p <- runProcess "fzf" [] Nothing Nothing Nothing (Just h) Nothing
        _ <- waitForProcess p
        out <- readFile f
        return (":load " ++ init out)
:}

:def l loadFuzzy