1 2 3 4 5 6 7 8 9
{-# LANGUAGE QuasiQuotes #-} module Main where parse = undefined main :: IO () main = case () of [parse||] -> return () _ -> return ()