Main.hs 173 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE QuasiQuotes, ViewPatterns #-}

module Main where

import A

main = do
  case 1 of
    [foo|x|] -> print x
  case 1 of
    [bar|<!anything~|] -> print fixed_var