big

app/Gyehoek/QBE.hs

@@ -9,6 +9,7 @@ module Gyehoek.QBE
   ( module QBE
   , render
   , fn
+  , writeTo
   )
   where
 
@@ -24,8 +25,12 @@ import Text.Megaparsec.Char
 import Language.Haskell.TH qualified as TH
 import Language.Haskell.TH.Quote
 import Data.Kind (Type)
+import qualified Data.Text.IO as TIO
 
 
+writeTo :: FilePath -> Text -> IO ()
+writeTo = TIO.writeFile
+
 render :: Pretty a => a -> Text
 render = renderStrict . layoutPretty defaultLayoutOptions . pretty