module LLVM.DSL.Dump (writer) where

import qualified LLVM.Core as LLVM

writer :: String -> IO (String -> LLVM.Module -> IO ())
writer :: String -> IO (String -> Module -> IO ())
writer String
_name = (String -> Module -> IO ()) -> IO (String -> Module -> IO ())
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ((String -> Module -> IO ()) -> IO (String -> Module -> IO ()))
-> (String -> Module -> IO ()) -> IO (String -> Module -> IO ())
forall a b. (a -> b) -> a -> b
$ (Module -> IO ()) -> String -> Module -> IO ()
forall a b. a -> b -> a
const ((Module -> IO ()) -> String -> Module -> IO ())
-> (Module -> IO ()) -> String -> Module -> IO ()
forall a b. (a -> b) -> a -> b
$ IO () -> Module -> IO ()
forall a b. a -> b -> a
const (IO () -> Module -> IO ()) -> IO () -> Module -> IO ()
forall a b. (a -> b) -> a -> b
$ () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()